вторник, 23 июня 2009 г.

количество букв русского алфавита

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

сделаем функцию определения принадлежности буквы к русскому языку

function is_russia(c: char): boolean;
begin
case c of
{лень перечислять все буквы...}
'a','б','в','г': is_russia:=true;
'А','Б','В','Г': is_russia:=true;
else is_russia:=false;
end;
end;


ну и перебёрем все символы введённой строки с вызовом нашей функции

for i:=1 to length(s) do begin
if is_russia(s[i]) then begin
count:=count+1;
end;
end;


полный вариант программы с комментариями можно скачат тут

Комментариев нет:

Отправить комментарий