Помощь - Поиск - Пользователи - Календарь
Полная версия: Динамические структуры
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
forMator
Всем привет!
Задача. Создать список целых чисел с занесением элементов в конец списка. распечатать полученный список.

У меня выводится только последний элемент списка!А ошибку найти не получается... Подскажите пожалуйста что делать

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
type pspis=^spisok;
spisok=record
data:integer;
next:pspis;
end;
Var i,n,a:integer;
x,y,u:pspis;
begin
{ TODO -oUser -cConsole Main : Insert code here }
u:=nil;
writeln('n=');readln(n);
for i:=1 to n do
begin
new(y);
write('a=');readln(a);
y^.data:=a;
y^.next:=nil;
if u=nil then u:=y else x^.next:=y;
x:=y;
end;
writeln('vvedenii spisok:');
while y<>nil do begin
writeln(y^.data);
y:=y^.Next;
end;
readln;
end.


volvo
  ...
writeln('vvedenii spisok:');

y := u; // <--- Вот это не забывай:
while y<>nil do begin
writeln(y^.data);
y:=y^.Next;
end;
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.