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

[Vic]

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

[trminator]

Где-то это уже было. Попробуй поискать по форуму

[Сдф]

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

Пиши мне на мыл, помогу

[APAL]

Когда-то и я разбирал текст по словам...
А в чем сложность?
Есть свои идеи?

[Vic]

Свои идеи есть.
Например:
Использовать WHILE  или  Repeat
Только всё равно не получается

[oleg309]

А ты прогу попробуй кинуть, может новые идеи появятся

[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 - 18.12.2004 0:05