Тема. Строки.
Дана строка длиной не более 80 символов. Символы образуют слова, отделенные друг от друга запятыми, последний символ – точка. Определить количество слов в последовательности, оканчивающихся на букву «а». Если таких слов нет, напечатать соответствующие сообщение.
Исходный код программы для Delphi 7:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
const n=80;
var s:string[80]; //ограничение строки
i,count:integer;
begin
writeln('Input string[80]');
Readln(s);
count:=0;
for i:=0 to length(s) do
if ((s[i]=',')or(s[i]='.')) and (i>0) and (s[i-1]='a') //условие отбора слов
then inc(count); //подсчет кол-ва
if count>0 then
writeln('Kol-vo slov: ',count)
else
writeln('Net slov');
Readln;
end.
Цикл подсчета количества слов оканчивающихся на букву 'а':
for i:=0 to length(s) do
if ((s[i]=',')or(s[i]='.')) and (i>0) and (s[i-1]='a') //условие отбора слов
then inc(count); //подсчет кол-ва
Блок схема:
