Здраствуйте! Помогите пожалуйста ламеру :D
Задача! Записано предложение. Определите, сколько в нем слов.
(большая просьба сделать к ней блок схему)
Спасибо ;)

Ты когда регистрировался, правила читал?


FAQ: Строки + в поиске не менее 10 задач на эту же тему...

Блок-схему начертишь сам...

Я там ничего не понял! помоги пжл ;)

Поиск выдает ошибку! а так я не смог найти подобную ей!

1. Что именно непонятно в FAQ-е?
2. Чем могут разделяться слова в предложении? Только пробелами?

Вот что я написал! Но не правильно считает? (Исправь пожалуйста, и если можно блок схему)
-------------------------------------------------------------------------

uses crt;
var
st:string;
k,i,n:integer;
begin
clrscr;
writeln('Vvedite predlojenie ');
readln(st);
n:=length(st);
for i:=1 to n do
begin
if (st[i]=' ') or (st[i]=', ') or (st[i]='. ')
then
k:=k+1;
end;
writeln('Koli4estvo slov v stroke' ,k);
readln;
end.

---------------------------------------------------------------------------

Твоя программа считает не количество слов, а количество разделителей (вернее, только пробелов, из-за ошибок в программе), и если ты введешь строку:
'Вот эта строка, и ...' то в результате получишь непонятно что...

Вот правильный вариант:

const
  razdel = [' ', ',', '.'];

var
   i, j, n : integer;
   s: string;
begin
  ReadLn(s);

  j := 0; n := length(s);
  i := 1;
  while i <= n do begin
    while (i <= n) and not(s[i] in razdel) do inc(i);

    if i < n then begin
      inc(j);
      while (i <= n) and (s[i] in razdel) do inc(i);
    end;
  end;
  writeln(j, ' slov');
end.

А блок-схему начертишь сам...

Спасибо брат ;)