Стек

[Foky]

Помогите пожалуйста довести программу до ума. Нужно сделать, чтобы слова были записаны в обратном порядке.Например, было мир дружба солнце, а стало солнце дружба мир. В моей программе строка читается просто слева направо. Может быть как-нибудь задать условие на вхожднние в строку пробела?(
Вот программка:

Program foky;
Type
EXST = ^ST;
ST = record
Data : char;
Next : EXST;
End;
Var
Stack : EXST; {Текущая переменная}
i : integer;
f : text;
Stroka : string;
c : char;
Procedure writeStack(Var u : EXST; Simvol : char);
Var
x : EXST;
Begin
new(x);
x^.Data := Simvol;
x^.Next := u;
u := x;
End;
Procedure Print(Var u : EXST);
Begin
while u <> Nil
Begin
write (u^.Data);
u := u^.Next;
End;
End;
Begin
Stack := Nil;
Assign(f, 'c:\autoexec.bat');
Reset(f);
while Not Eof(f) do
Begin
readln (f, Stroka);
For i := 1 to Length(Stroka) do
writeStack(Stack, Stroka[i]);
End;
close(f);
Print(Stack);
End.

[alexBlack]

Нужно делить строку на слова и уже их проталкивать в стек.

[Foky]

Сообщение от alexBlack

Нужно делить строку на слова и уже их проталкивать в стек.

А делить по пробелам?

[alexBlack]

Сообщение от Foky

А делить по пробелам?

Это смотря что у Вас в задании считается словом. Судя по примеру по пробелам. Т.е. встречается очередной пробел- все символы до предыдущего пробела - слово - его помещаем в стек. Когда будем извлекать из стека, добавим между словами пробелы.

[Foky]

А как это сделать для произвольного числа слов? И вообще как это будет выглядеть?

[alexBlack]

Посмотрите, например, в этой теме строку на слова делили:

http://programmersforum.ru/showthrea...8925#post98925

или так:

Stroka := Stroka + ' '; 
S1 := '';
For i := 1 to Length(Stroka) do begin
    if stroka[i] = ' ' then begin
       // Обрабатываем слово S1
       ......
       // S1 := '';
    end else S1 := S1 + Stroka[i];
end;

[Foky]

Спасибо, но мне уже ничего не помогает.(

[Serge_Bliznykov]

Сообщение от Foky

Спасибо, но мне уже ничего не помогает.(

ну... просто крик души... А почему?..
И что именно Вам должно помогать? Примеры не помогают? Книги?...
Или Вы таким образом намекаете, что неплохо бы написать Вам готовый завершённый код?...

[Foky]

Сообщение от Serge_Bliznykov

ну... просто крик души... А почему?..
И что именно Вам должно помогать? Примеры не помогают? Книги?...
Или Вы таким образом намекаете, что неплохо бы написать Вам готовый завершённый код?...

Нет, я никоем образом ни на что не намекала и не собираюсь. Возможно, кто-то понял меня не совсем правильно. Мне никто ничего не должен.