Мой сайт
Главная | Регистрация | Вход
Понедельник, 19.11.2018, 07:04
Меню сайта
Теги
Наш опрос
Свободное программное обеспечение...
Всего ответов: 76
Главная » 2010 » Октябрь » 18 » Задача 13.
19:15
Задача 13.

     Ввести в строку несколько слов с общим количеством символов не более 50. Для каждого слова заданной строки (на русском) указать количество согласных и общее количество согласных в строке. Дополнительное условие: все слова вводятся со строчной буквы.

Просмотров: 229 | Добавил: yaro-vik | Рейтинг: 5.0/1
Всего комментариев: 1
Римма
BEGIN
writeln('Введите строку:');
readln(st);
writeln;

max:=1;
all_letter:=0; {всего согласных букв в строке }
tmp_letter:=0; {хранение числа букв в каждом слове }
max_letter:=0; {максимальное число согл. букв в слове }
flag_word:=false; {слово не было начато }
st:=' '+st; {считать, что строка начинается с пробела}

{цикл обработки всей строки}
for i:=2 to length(st) do
begin
{начало слова}
if (st[i]<>' ')and(st[i-1]=' ') then flag_word:=true;
{подсчёт, если было начало слова}
if flag_word then
begin
write(st[i]);
for j:=1 to 24 do if st[i]=letter[j] then
begin
inc(all_letter);
inc(tmp_letter);
end;
end;
{конец слова}
if (st[i]=' ')and(st[i-1]<>' ')or(i=length(st)) then
begin
flag_word:=false;
writeln(' = ',tmp_letter);
if max_letter<tmp_letter then
begin
max_letter:=tmp_letter;
inc(max);
end;
tmp_letter:=0;
end;
end;

writeln;
writeln('Всего согласных = ',all_letter);
END.

31.10.2010 | Воскресенье | 21:41

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Рекомендуем
Copyright MyCorp © 2018