Artikel Ilmu Komputer

LIFO - LAST INDIUM FIRST OUT

INITIAL DECLARATION

TYPE
Point = ^RecPoint;
RecPoint = Record
Isi : TipeData;
Next : Point;
End;
VAR
Head, Tail, Now : Point;

PROCEDURE INSERT LIFO

PROCEDURE INSERT (element: data type);
VAR Now: Point;
BEGIN
New (Now);
Now^.Isi := element;
if Head=Nil then
Now^.Next :=Nil;
Else
Now^.Next := Head;
Head: =Now;
End;

PROCEDURE INSERT FIFO

PROCEDURE INSERT (element : data type);
VAR Now: Point;
BEGIN
New (Now);
if Head=Nil then
Head: =Now
else
Tail^.Next :=Now;
Tail: =Now;
Tail^.Next:=nil;
Now^.Isi:= Element;
End;