01.04.2021, 16:45
|
Прохожий
|
|
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
|
|
решение задачи 1.
Код:
var s:string; //текст с предложениями
a:integer; //кол-во предложений
i:integer; //для цикла
begin
//любым способом передаём ваш текст в переменную s
s:=s+' '; //для того что бы считало последнее предложение
a:=0; //первоначальное значение кол-ва предложений
for I := 1 to length(s) do if ((s[i]='!')or(s[i]='?')or(s[i]='.'))and(s[i+1]=' ') then a:=a+1;
//если текущий символ является концом предложения и после него стоит пробел то считаем
writeln('кол-во предложений в тексте: '+inttostr(a));
end;
|