Автор: 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.