PDA

View Full Version : [Q] Thap Ha Noi


command29_10
06-12-2002, 20:09
Viet dum minh chuong trinh nhap vao so dia n cua thap.
In ra tung buoc doi dia sang cac coc.
hai_nth
07-12-2002, 14:28
Program ThapHN;
Var tang:byte;buoc:real;
Procedure move(tang,xuatphat,dich:byte);
var trunggian:byte;
begin
if tang=1 then
begin
inc(buoc);write('Buoc ',trunc(buoc),' : ',xuatphat,'-->',dich)
end
else
begin
trunggian:=6-xuatphat-dich;
move(tang-1,xuatphat,trunggian);
move(1,xuatphat,dich);
move(tang-1,trungian,dich)
end;
Begin
textcolor(red);textbackground(green);clrscr;
gotoxy(8,2);write('Nhap so tang cua thap : ');buoc:=0;
readln(tang);move(tang,1,3);
repeat until ord(readkey)=27;normvideo;clrscr
End.
magirl
09-12-2002, 17:35
bài này có trong sách turbo của Bùi Thế Tâm mà.......
Mach2
10-12-2002, 08:23
Hình như sách nào về Pascal cũng có bài ni á...
ktcatson84
27-12-2002, 16:52
Chỉ có Tháp Hà Nội cổ điển thui, còn mấy cái tháp mới thì hình như ko sách nào có cả.
ringo
08-01-2003, 08:43
ở trong sách của Quách Tuấn Ngọc cũng có đấy bác.
btkiet
15-01-2003, 14:29
To ktcatson84 mấy cái tháp mới mà bác nói là tháp gì vậy?
ktcatson84
18-01-2003, 16:27
À, là mấy cái dạng mới ý mà. Tháp cổ điển thì A<->B<->C<->A
Còn một số tháp dạng mới như: A->B->C->A hay A<->B<->C ..., cách giải thì hơi phức tạp hơn một hút so với tháp cũ.