Sayfa 22

Diğer Problemler

Biraz önce tartıştığımız iteratif metod başka tür problemlere de uygulanabilir. Örneğin bir sayının küpkökünü almaya ne dersiniz? 40'ın küpkökünü bulmak için şu tanımı yazın: X Daha önce yaptığımız gibi bu ifadeyi düzenlersek ve tüm terimleri bir tarafa toplarsak: X^3-40=0 Şimdi 10. satırdaki ifadeyi DEF FN A(X) = X^3-40 olarak değiştirin ve programı çalıştırın. Program X'in değeri yaklaşık olarak 3.41995189 olduğunda yeterli has-

PROGRAM ADI 3: DESENLER

OOOOL REM 6 ön RK BE 0k DE 00002 REM DESENLER OO003 REM Wu (C)1990 nu O0004 REM Hu .. 00005 REM #4 COMMODORE DERGİSİ! 00006 REM ör m ük ük öt dt 00010 1000:REM GRAFİK AYARLAMALARI

<055> <140> <196> <003> <060>

<045> <124> <234> <223> <242>

00030 FOR Xs0 TO 319 00040 00050 FOR Ys0 TO 199 STEP $ 000860 GOSUB 2000:REM PİXEL'İ X,Y'YE KOY 00065 REM SİMETRİK SEKİLLER İCİN BU ş SATIRI EKLEYİN: 00066 REM Hum : <052> <026> <028> <196> <072> <112> <179> <129>

00070 NEXT Y “00090 GET A$:1F THEN 90 00100 GOSUB 3000 : 00110 END ; $ 00950 REM 90 öğ de arat 00955 REM «Hu 00960 REM Hu BIT .. 00970 REM xu MODU AYARLAMALARI! BE 00980 REM «un . . 00990 REM BİT AC-KAPA İSLEMLERİ 00992 REM Hu . Bu 000099 REM a 06 06 00 ük ön 40 Öf 6 ÖK 8 01000 DEF FNSB(N)-PEEK(MM) OR 24N O1V10 DEF AND -<153> <L74>

<000> <080> <154> <076> <003> <228> <2286>

VİC O'İNCİ REGİSTER

01030 REM 8192'YE KOYUNU (VIC REGİSTER 17'NIN 3. BITİ 1 YAP ) <180> O1040 MM,FNSB(3) <208> REM (VIC REGİSTER 17'NIN 5S. BITI 1 YAP ) O1080 MM,FNSB(S) <249>

01120 REM

002000 AND 7)

“03010 HH, FNRBC3)

sassiyette bir çözüme ulaşıldığını bildirir. Bu sayı da 40'ın küpköküne oldukça yakındır. X için öyle bir değer bulun ki SIN (X) = TAN (X^3) olsun. Bu işlem için de aynı sistemi kullanabilirsiniz. Önce ifadeyi yazın, sonra da düzenleyin:

SIN (X) = TAN (X^3) SIN (X) - TAN (X^3) = 0 ve bu ifadeyi programda 10. satıra yazın: DEF FN A(X) = SIN (X) - TAN (X^3) ve programı çalıştırın. Çabucak X = 0.729 radyan olduğunu görürsünüz. Hangi sayı kendi karekökünden 5 fazladır? Cevabı yine aynı sistemle buluyoruz: X = SQR (X) + 5 veya

<236> <ozL> <054> <154>

01070 BASEs8192:REM BİT-HAR. BASLANGICI 01080 REM HARITASINI 01090 GOSUB 4000 OL100 REM RENK CO VE Ci'i O1110 <189> #EHEKRANI RENKLE DOLDURuwu 01130 FOR TA <145> | 01140 RETURN Lİ 01145 : <105> 01150 REM 01160 REM #u ra MN is <166> 01170 REM «s4 AC um <214> 01180 REM wu <088> 01190 REM NN t 02010 ek KC Fs 02020 POKE - 02030 RETURN * 02970 REM <167) 3 02980 REM uu. ea 0 02990 REM BIT HARİTASINI RESETLE xu <16 02991 REM KA | <188> - 03000 k <038> <044> # tü b <056)> | <053> |

<169> <048> <225>

<116>

03030 RETURN 03960 REM 03965 REM Hu . MEL 03970 REM BIT TEMİZLE. ww 03980 REM 04000 FOR TO 828443 04010 READ B:POKE M,B O40Z20 04030 NEXT O4040 IF CK<>5133 THEN PRİNT «4060-4110 ARASINDA DATA b 04050 SYS O40860 DATA 76,68,3,0,32,31,64,0 DATA. 173,63,3, 133,251,173,64,3 04080 DATA 133,252,174, zi 252, 202,48, 208, 244, i 72,66 96

04090 DATA. 04100 04110 DATA