Дана фраза определить сколько в ней предложений.

[BBorr1]

Дана фраза определить сколько в ней предложений. PASCAL

[VIK_aka_TOR]

самое простенькое наверное это подсчет сколько в твоей фразе точек... если они конечно не ставятся как у меня)))...

[BBorr1]

!!!!! ап)))))

[VIK_aka_TOR]

как то так в таком случае... считал сколько точек...

var
i,index: integer;
stroka: string;
begin
  write('Введите вашу фразу');
  readln(stroka);
  index:=0;
  for i:=1 to length(stroka) do
  if stroka[i] = '.' then
  inc(index);
  writeln('В фразу предложений : ', index);
end.

[Stilet]

как то так в таком случае... считал сколько точек...

"Это предложение. Не, это... А сколько тут предложений то, если считать точки?"
пожалуй лучший ответ на этот вопрос:

if copy(stroka,i,2) = '. ' then

А так с методикой согласен

P.S. А... Да еще кое что: writeln('В фразу предложений : ', index+1); Если в конце не поставленна точка, после которой нет буквенного символа.