Segera di download di budids99.wordpress.com :
1. Materi UAS BasDat
2. Jadwal UAS BasDat
3. Info Demo Program BasDat
Terima Kasih
Segera di download di budids99.wordpress.com :
1. Materi UAS BasDat
2. Jadwal UAS BasDat
3. Info Demo Program BasDat
Terima Kasih
Bagi teman-teman yang tidak bisa mengikuti kuliah kemarin bisa hadir hari jum’at pukul 08.30 di RKB 2.3.
Terima Kasih π
Untuk minggu ini mata kuliah Basis Data B di jadwalkan besok hari senin pukul 07.30 di RKB 2 ruang 3. Bagi yang tidak bisa hadir pada waktu yang telah saya cantumkan, mohon segera konfirmasi ke Dosen yang bersangkutan. Terima Kasih…
Perkuliahan basis data B dijadwalkan pada hari selasa pagi jam 07.30
diharapkan untuk hadir…. trim’s
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..
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