Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Создание+вывод списка

Автор: -Екатерина- 19.05.2007 14:34

Написала 2 процедуры создания и вывода списка на экран, но ничего не выводит! подскажите пожалуйста где ошибка??

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;

 ! 
Не надо нарушать правила - пользуйся тегами... (см. правила вверху страницы).
Настоятельно рекомендую в ближайшее время исправить.
мисс_граффити



при выводе выводит только шапку.
очень надо, заранее спасибо

Автор: nikita182 19.05.2007 16:33

хм..у мну выводит..в таком виде:


uses crt;


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;



begin
clrscr;
create_list;
print_list(first);





readkey;
end.



Автор: -Екатерина- 19.05.2007 18:24

да все работает! спасибо большое!

Автор: nikita182 19.05.2007 18:26

пожалуйста)