TYPE
EL=^ZAP;
ZAP=RECORD
INF1:INTEGER;
INF2:STRING;
NEXT : EL; {ssilocnoe pole }
END;
VAR
FIRST, P, Q , T : EL;
ans: string;
i,k,x,n: integer;
procedure create_list;
begin
first:=nil;
ans:='y';
while ans='y' do
begin
new(p);
p^.next:=first;
WRITELN ('vvedite znachenie pervogo inf. polya');
READLN ( P^.INF1 );
WRITELN ('vvedite znachenie vtorogo inf. polya');
READLN ( P^.INF2 );
first:=p;
writeln ('ewe element?? y-da');
readln (ans);
end;
end;
procedure print_list (first: el);
begin
writeln ('------------------------------------------------------------');
writeln ('№ p\p | inf1 inf2');
writeln ('------------------------------------------------------------');
q:=first;
i:=0;
while q<>nil do
begin
inc(i);
writeln (' ',i,' ',q^.inf1,' ',q^.inf2);
q:=q^.next;
end;
readln;
end;
! | Не надо нарушать правила - пользуйся тегами... (см. правила вверху страницы). Настоятельно рекомендую в ближайшее время исправить. мисс_граффити |
при выводе выводит только шапку.
очень надо, заранее спасибо
Сообщение отредактировано: мисс_граффити -