Массив строк Опции

[Vic]

Помогите решить несложную задачу:
Задана строка s. Записать каждое слово строки s в новую s[i].
Если нетрудно, то напишите программу.

[Vic]

Всем спасибо! Тема закрыта

Код

Program z817;
  Uses crt;
   Var s:string;
       s1:array[1..50] of String;
       i,n,x:integer;
Begin
    clrscr;
    Readln(s);
    For i:=1 To length(s) Do
    begin
         IF s[1]<>' ' Then insert(' ',s,1);
         IF s[i]=' ' Then
         begin
              n:=i+1;
              WHILE s[n]<>' ' Do Inc(n);
              Inc(x);
              s1[x]:=copy(s,i+1,n-i);
              n:=x;
         end;
    end;
    For x:=1 To n Do
    Writeln(s1[x]);
END.

Сообщение отредактировано: volvo - 17.12.2004 20:05