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....

1 komentar:

Anonim 17 November 2012 pukul 20.18  

mas broooo thanks buat contohhh program nya awal nya ane ga tau ngebedaiin stack ma queuee..berkat masbroo ane jadi lebih paham lagi..thanks

Posting Komentar

LEARNING SOMETHING TO BECOME SOMEONE...