Изменить

[ЗЛОбнаЯ]

Program K_13;
USES CRT;
var x,w:string; f,res:text; err:boolean;
    p,j,line,SP:integer;
Procedure OtkF(x:string; var err:boolean);
                   begin
                      assign(f,x);
                      {$I-} reset(f); {$I+}
                      err:=IOResult > 0;
                      if err then writeln('Файл не существует');
                   end;
function NumOfSpaces(var F:text; j:integer): integer;
                   var w:string;
                   begin
                      inc(j);
                      read(F,w[j]);
                      if w[j]=' ' then inc(p);
                      NumOfSpaces:=p;
                   end;
  BEGIN
    ClrScr;
    err:=true;
    while err do begin
                        writeln('Введите полное имя');
                        readln(x);
                        OtkF(x,err);
                     end;
    line:=0;  SP:=0;
   Assign(Res,'H:\Resultat.txt');
   Rewrite(Res);
   Writeln(Res,'В файле: ',x,' содержится ');
   while not Eof(F) do
          begin
             P:=0;j:=0;
               while not Eoln(f) do P:=NumOfSpaces(F,j);
             inc(line);
             readln(f,w);
             writeln(Res,'В строке: ',line,' количество пробелов = ',p);

          end;
    close(f);
    close(res);
  END.

Эта программа считает количество пробелов в строке. А нужно сделать так, чтобы она считала количество слов. Помогите пожалуйста(

[Anton-Top]

Ставим счетчик например к=0
условие: если символ не пробел то к=к+1
иначе двигаемся к следующему символу

[Stilet]

ЗЛОбнаЯ

То есть так торопимся что и поиск за тобой не успевает?
http://www.programmersforum.ru/showt...369#post398369

[ЗЛОбнаЯ]

Сообщение от Stilet

То есть так торопимся что и поиск за тобой не успевает?
http://www.programmersforum.ru/showt...369#post398369

ну да)) в понедельник сдача уже,а ничего еще не готово..