Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  6t vt cmc c
Language: PASCAL
Code:
program xi_19;
type PNOD^NOD;
NOD=record
info:integer;
urm:PNOD;
end;
var L:PNOD;
function creare:PNOd;
var prim,ultim,nou:PNOD;
x:integer;f:text;
begin
assign(f,'lista txt');reset(f);
new(prim);readln(f,prin^.info);
prim^urm:=NIL;ultim:=prim;
while not of(f)do
begin
new(nou);
readln(f,nou^.info);
ultim:=nou;
end;
else (f);
creare:=prim;
end;
procedure afis_prez(PNOD);
begin
while P<>NIL do
begin
if P^.info>0 then write(p^info:3)
P:=p^_urm;
end;
end;
begin
L:=creare;
afisa_poz[L];
end.
Comments: