Bu sayfadaki yazılar
Sayfanın metni
Sayfa 22
Bu programı öğrenciyken hem Commodore 64'ümü daha etkin kullanabilmek, hem de matematiği daha iyi öğrenebilmek için kendimi denemek amacıyla yazmıştım. Bütün öğrenci arkadaşlara yararlı olacağını umarım.
Matematik, on çeşit matematik problemini çözmenizi sağlayan, dahası matematiksel problemlerin bilgisayarlar tarafından nasıl çözüldüğünü (problemin bilgisayara tanımlanması) anlamanıza yardımcı olacak bir BASIC programıdır.
Bu program:
1- İkinci dereceden bir bilinmeyenli denklemlerin köklerini,
2- Üçüncü dereceden bir bilinmeyenli denklemlerin kökleri,
3- İki bilinmeyenli denklem sistemlerinin çözümünü,
4- Üç bilinmeyenli denklem sistemlerinin çözümünü,
5- Üçüncü mertebeden determinant,
6- Belirli integral,
7- Belirli türev,
8- x ekseni etrafında dönen fonksiyon parçasının yarattığı hacmi,
9- Permutasyon ve kombinezon,
10- OBEB ve OKEK hesaplar.
Gelelim programın yapısına:
100-121 : seçim yapmak.
122-155 : 1. problemi,
156-217 : 2. problemi,
218-244 : 3. problemi,
245-275 : 4. problemi,
276-298 : 5. problemi,
299-335 : 6. problemi,
336-358 : 7. problemi,
359-386 : 8. problemi,
387-406 : 9. problemi,
408-429 : 10. problemi çözmek içindir.
Kısacası program modüler bir yapıya eşittir. Dilerseniz her bölümü ayrı ayrı yazıp çalıştırabilirsiniz. Sonra MERGE komutu (BASIC dilinde farklı programları birleştirip tek bir program yapmak amacıyla kullanılır) kullanabileceğiniz bir yardımcı programla (SIMONS' BASIC gibi, çünkü Commodore 64'ün BASIC 2.0'ında yoktur) programı şimdi olduğu gibi tek parça yapabilirsiniz.
Matematiksel çözüm için izlenen yol, kalem ve kağıtla çözerken izlenen yolun aynısıdır. Farklılık bizim kalem ve kağıtla yaptığımızı program yoluyla bilgisayara yaptırmaktır.
Burada her problemi çözen program parçasını satır satır açıklamak bütün döküm ekini kaplayacağından bu belki önümüzdeki sayılardan birinde bir makale konusu olabilir. Yalnız 6., 7. ve 8. problemlerin çözümü, diğerlerinden farklı olarak fonksiyonun bilgisayara verilmesini gerektirmektedir. Bu nedenle kullandığım yöntemi açıklamak istiyorum:
Fonksiyonu bilgisayara girmek için INPUT komutu yetersiz kalınca ben de ufak bir hile ile kullanıcının programa müdahale etmesini sağladım. LIST komutu ile değiştirilmesi gereken satırlar ekrana gelmekte ve program hangi satırların nasıl değiştirilmesi gerektiğini kullanıcıya açıklamaktadır. Kullanıcı gereken değişikliği yaptıktan sonra programın o bölümünü çalıştırmak için RUN 'satır no' (return) ile sonucu öğrenmektedir. Yine 6, 7, 8 no.lu problemler diğerlerinden farklı olarak en küçük kareler metodu ile çözüldüğünden sonuçlar tam değil, yaklaşık olarak doğrudur. Çözümün doğruluğunu artırmak, kareleri küçülterek (kare sayısını artırarak) olanaklıdır, ancak bu durumda çözüm süresi uzamaktadır.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 23
PROGRAM AĞI 3 taaa > PRİNT * PRİNT POKE 53280:0:POKE 53201 .G:CLR:POKE 53272 MÜSÜNÜZ? PRİNT CR ©0152 GET THEN 158 2. DERECEDEN | BİLİNMEY İF THEN 108 ENLİ DENKLEMCSSPACE KÖKLERİNİ IF J THEN POKE 53280.14:P BULUR" (116> ÖKE S3281,6:POKE S3272.21:PRINT "<0 PRİNT "<DONN)<CTRL SEND F>CC-S> 3. HERECEDEN | BİLİNMEYENLİ 88155 152 <Be7) DENKLEMLSSPACE LERİN KÖKLERİNİ BUL 00156 PRİNT "<CLR)* UR ©0157 PRİNT "<6SPACE YE cidi) 00103 PRİNT 00158 PRİNT * YE AR * BK * CX 4 0 2 BİLİNMEYENLİ DENKLEM SİST 90159 PRİNT EMLERİNİ<SSPACE (164) ©8168 İNPUT FA casa) PRİNT -B 80181 PRİNT 3 BİLİNMEYENLİ DENKLEM SİST INPUT EMLER INI <5SPACE >COZER <842) 20163 PRİNT ©8185 PRİNT INPUT 3, MERTEBEDEN DETERMİNANT ÖZER INPUT 3D (833) PRİNT <RYSONDELEVSOF BELİRLİ İNTEGRAL ALIR" BALS8 IF THEN GÜÖSÜB 208 <aa6) PRİNT CRVSÜN) 7 CRVSOF 00188 F)CC-5) SAYISAL TÜREV ALIR" ceza) PRİNT X EKSENİ ETRAFINDA DONEN FO TF 185 NKS TYONUNCASPACE BU 1F GOTN 199 <173> LUR* <B35) — PRİNT -8 ©0175 <B864> PERMUTASYON VE KÖMBİNEZON H IF THEN ESAPLAR * ) ©0118 PRİNT BOL77 IF THEN OBEBCSHİFT-SPACEYVE ÖKEK HE 1) SAPLAR Bölli GET THEN İİİ (193) — 31) ©0112 İF THEN 156 X137) — IF THEN 218 PRİNT IF THEN 245 — PRİNT <826> ©0115 IF THEN 276 PRİNT ©0116 IF THEN 299 <231> 885 <a24) IF RSSCKRSCS5) THEN 336 80186 Fzi 90118 IF THEN 358 IF Bö)8 THEN <B45> 00119 İF RE-CHRSC57) THEN 387 <095) — 00188 08120 IF RE-CKRS(43) THEN 408 68189 IF THEN 128 193) PRİNT *CCLR>” IF Foca THEN Gia) ©4123 PRİNT )* (889) (185) B8124 PRİNT * AK * BK 4 (140) Belsa PRİNT : SE (218) İNPUT (1898) PRİNT PRİNT INPUT PRİNT 17 *Cz (828) PRİNT €085> Balsa IF Di<8 THEN 143 F-| eta 08201 1F THEN F--1 PRİNT F iz) 2 00136 PRİNT ©8137 IF THEN 142 PRİNT 00138 PRİNT RESTÖRE 00139 PRİNT TOPLAMI PRİNT (176> ZA <247) 213 (255) 80140 PRİNT *COOLMDKOKLERİN (151) 360TO 151 <114) PRİNT * (191) 90216 Os0/A <193> PRİNT 138 <134) ©8143 PRİNT “<C2DOLMDREEL KOK RETLİRİN (839) PRİNT KÜKLER 1" “MENÜYE DÖNMEK İSTİYOR MÜSÜNÜU <233)> Z? 08146 GET THEN <134)> Basis IF TKEN <162)>