Дано текст состоящий из предложений

[nazar113]

Дано текст состоящий из предложений Предложение начинается с большой буквы и заканчивается точкой. Определите количество предложений в тексте.

помогите написать на паскалє. сам никак

[Mad_Cat]

c:=0;
txt:=txt+' ';
For i:=1 to Length(txt)-1 do
if (txt[i]='.') and (txt[i+1]<>'.') then inc(c);
writeln(c);

[nazar113]

а как с начала описать текст?

[Serge_Bliznykov]

кстати.
во-первых, в приведённом выше фрагменте ошибка (выход за пределы массива:

to Length(txt)...
txt[i+1]

во-вторых, зачем проверять многоточие, если об этом не сказано?
в-третьих, если уж проверять, так проверять корректно.

а как с начала описать текст?

неужели всё так плохо?

var txt : string;
begin
   WriteLn('Введите текст: ');
   Readln(txt);
....

p.s. при таком подходе будет обработана одна строка текста. Если нужно больше - то либо построчно вводите текст, либо помещайте текст в текстовый файл и читайте оттуда..

[nazar113]

посмотрите пожалуйста еще раз. что здесь не так. просто я с текстом в паскале никогда не работал. спасибо

program z1;
uses crt;
var
txt : string ;
c : integer;
i : integer;
begin
clrscr;
   WriteLn('vvedit texst ');
   Readln(txt);
c:=0;
txt:=txt+' ';
For i:=1 to Length(txt) do
if (txt[i]='.') and (txt[i+1]<>'.') then inc(c);
writeln(c);
end.

[Serge_Bliznykov]

ну, я бы написал так:

For i:=1 to Length(txt)-1 do
if (txt[i]='.') and (txt[i+1]<>'.') then inc(c);

но в целом, выглядит нормально. должно работать.
Вас что-то смущает?
В конце ещё добавьте ReadLn;, чтобы программа сразу не закрывалась, ждала нажатия Enter.

[nazar113]

все работает .. спасибо