Source Code Menara of Hanoy

Berikut ini adalah source code menara of hanoi menggunakan bahasa pascal :

Program MENARA_HANOI;
uses wincrt;
var
J, L : integer;
A, B, C: char;
Procedure MenaraHanoi(J:integer; A,C,B:char; Var L:integer);
begin
if J = 1 then
begin
L := L + 1;
write(‘Langkah : ‘,L,’ ‘);
writeln(‘Pindahkan piringan 1 dari menara ‘,A,’ ke menara ‘,C);
end
else
begin
(* Pindahkan N-1 piringan dari menara A ke B menggunakan menara C*)
MenaraHanoi(J-1,A,B,C,L);
L := L + 1;
write(‘Langkah : ‘,L,’ ‘);
writeln(‘Pindahkan piringan ‘,J,’ dari menara ‘,A,’ ke menara ‘,C);
(* Pindahkan N-1 piringan dari menara B ke C menggunakan menara A *)
MenaraHanoi(J-1,B,C,A,L);
end;
end;
begin
write(‘Jumlah Piringan ? ‘);readln(J);
L := 0;
A := ‘A’; {menara sumber}
B := ‘B’; {menara bantuan}
C := ‘C’; {menara tujuan}
MenaraHanoi(J,A,C,B,L);

end.

Semoga bermanfaat..

Info Basis Data B

Dear Kelas B Basis Data 1

Saya sudah konfirmasi hari selasa sore untuk kuliah basdat pada Bapak Budi D.S. Berhubung Beliau harus mengikuti syarat wisuda di ITS, jadi hari selasa sore dan jum’at beliau tidak bisa hadir untuk mengisi perkuliahan. Jadi Kuliah minggu depan ini KOSONG.

Terima Kasih