Для каждой буквы из заданного текста укажите, сколько раз она встречается в тексте

@Student_Skgu · Регистрация: 29.09.2013

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

Pascal

//Для каждой буквы из заданного текста укажите, сколько раз она встречается в тексте.
 
program HD;
uses crt;
var
s:string;
x:integer;
abc: array [0..255] of integer;
Begin
writeln('Введите текст: ');
readln(s);
For x:=1 to 255 do abc[x]:=0;
For x:=1 to length(s)do
begin
if ((s[x]>='а') and (s[x]<='я'))
then abc[ord(s[x])]:=abc[ord(s[x])]+1;
end;
For x:=32 to 255 do if abc[x]>0 then writeln('буква "',chr(x),'" встречается ',abc[x],' раз(а)');
End.

обьясните каждую строчку

@HedgehogLu · 07.11.2013, 14:13

Код

rogram HD;
uses crt;
var
s:string; //строка
x:integer; //счетчик для цикла
abc: array [0..255] of integer; //таблица количества использований символов
Begin
writeln('Введите текст: ');
readln(s); //cчитываем текст
For x:=1 to 255 do abc[x]:=0; //обнуляем счетчик букв
For x:=1 to length(s)do //перебираем все символы в строке
begin
if ((s[x]>='а') and (s[x]<='я')) //если символ принадлежит кирилице
then abc[ord(s[x])]:=abc[ord(s[x])]+1; //тогда в массив алфавита для соответствующего символа увеличиваем счетчик
end;
For x:=32 to 255 do if abc[x]>0 then writeln('буква "',chr(x),'" встречается ',abc[x],' раз(а)'); //теперь для всех элементов алфавита начиная с пробела выводим количество их использования, если оно не нулевое
End. //финита ля программа

	07.11.2013, 14:13