Mã tài liệu: 251142
Số trang: 23
Định dạng: doc
Dung lượng file: 132 Kb
Chuyên mục: Kỹ thuật - Công nghệ
{------------- THUC THI NGAN XEP BANG CON TRO -------------}
Uses CRT;
Type
elementype=integer;
Stack=^Node;
Node=Record
element:elementype;
Link:Stack;
end;
Var S: Stack; x,m,n:integer;
{----------- TAO STACK RONG ----------}
Procedure Makenull(Var S: Stack);
Begin
S:=nil;
End;
{---------- KIEM TRA RONG ---------}
Function Empty(S:Stack):boolean;
Begin
empty:=S=nil;
End;
{--------- THEM PHAN TU ---------}
Procedure Push(x:elementype;Var S:Stack);
Var P: Stack;
Begin
new(P);P^.element:=x;
P^.link:=S;S:=P;
End
Những tài liệu gần giống với tài liệu bạn đang xem
Những tài liệu bạn đã xem
Code các kiểu dữ liệu trừu tượng Pascal
{------------- THUC THI NGAN XEP BANG CON TRO -------------} Uses CRT; Type elementype=integer; Stack=^Node; Node=Record element:elementype; Link:Stack; end; Var S: Stack; x,m,n:integer; {----------- TAO STACK RONG ----------} Procedure
doc Đăng bởi
tra_lam
