Цитата:
Сообщение от SunHab
Добрый день! Нужна помощь в написании программы для Pascal ABC
задача звучит так:
Программа, отделяющая из введенной строки символов отдельные
слова (пробел - символ-разделитель) и выводящую их перечень.
Заранее спасибо!
|
Легко. Правда, это для НОРМАЛЬНОГО Паскаля, а не АВС, так что уж сами поправьте, если что.
Код:
Var
S:string;
i,N:integer;
W:Array[1..128] of String;
Begin
writeln('Enter the string: ');
readln(S);
N:=1;
i:=0;
Repeat
Inc(i);
W[N]:='';
While (S[i]<>' ') and (i<=Length(S)) do
begin
W[N]:=W[N]+S[i];
Inc(i);
end;
If S[i]=' ' then Inc(N);
Until i>=Length(S);
For i:=1 to N do Writeln(W[i]);
Readln
End.