VPF::Двусвязный список - Форум программистов

Dobermann

Дата 3.7.2008, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

volvo877, помоги с обратным выводом двусвязного списка...
Мой вариант работает, но вот только чёт мне кажется слишком много кода?!?!?!
По моему я не правильно сохранял next-ветки при задании списка?!?!?!

Код


uses crt;
type DubleStack = ^Stack;
            mmm = array[0..100] of integer;
       Stack = record
          id: byte;
   next,pred: DubleStack;
        end;

var bmw: DubleStack;
    mas: mmm;
    k,i: integer;

procedure ZapVSp(var one: DubleStack);
var p, zopa: DubleStack;
          i: integer;
begin
  for i:= 1 to k do
    begin
      new(p);
      write('Vvedite znachenie ',i,'-go elementa: ');
      readln(p^.id);
      p^.pred:=one;
      one^.next:=p;          // вот так сохранял next-ветки
      one:=p;

    end;
end;

procedure WriteSp;
var i,c: integer; ququ: DubleStack;
begin
  ququ:=bmw;
  writeln('V kakom poriadke vivodit" ?, 1 or 2');
  readln(c);
  case c of
1:
     for i:=1 to k do begin write(ququ^.id,' -|- '); ququ:=ququ^.pred; end;
2:                                                             //  Вот вывод в обратном порядке
     for i:=1 to k do begin       // вроде я не спортивно перебрался к                                                   
        ququ:=ququ^.pred;    //  первому элементу стека ?!?!?!
        if i=k then begin          
         for i:=1 to k do begin      
           ququ:=ququ^.next;     
           write(ququ^.id,' -|- ');
          end;
          end;
     end;
end;
end;

begin
  clrscr;
  write('Vvedite kol-vo elementov: '); readln(k);
  bmw:=nil;
  ZapVSp(bmw);
  WriteSp;
  readkey;
end.

Добавлено через 1 минуту и 5 секунд
Я знаю, ты можешь smile

Dobermann

Дата 8.7.2008, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

сделал...
closed

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »