Bu sayfadaki yazılar
Sayfanın metni
Sayfa 29
C 428 Püf Noktalarının Programları
10 DIM 29 BY(3) 1 48 PRİNT YÜKLEME İSMİNİZ YAZINI"
PROGRAM 2
ZAZZAYI: ÖPEN 1,6,15
NEXT ZA CLOSE 2 CLOSE 1
GET KEY THEN SA BYCZA)-86
Klavyeyle gezinmek için ← ve → tuşları.
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.