Дан текстовый файл. Распечатайте текст в обратном порядке слов

@NeedSelf · Регистрация: 25.06.2012

Дан текстовый файл. Распечатайте текст в обратном порядке слов.
Эта задача по теме "Динамические структуры данных"

@igor_kz · 29.06.2012, 23:02

Pascal

Type TList = ^List;
     List = record
        info : string;
        next : TList;
     end;
 
Var lBegin , u : TList;
    f : text;
    s , t : string;
    i : integer;
 
Procedure addToList(Var lBegin : TList ; info : string);
Var u : TList;
Begin
    new(u);
    u^.info := info;
    u^.next := lBegin;
    lBegin := u;
End;
 
Begin
    assign(f , 'file.txt'); reset(f);
    lBegin := Nil;
    while not eof(f) do begin
        readln(f , s);
        s := s + ' ';
        t := '';
        for i := 1 to length(s) do 
            if s[i] = ' ' then begin
                if length(t) > 0 then
                    addToList(lBegin , t);
                t := '';
            end else t := t + s[i];
    end;
    while lBegin <> Nil do begin
        Write(lBegin^.info , ' ');
        u := lBegin^.next;
        Dispose(lBegin);
        lBegin := u;
    end;
End.

Добавлено через 29 секунд
P.S. разделители слов - только пробелы.

@NeedSelf · 30.06.2012, 17:01 **[ТС]**

Спасибо огромное

@NeedSelf 1 / 1 / 0 Регистрация: 25.06.2012 Сообщений: 41
		1
	Дан текстовый файл. Распечатайте текст в обратном порядке слов 29.06.2012, 21:39. Просмотров 1173. Ответов 2 Метки нет (Все метки) Дан текстовый файл. Распечатайте текст в обратном порядке слов. Эта задача по теме "Динамические структуры данных" 0

@NeedSelf 1 / 1 / 0 Регистрация: 25.06.2012 Сообщений: 41
	30.06.2012, 17:01 [ТС]	3
	Спасибо огромное 0

Опции темы

Дан текстовый файл. Распечатайте текст в обратном порядке слов

Решение