Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure inserir(var h:tprec; var q:tprec; x:integer);
- begin
- new(q);
- q^.i:=x;
- q^.next:=h;
- h:=q;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement