Строки Опции

[Flo]

Программа выводит только длину слова... что необходимо добавить, чтобы выводилось все слово?
препод вот что написала:
если S[i]<>' ', то B:=B+copy(s,i,1)
n=1
если s[i]=' ' то n:=n

я никак не пойму, что она имела в виду..
заранее спасибо!!

var

i,n,max:integer;

s:string;

function wordlen(i:integer):integer;

var

n:integer;

begin

n:=0;

while (s[i]<>’ ‘) and (i<=length(s)) do

begin

i:=i+1; n:=n+1;

end;

wordlen:=n;

end;


begin

write(‘vvedite stroky:’);

readln(s);

i:=1; n:=0; max:=0;

while (i<=length(s)) do 

begin

if s[i]<>’ ‘ then 

begin

n:=n+1;

if wordlen(i)>max then max:=wordlen(i);

i:=i+wordlen(i);

end

else i:=i+1;

end;

writeln(max);

readln;

end.

[Анна]

Попробуй в паскале ввести этот код и запустить:

Var I : Integer;
Begin
 For I:=0 To 255 Do Write(Chr(I));
End.

Посмотри какие символы стоят до #32. Сразу всё понятно станет .

Чтобы выводило кол-во символов - включи счётчик

inc(J)

Сообщение отредактировано: Анна - 20.12.2005 3:12