задача в паскале на определение количества слов и букв в слове

[Надина]

Составить программу, которая по введенной фразе определяет количество слов, в каждом слове – количество букв и заменяет в заданной фразе все пробелы на цифру «5».

[Aleksandr H.]

var i:byte;
a:array[1..100] of string;
count:byte;s:String;w:string;

begin
 s := 'fas asdf fsd fs';
 w := '';
 if s[length(s)]<>' ' then s:=s+' ';
 for i:=1 to length(S) do
 begin
   if s[i]<>' ' then w:=w+s[i]
   else
    begin
    if w<>'' then begin inc(count);a[count]:=w;w:='';writeln(a[count],' : ',length(a[count])); end;
    s[i]:='5';
    end;
 end;
 writeln('words ',count);
 writeln(s);
 readln;
end.

[Надина]

Сообщение от Aleksandr H.

var i:byte;
a:array[1..100] of string;
count:byte;s:String;w:string;

begin
 s := 'fas asdf fsd fs';
 w := '';
 if s[length(s)]<>' ' then s:=s+' ';
 for i:=1 to length(S) do
 begin
   if s[i]<>' ' then w:=w+s[i]
   else
    begin
    if w<>'' then begin inc(count);a[count]:=w;w:='';writeln(a[count],' : ',length(a[count])); end;
    s[i]:='5';
    end;
 end;
 writeln('words ',count);
 writeln(s);
 readln;
end.

Че то не то

[Dvoishnik]

ТАК?

var
 S:string;
 posSlov,
 kolSl:byte;
 i:integer;
begin
 posSlov:=0;
 kolSl:=1;
 Writeln('введите фразу');
 readln(s);
    While pos(' ',s)<>0 do
     begin 
	   inc(kolSl);
	   write(copy(s,posSlov+1,pos(' ',s)-posSlov-1)+' - ');
	   writeLn(length(copy(s,posSlov+1,pos(' ',s)-posSlov-1)));
	   posSlov:=pos(' ',s);
	   insert('5',s,pos(' ',s));
	   delete(s,pos(' ',s),1); 
     end; 	  
  write(copy(s,posSlov+1,length(s))+' - ');
  writeLn(length(copy(s,posSlov+1,length(s)))); 
  writeLn('Всего слов - ',kolSl);
  writeLn(s);
  readLn;
end.

при условии, что слова разделены 1 пробелом

[Aleksandr H.]

Сообщение от Надина

Че то не то

Чего "не то"? Наведи аргументы, на каких данных проверяла, что получила, а что должно было получиться?

[Dvoishnik]

Сообщение от Aleksandr H.

Чего "не то"? Наведи аргументы, на каких данных проверяла, что получила, а что должно было получиться?

да ладно вам, не обижайтесь просто девушка выбрала не вас

[Надина]

Сообщение от Aleksandr H.

Чего "не то"? Наведи аргументы, на каких данных проверяла, что получила, а что должно было получиться?

Ввела предложение русскими буквами. В конце не выводится новое предложение с вставленными 5 вместо пробелов, и количество букв в словах не правильно посчитал...
паскаль.jpg

[Надина]

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

ТАК?

var
 S:string;
 posSlov,
 kolSl:byte;
 i:integer;
begin
 posSlov:=0;
 kolSl:=1;
 Writeln('введите фразу');
 readln(s);
    While pos(' ',s)<>0 do
     begin 
	   inc(kolSl);
	   write(copy(s,posSlov+1,pos(' ',s)-posSlov-1)+' - ');
	   writeLn(length(copy(s,posSlov+1,pos(' ',s)-posSlov-1)));
	   posSlov:=pos(' ',s);
	   insert('5',s,pos(' ',s));
	   delete(s,pos(' ',s),1); 
     end; 	  
  write(copy(s,posSlov+1,length(s))+' - ');
  writeLn(length(copy(s,posSlov+1,length(s)))); 
  writeLn('Всего слов - ',kolSl);
  writeLn(s);
  readLn;
end.

при условии, что слова разделены 1 пробелом

Спасибо!http://programmersforum.ru/images/icons/icon12.gif

[Dvoishnik]

Сообщение от Надина

Ввела предложение русскими буквами. В конце не выводится новое предложение с вставленными 5 вместо пробелов, и количество букв в словах не правильно посчитал...
Вложение 79258

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

Aleksandr H. понимаете насколько все запущенно??

[Aleksandr H.]

Про "5" на конце я знал и оставил, понадеялся что ТС сама исправит это через delete(s,length(s),1). Но, как мы увидели, "праздник чето не пришел в наш домик"