1 Haziran 1987 Tarihli Commodore Gazetesi Sayfa 65

FOR 1:—-1 TO 5 DO BEĞIİN WRITE 'AB' ; WRITE 'CD.' ; END; bi —2.0; Bu programda FOR komutu FOR dan başlayıp END'e kadar olan her şeyi içermektedir. Bu kısma tek bir komutmuş gibi davranabiliriz. Yazımızın bundan sonraki kısmın- da FOR komutunu kullanarak bir ör- nek program inceleyeceğiz. pr-l 26 satır 96 - 123 Programın açıklanması: Programı- mız belirli bir miktar paranın hesa- bınızda olduğunu ve her ay belli bir miktarın bu hesaba eklendiğini farz etmektedir. Eğer her ay belirli bir faiz yüzdesi hesaplanıp hesabınıza ekle- nirse sizin istediğiniz ay kadar sonra hesabınızın ne kadar olacağı hesap- lanacaktır. Programımızda hesabınızda bulu- nan para miktarı MİKTAR değişke- ninde saklanmaktadır. DEPOZİT de- ğişkeninde aylık depozit, YILLIK de- Bişkenine yıllık faiz yüzdesi ve AY de- ğişkeninde istediğiniz ay sayısı sak- lanmaktadır. Program başladığında sizden DEPOZİT, YILLIK ve AY değişkenlerinin ilk değerlerini isteye- cektir. Yıllık faiz yüzdesini aylık yüzdeye çevirmek için yıllık yüzdeyi 12.0'a bölmemiz gerekir. bu bize yüzde ola- rak sonuç verir bunu normale çevir- mek için 100.0'a bölmeliyiz. Progra- mımızda bunu şu komut yapmakta- dır: aylık: — yıllık/1200.00 Bu programda kullandığımız tek- niği başka programlara da uygula- mak mümkündür. Programın başın- da verilen miktar, aylık depozit ve fa- iz yüzdesi ile her ayın sonunda duru- munu elde etmek çok kolaydır. Biz sadece bu hesaplaşmayı kullanıcının istediği kadar ay için yapıyoruz. MİKTAR değişkenin değeri o an- daki hesabınızda bulunan miktardır. Aylık depozit yapıldığında bunun de- Beri hesaptaki miktara eklenmekte- dir. Bunu programımızda yapan ko- mutu da şudur: miktar: — miktar 4 depozit Belirli bir ay için kazanılan faizi hesaplamak için hesaptaki miktarı aylık faizle çarpıyoruz: faiz: — miktar * faiz Her ayın sonunda kazanılan faiz hesapta bulunan miktara ekleniyor, bunu yapan komut şudur: miktar: — miktar 4 faiz Hesaptaki miktarı verilen ay so- nunda hesaplamak için bu komutla- rı istenen ay sayısı kadar tekrarlama- mız gerekmektedir. FOR KOMUTUNUN İÇİÇE KUL- LANIMI İç içe döngüleri açıklamaya bir ör- nekle başlayalım. PROGRAM kalıp; * dik üçgen * Commodore VAR 1,J:ENTEGER; BEGIN FOR 1:-1 TO 5 DO BEĞIN FOR j:—-1 TO1DO Write (**'); WRIİTELN END END. * akak akakak Kekakak KK kakak Bu çıktıyı alabilmek için iki FOR komutu kullandık, FOR komutların- dan biri beş satırın basılmasını, diğe- ri de her satırda gerektiği kadar yıldız basılmasını sağladı. Programımız şu şekilde çalışmak- tadır, içteki FOR komutu ı değişke- ninin belirttiği satırda, ı değişkeninin değeri kadar yıldız basıyor, yani bi- rinci satırda bir yıldız, ikinci satırda iki yıldız şeklinde: İçte bulunan FOR döngüsü bittiğinde 1 değişkeninin de- Beri bir artmaktadır, böylece içteki döngüye tekrar sıra geldiğinde bir ön- ceki satıra göre bir yıldız daha fazla basılmaktadır. Bu yazımızda döngü komutların- dan FOR komutunu inceledik. Ge- lecek yazımızda döngü komutlarının tanıtımına devam edecek ve konunun daha iyi anlaşılabilmesi için örnekler vereceğiz. Şimdilik hoşçakalın. 65