Program Pascal : Queue / Antrian

Queue / Antrian dalam bahasa pemrograman Pascal.

{Judul Program}
program Antrian;
uses wincrt;

{Deklarasi}
const max=5;     {konstanta}
type queue=record
                 elemen:array[1..max]of string;
                 head,tail,count:integer;
           end;      
var
   Q:queue;
   i:integer;
   data:string;
   temp:string;
   jawab:char;

{Prosedur dan Fungsi}
procedure Inisialisasi(var A:queue);
begin
     A.head:=0;
     A.tail:=0;
end;

function Empty:boolean;
begin
     if Q.tail=0 then
         Empty:=true
     else
         Empty:=false;
end;

function Full:boolean;
begin
     if Q.tail=max then
         Full:=true
     else
         Full:=false;
end;

procedure Enqueue(var A:queue; x:string);{prosedur untuk penambahan data}
begin
     if Empty then
         begin
           A.head:=1;
           A.tail:=1;
           A.elemen[A.tail]:=x;
         end
     else if not Full then
         begin
           A.tail:=A.tail+1;
           A.elemen[A.tail]:=x;
         end
     else
         writeln('ANTRIAN SUDAH PENUH');
end;

function Dequeue(var A:queue):string; {prosedur untuk mengambil/menghapus data}
var
   j:integer;
begin
   if not Empty then
   begin
      Dequeue:=A.elemen[A.head];
      for j:=A.head to (A.tail-1) do
      begin
         A.elemen[j]:=A.elemen[j+1];
      end;
      A.tail:=A.tail-1;
   end;
end;

procedure Tampil(A:queue);
var
   k:integer;
begin
     if A.tail<>0 then
       for k:=1 to A.tail do
           writeln('Pasien ke-',k,' : ',A.elemen[k])
     else
         writeln('ANTRIAN KOSONG');
end; 

{Program Utama}
begin
   clrscr;
   writeln('PROGRAM ANTRIAN PASIEN');
   writeln('----------------------');
   writeln;
   ...
   ...
   ...

Download file lengkap antrian.zip atau antrian.txt


Tampilan output: