Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массив строк

Автор: Vic 2.12.2003 18:52

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

Автор: trminator 2.12.2003 23:41

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

Автор: Сдф 3.12.2003 0:28

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

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

Автор: APAL 3.12.2003 12:30

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

Автор: Vic 6.12.2003 12:15

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

Автор: oleg309 7.12.2003 12:33

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

Автор: Vic 18.12.2003 12:04

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

Код
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.