Bu sayfadaki yazılar
Sayfanın metni
Sayfa 15
PRİNT 53281 ,10:POKE 646,© <a54) anaza PRİNT YOK A YOK KR AA Bod3a PRİNT "CESPACE Yk <124> PRİNT "<SSPACE > ÇBSPACE ) * <237> PRİNT TAS ><ESPACE > PRİNT "<5SPACE <BSPACE MdATA PRİNT “<5SPACE <164> PRİNT “<ESPACE YAPAY-ZEKA PROGRAMILESPACE > * PRİNT “<ESPACE)* <198> galan PRİNT *<ESPACE YA <ıs4> PRİNT "<SSPACE AMA KA RK MALAR <ıse> PRİNT BİLGİSAYAR SİZE KARSI <a44> 69150 PRİNT BİLGİSAYAR RANDOM SAYILARA KARSI <esa> PRİNT Fİ VEYA F3'E BASINIZ" 09170 GET ASİF THEN 178 AND A<Sİ34 THEN 178 <813> IF As133 THEN Asi IF THEN <187?> <a3a> REM <B19> anasa FOR İzi TO J gazan FOR TÜ JJ <855> <187> GÜSÜB <ea8> ADEBA REM ARR RR RAK Ok <164> poesa BİLGİSAYAR HAMLESİ GOSUBR OYUN TAHTASI CIZİMI <a3a> KÖNTROLU IF THEN 378 <a56)> 00330 ÖN A GOSUR 930,1330 OYUN TAHTASI CİIZIMI <aza) ©0350 GOSUB SONUC KONTROLU <asa> IF 5$-"* THEN Esd <2l11> ©8378 REM KA O K <e5a> paasa GÖSÜB 1808:REM OYUN TAHTASI CİIZİMI IF THEN PRİNT KAZANDIM | 1 x195) IF THEN PRİNT KAZANDINIZ zi <151> IF THEN PRİNT !“:60T0 SiB ç164> REM oka e ARA KOK <248> poaaza FOR Bsi TO SiFürR Js2 TO 38 İF THEN 470 <ı6a9) 00456 NEXT NEXT B <1ge> REM Kk AR Ok ERA ti <258)> RETURN <aa8> PRİNT GYUNDAKİ HAMLE 3" <a7ı) gaz20 PRİNT <219> gosaga FOR J-1 TO <167> NEXT J
PRİNT a056A PRİNT ETMEK ICİN <CTRL-E BASINIZ" INPUT AS:GATİ
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 14
Programın Açıklanması
Program dikkatli bir şekilde yazıp RUN ettiğimizde karşımıza aşağıdaki ekran çıkar:
F1 tuşuna basarsanız bilgisayara karşı oynarsınız. F3 tuşuna basılırsa, bilgisayar programın sonuna eklenmiş olan Random (Rastgele) Sayı jeneratörüne (satır 1340 ile 1400) karşı oynayacak ve siz seyirci olacaksınız.
Programın 1310. satırında bilgisayarın başlangıçtaki hamle dizisi verilmiştir. Bu aslında kazanmayı zorlaştıran kötü bir sıralamadır. Bilgisayar bu sıra ile oynayacak, ancak kare sizin hatanızdan tutulmuş ise bir sonrakine geçecektir. Her kazandığı ve kaybettiği oyunda bu dizi tekrar düzenleyecektir.
Hamlenizi Yapınız
Her oyunun sonunda bilgisayar bir sonraki oyunu hangi diziye göre oynayacağını ekrana yazmaktadır. Programın 530-540. satırları ile yapılan bu işlem görüleceği gibi ilk hamle dizisinden (Satır No. 1310) farklıdır. Bunları yeni oyuna geçmeden bir yere not ederseniz bilgisayarın daha iyi oynamayı nasıl öğrendiğini izleyebilirsiniz. Oyunu kazanmak için başlarda 5 no.lu kareyi tutmak gerektiğini bilgisayar deneme yoluyla bir süre sonra keşfetmektedir.
Printeri olan arkadaşlar için bu kolaylığımız var. Program yüklendikten sonra RUN etmeyin, aşağıdaki satırları ekleyin:
560 ve 570. satırları aşağıdaki şekilde değiştirirseniz oyunun otomatik olarak başlamasını da sağlayabilirsiniz:
Şimdi önce F3'e basarak bilgisayarı Random sayılara karşı oynatmaya başlayınız. Random sayı jeneratörü (Satır no. 1340-1400) oyunu hiç bilmediğine göre, bilgisayar bu çaresiz rakibine karşı devamlı kazanacaktır. Tablo 1'de görüldüğü gibi 40 oyundan sadece başlarda bir oyunda yenilmiş, 37 oyunu ise kazanılmıştır. Printerdeki dizinin başındaki "K" harfi bilgisayarın kazandığını, "Y" yenildiğini, "B" berabere kaldığını göstermektedir.
Oyunu, STOP-RESTORE ile durdurup tekrar başlatınız ve F1 tuşuna basınız. Şimdi bilgisayarla karşı karşıyasınız. Ben 40 kez oynadığımda bilgisayar 18 kere kazandı, 17 kere yenildi, 11 kere berabere kaldık. Fakat sonuçlar tek tek incelendiğinde ilk 10 oyunda 6 kere yenilen bilgisayarın ikinci 10 oyunda 7 kere, üçüncü 10 oyunda 3 kere, dördüncü 10 oyunda ise bir kere yenilmesi, "öğrenme" olayının nasıl ilerlediğini ortaya koydu. Şüphesiz bu önemli ölçüde sizin nasıl oynadığınıza da bağlıdır. Ustaca oynayarak bilgisayarın öğrenmesini zorlaştırabilirsiniz. Mesela sizin hamle diziniz 1,3,5,7,9 olursa devamlı kazanabilirsiniz ve oyun çabuk sıkıcı bir hal almaya başlar. Amacınız öğrenme olayını izlemek olduğuna göre ustalığınızı biraz sonraya saklamanız yerinde olacaktır. Çünkü bir süre sonra yenilmeye başladığınızda "serî oynamak" zorunda zaten kalacaksınız ve 1,3,5,7,9 gibi dizilerin bile bilgisayar tarafından engellendiğini göreceksiniz. Çünkü o artık 5 no.lu karenin değerini öğrenmiş ve ilk veya ikinci hamlesini 5 no.lu kareye yapmaya başlamıştır.
Programın yazılarında fazla bir zorluk çekeceğinizi sanmıyorum, sadece oyun tablasını oluşturan 1020 ila 1190 no.lu satırlara özen göstermek yeterlidir.
Sonuç
Bu oyun, bilgisayarın da deneme-yanılma yoluyla öğrenebildiğini açıkça göstermektedir.
Hiç kuşkusuz bunu düşünerek yapmamaktadır. Yenilince siz üzülebilirsiniz, o üzülmez, çünkü hiçbir duygusu yoktur. Ama şimdilik...
Şu sıralarda hemen hemen her iki üç ayda bir bilgisayar dünyasında şaşırtıcı haberler duyuyoruz. Gelişme gittikçe hızlanıyor. Bu gidişle insan beyninin gücüne erişecek "düşünebilen, konuşan, hatta hisseden" bilgisayarlar, bunları zaten var olan yüksek çalışma süratleriyle birleştirince ortaya ne çıkacaktır dersiniz?