Sabtu, 08 Januari 2011

Program antrian dengan Pascal (Queue)

ne ada sintak program pascal yang membahas sedikit program antrian, Biasa tugas kuliah w masih pake bahasa pascal jadi buat yang ngebutuhin algoritmanya boleh dipake kok... gratis ga bayar....
ni sintaknya :
program queue;
 type
 link=^node;
 node=record
 next:link;
 key:integer;
 end;

 var

 U:integer;
 tail,Head:link;

procedure queinit; // Initializes the queue
begin

    New(tail);
    tail^.next:=nil;
    head:=tail;
end;

procedure put(u: integer); // Puts number u into the queue
var
  t: link;
begin
  New(t);
  tail^.key := u;
  tail^.next := t;
  tail := t;
end;

 function pop:integer; //Pops one number at a time
 var
 s:link;
 begin
    pop:=head^.key;
    s:=head;
    head:=head^.next;
    dispose(s);
 end;

 function empty:boolean;//checks if the queue is empty
 begin
    empty:=head=tail;
 end;

begin
  queinit;
  u := 1;
  put(u);  // Put 1 in the queue

  u := 2;
  put(u);  // Put 2 in the queue

  u := 3;
  put(u);  // Put 3 in the queue
end.

buat catetan sedikit, kalau ada yang ga sesuai harap di maklumi ya sebab w juga masih belajar juga.
so harap maklum z....

Tidak ada komentar:

Posting Komentar