Паскаль.Строки.Множества - Помощь студентам

Анастасия*** · 18.12.2011, 22:47

Вводится строка ,содержащая буквы и цифры.Каких символов в строке больше: цифр или букв?выведите цифры встречающиеся в порядке возрастания.

Mad_Cat · 18.12.2011, 23:10

Код:

d:=['0'..'9'];
b:=['A'..'Z','a'..'z'];
cb:=0;cd:=0
for i:=1 to length(s) do
begin
if s[i] in d then inc(cd);
if s[i] in b then inc(cb);
end;
if cb>cd then writeln('Letters');
if cd>cb then writeln('Digits');
if cd=cb then writeln('equally');
For c:='0'..'9' do
if pos(c,s)<>0 then write(c,' ');

Анастасия*** · 18.12.2011, 23:13

а что за переменные cb и cd?

leiprechain · 19.12.2011, 03:05

Цитата:

Сообщение от Анастасия***

а что за переменные cb и cd?

cb - кол-во букв, а cd - кол-во цифр.

18.12.2011, 22:47	#1
Анастасия*** Пользователь Регистрация: 20.10.2011 Сообщений: 24	Паскаль.Строки.Множества Вводится строка ,содержащая буквы и цифры.Каких символов в строке больше: цифр или букв?выведите цифры встречающиеся в порядке возрастания.

18.12.2011, 23:10	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `d:=['0'..'9']; b:=['A'..'Z','a'..'z']; cb:=0;cd:=0 for i:=1 to length(s) do begin if s[i] in d then inc(cd); if s[i] in b then inc(cb); end; if cb>cd then writeln('Letters'); if cd>cb then writeln('Digits'); if cd=cb then writeln('equally'); For c:='0'..'9' do if pos(c,s)<>0 then write(c,' ');` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задачи на строки и множества паскаль	GamBitFRK	Помощь студентам	12	18.12.2011 15:05
Паскаль(строки и множества)	sllh_111	Помощь студентам	7	28.11.2010 17:44
Множества и строки	Takada_sony	Помощь студентам	8	27.04.2010 17:22

18.12.2011, 23:13	#3
Анастасия*** Пользователь Регистрация: 20.10.2011 Сообщений: 24	а что за переменные cb и cd?