1 Mart 1987 Tarihli Commodore Gazetesi Sayfa 50
kaybolacaktır. İFADE ;tek bir değiş- kenden, tek bir sabitten veya değiş- kenler, sabitler ve aritmetik işlemler- den oluşabilir. Aritmetik işlemler şun- lar olabilir: Aritmetik işlem Anlamı Toplama — Çıkarma £ Çarpma 4 , Bölme SANT :— SANTINCH * INCH; SANT değişkenine SANTINCH ve INCH değişkenlerinin değerlerinin çarpımı eşitlenmektedir. Bu işlem ya- pılmadan evvel SANTINCH ve INCH değişkenlerine geçerli değerler eşitlen- melidir., Bu da örnek programımız- da yapılmıştır. PASCAL'da şu tip bir atama ko- mutu kullanmak mümkündür: TOPLAM :- TOPLAM * VERİ; Burada TOPLAM değişkeni *:—/' işaretinin her iki yanında da bulun- maktadır. Bu elbette ki bir aritmetik işlem değildir., TOPLAM değişkeni- nin şu anki değerine VERİ değişkeni- nin değeri eklenerek tekrar TOPLAM değişkenine eşitlenir. Readln Komutu Eğer bir bilgi ilk önce bilgisayarın hafızasına alınmazsa bilgisayar tara- fından işlenemez. Bir veriyi bilgisaya- rın hafızasına yerleştirmenin üç yolu bulunmaktadır: Veriyi sabit olarak kullanma, veriyi bir değişkene yerleş- tirme, veya veriyi okuma (READ). İlk iki metodu kullanılacak değer prog- ram her çalıştırıldığında aynı olacak- sa kullanılabilir. Eğer program her ça- lıştırıldığında değişik değerler kullan- mak istiyorsak, o zaman verileri prog- ram çalışırken bilgisayara okumalıyız. Örnek: READLN(ücret); Programımız çalışması sırasında bu komuta geldiğinde sizin bir değer gir- meniz için bekleyecektir. Bir değer gir- dikten sonra RETURN tuşuna basma- İısınız. readIn (veri-listesi); Açıklama: Veri listesinde yeralan bütün değişkenlere sıra ile girilen de- gerler eşitlenecektir. Veri listesindeki DEGIŞKENLERI ayırmak için virgül kullanacağız. Veri listesindeki her de- ğişken için mutlaka bir değer girilme- lidir. Verilerin giriliş sırası değişken- lerin sırasına uyması gerekmektedir. Sayısal değerleri girerken her bir de- ğerin bitiminden sonra bir boşluk bı- rakılması gerekir. Değişkenin veri ti- pi karakter ise bilgisayara giriş yapar- ken boşluk bırakmanız gerekmez. Şimdilik hoşçakalın. O 1) World Games 11) 2) Tarzan 12) 3) Silent Servis 13] 4) Two on Two 14) 5) Leader Bard Gof 3- 15) 6) Highlander 16)R 7) Ace of Aces 17) 8) It's a Knockout 18) 9) Movie monster 19) 0) 20) 10) Super Cycle Super Oyunlarımız (Kaset) Teleteknik Yekkili Satıcısı ALFA SHOP İstanbul Cad. Güven İşhanı No.36 Giriş Kat Tel: 583 40 93 - Her çeşit Cormmodore ve Spectrum prg. bulunur. - Commodore 64/128 Freguenz veya Voltmetre olarak kullanmak istiyorsanız bize gelin - Her ayın modül haline getirilir. - Her türlü Hardware bulunur. Fiyatlarımız Kasette 1 oyun -4000 [I—Dîğ, gfnîğîavıvre[sg bölüm Kasette 1 oyun (özel kutuda) -1200 Sîol%ne Cobra Üm) Disket ve kasette 1 prg. -500 Slama 1 kasette 25 süper oyun -5000 Fooîboh”er of the Yedar | kasolla 15 s0ben SYN 3000 UTU'e K“'gm Ödemeli olarak gönderilir Antiriad Legend of Kage Mart ayının 2 haftası ucuzluk haftası Sky Runner 1 oyun alana 1 oyun bedava
