Program Queue Dengan Menggunakan Pascal

Struktur data bagi orang awam seperti saya memang menyulitkan, namun tiada kata menyerah dalam belajar sesuatu yang positif....
nah dua hari yang lalu saya di berikan tugas membuat program queue, berikut ini adalah beberapa script tentang program queue yang saya berikan untuk tugas:



Uses Crt;
Type
Nama = array [1..10] of String;

Var
Stack : Nama;
Top : Byte;
I,J,K : Integer;
Ch : Char;


Procedure input;
Begin
Top := 0;
Repeat
ClrScr;
Top:=Top+1;
If Top <=10 Then
Begin
For I:=Top downto 1 Do
Begin

WriteLn(I,'. ',Stack[I]);

End;
GotoXY(1,1);
Write('Nilai peserta ke-',Top,' : '); ReadLn(Stack[Top]);
writeln('ooooooooooooooooooooooooooooooo');
For I:=Top downto 1 Do
Begin
WriteLn(I,'. ',Stack[I]);
End;
J:=Top;
writeln('ooooooooooooooooooooooooooooooo');
Write('Tambahkan ? (Y/T) : '); ReadLn(Ch);
End

Else

Begin
WriteLn('tempat yang tersedia telah penuh, hentikan penginputan nilai!!'); ReadLn; Ch:='T';
End;
Until UpCase(Ch)='T';
End;

Procedure ambil;
Begin
K:=1;
Repeat
ClrScr;

For I:=K to J Do
Begin
GotoXY(10,15-I); WriteLn(I,'. ',Stack[I]);
End;

GotoXY(1,1); Write('hapus nilai? (Y/T) : ');ReadLn(Ch);
If UpCase(Ch) = 'Y' Then K:=K+1;
If K>J then
Begin
ClrScr;
WriteLn('nilai Habis!!');
ReadLn;
Ch:='T';
End;
Until Upcase(Ch)='T';
End;

Begin
input;
ambil;
End.






semoga bermanfaat....

Read More..