Sayfa 28

Pascal (8)

Ck A cubugundaki disk leri C cubugundaki disklere götürme *) Bir Kerede sadece bir disk hareket edebilir. x*) Kucuk bir diskin uzerine buyuk bir disk yerlestirelemez *)

var sayac : integer!

procedure hareket(sayit integer; Kaynak, varis, aratchar)? begin if sayi > © then begin hareket(sayi-i,kKaynak,ara,varis); writelmisayi,' numarali diski ',Kaynak,' nolu cubuktan ',varis,' nolu cubugsa'

is ,Kaynak end Ck hareket *)

begin readiIn(sayac); hareket(sayac,'A', end.

Program hesap; C* recursive uygulama ile faktoryel hesaplama *) var sayi * integer;

begin if nz0 then faktor iz 1 else faktor 15 n * faktor(n-i) end; C* faktor *)

begin writel'sayiyi yazin readin(sayi); end.