Подсчитать, сколько раз в строке встречаются цифровые и буквенные символы

@Басард · Регистрация: 22.12.2010

Студворк — интернет-сервис помощи студентам

Цель работы: Сздать программу модульной структуры, т.е. имеющую в своём составе процедуры и/или функции.

Дана строка. Подсчитать, сколько раз в ней встречаются цифровые и буквенные символы. Вывести на экран колличество этих символов в порядке убывания (например: букв - 16, цифр - 4 или цифр - 20, букв - 18).

@Puporev · 20.01.2011, 06:59

Pascal

uses crt;
const cf=['0'..'9'];
      bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
procedure KolSim(st:string);
var i,kc,kb:byte;
begin
kc:=0;
kb:=0;
for i:=1 to length(st) do
if st[i] in cf then kc:=kc+1
else if st[i] in bk then kb:=kb+1;
if kc>kb then write('Цифр - ',kc,' букв - ',kb)
else write('Букв - ',kb,' цифр - ',kc);
end;
var s:string;
begin
clrscr;
writeln('Введите строку:');
readln(s);
KolSim(s);
readln
end.

@Басард · 21.01.2011, 07:36 **[ТС]**

Спасибо огромное!!! Вот ещё бы блок-схему к этой программе.

@Басард 0 / 0 / 0 Регистрация: 22.12.2010 Сообщений: 13
		1
	Подсчитать, сколько раз в строке встречаются цифровые и буквенные символы 20.01.2011, 06:47. Показов 1115. Ответов 2 Метки нет (Все метки) Цель работы: Сздать программу модульной структуры, т.е. имеющую в своём составе процедуры и/или функции. Дана строка. Подсчитать, сколько раз в ней встречаются цифровые и буквенные символы. Вывести на экран колличество этих символов в порядке убывания (например: букв - 16, цифр - 4 или цифр - 20, букв - 18). 0

@Басард 0 / 0 / 0 Регистрация: 22.12.2010 Сообщений: 13
	21.01.2011, 07:36 [ТС]	3
	Спасибо огромное!!! Вот ещё бы блок-схему к этой программе. 0

Опции темы

Подсчитать, сколько раз в строке встречаются цифровые и буквенные символы

Решение