Pascal!

[sir.andrey]

Посмотрите пожалуйста, я правильно заполнил стек двусвязного списка?

program fd;
type adres=^my_type;
my_type=^record;
next:adres;
data:integer;
prev:adres;
end;
var p:adres;
open,close:adres;
begin
open:=nil;
close:=nil;
randomize;
for i:=1 to n d0 begin
p^.data:=random(9);
p^.next:=open;
p^.prev:=close;
close:=p;
open:=p;
end;

[Stilet]

По-моему нет.
Посмотри примеры по динамическим спискам - уже обсуждалось.
Кстати, а запускается программа? Данные выдает на экран из списка?

[sir.andrey]

Экран ваще пустой, ничего не выдает!!!
Я все прошерстил, ни где такого нет, мне просто надо знать (в коде),
как в двусвязный список из n эл-тов заполнить числами;
Запускал прогу из учебника, та же ситуация!
т.е. элементы не распечатываются!
Вообще не могу разобраться со списками!

[Stilet]

http://www.programmersforum.ru/showt...ight=PKvartira
Рекомендую по изучать здешние примеры.

[sir.andrey]

Спасибо, завтра как нибудь изучу!!!
Скорее всего появятся вопросы!!!

[sir.andrey]

Вот я накалякал чо то:

program DUHAMUKA;
 type
     adres=^adres_type;
     adres_type=record
     pred,sled:adres;  {adres predidyshego, slyushego elementa}
     data:integer;     {znachenie peremennoi}
     end;
 var znach,verx,niz,k:adres;
     i,n:integer;
begin
write ('kol-vo elementov: ');
readln (n);
randomize;
verx:=nil;
niz:=nil;
for i:=1 to n do begin
                 new(znach);
                 znach^.data:=random(100);
                 znach^.pred:=verx;
                 verx:=znach;
                 znach^.sled:=niz;
                 niz:=znach;
                 end;
k:=verx;
while k<>nil do begin
                write (znach^.data,' ');
                k:=k^.sled;
                end;
end.

Но на экран выводит только n одинаковых значений!
Подскажите как исправить!!!
Буду очень признателен, если вы еще и объясните!

[Stilet]

type
     adres=^adres_type;
     adres_type=record
     pred,sled:adres;  {adres predidyshego, slyushego elementa}
     data:integer;     {znachenie peremennoi}
     end;
 var znach,verx,niz,k:adres;
     i,n:integer;
begin
write ('kol-vo elementov: ');
readln (n);
randomize;
verx:=nil;
niz:=nil;
new(verx);verx^.data:=random(100);  niz:=verx;
for i:=1 to n do begin
                 new(znach);
                 niz^.sled:=znach;
                 znach^.data:=random(100);
                 znach^.pred:=niz;
                 znach^.sled:=nil;
                 niz:=znach;
                 end;
k:=verx;
while k<>nil do begin
                write (k^.data,' ');
                k:=k^.sled;
                end;
readln;
end.

увидел?

[sir.andrey]

Огромное тебе спасибо, только я не понял, почему мы так делаем!!
Если не затруднит напишите комментарий к проге!
Премного благодарен!!!