FIFO adalah suatu metoda pembuatan Linked List dimana data yang masuk paling awal adalah data yang keluar paling awal juga. Hal ini dapat dianalogikan (dalam kehidupan sehari-hari) misalkan saat sekelompok orang yang datang (ENQUEUE) mengantri hendak membeli tiket di loket. Jika Linked List dibuat dengan metode FIFO, maka terjadi penambahan/Insert simpul di depan. Latihan Soal beserta jawaban (Listing Program) dan penjelasan Buatlah sebuah program untuk mendeteksi password/ kata sandi. Gunakan metode single linked list. Jika passwordnya benar, program akan selesai, jika salah maka user akan diminta memasukkan password kembali. (passw.pas) Jawaban : Uses crt;
Type
Point = ^Rec;
Rec = record
Isi : char;
Next : point;
End;
Const
Password = ‘pascal’; {password yang harus dimasukkan}
Var
i : byte;
Tekan : char;
Passwd : Boolean;
Head, Tail, Now : Point;
Procedure Create;
Begin
Head:=nil;
Tail:=nil;
End;
Procedure Push(isi:char);
Var Now:point;
Begin
New(now); {membuat simpul baru}
If Head=Nil then {mendeteksi simpul awal}
Begin
Head:=Now;
Tail:=Head;
end else
begin {menyambung simpul yang baru pada simpul yang sudah ada}
Tail^.next:=Now;
Tail:=Tail^.Next;
end;
Now^.isi:=isi; {mengisi simpul yang baru}
Now^.next:=Nil;
end;
Function Check:Boolean; {function untuk mencheck input}
Var Temp : string[15];
Begin
Temp:=’ ‘; Now:=Head;
While Now <> nil do
Begin
Temp:=temp + Now^.isi;
Now:=Now^.next;
End;
If temp <> Password then check:=False;
End;
Procedure BuatBingkai(x1,y1,x2,y2:byte); {tampilan aplikasi}
Var i : byte;
Begin
GotoXY (x1,y1); write(‘ ’); GotoXY (x2,y1); write (‘ ‘);
GotoXY (x1,y2); write(‘ ’); GotoXY (x2,y2); write (‘ ’);
For i := x1+1 to x2-1 do
Begin
GotoXY (i,y1); write (‘-‘);
GotoXY (i,y2); write (‘-’);
End;
For i := y1+1 to y2-1 do
Begin
GotoXY(x1, i); write(‘ ‘);
GotoXY(x2, i); write (‘ ‘);
End;
End;
Procedure Pop; {procedure penghapus simpul}
Begin
Now:=head;
head:=head^.next;
While Now <> nil do
Begin
Dispose(Now);
Now:=head;
Head:=head^.next;
End;
End;
Begin {program utama}
Repeat
Create; I:=0;
Repeat
Tekan:=ReadKey;
Write(Tekan);
If Tekan <>#13 then Push(Tekan); inc(i);
Until (Tekan= #13) or (I=10); {enter ditekan atau panjang = 10}
Passwd:=check; Pop;
Until Passwd;
End.
2 komentar:
3 Juni 2009 pukul 21.45
mas trima kasih udah kasi contohnya.............
5 Juni 2009 pukul 23.02
ini blog lg berduka cita ya!!!!!!!!!
Posting Komentar