Advertisement
Guest User

Untitled

a guest
Jun 22nd, 2017
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.12 KB | None | 0 0
  1.  procedure inserir(var h:tprec; var q:tprec; x:integer);
  2. begin
  3.    new(q);
  4.    q^.i:=x;
  5.    q^.next:=h;
  6.    h:=q;
  7.  
  8. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement