Sayfa 65

FOR I:=1 TO 5 DO BEGIN WRITE ('AB'); WRITE ('CD'); END; 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ında FOR komutunu kullanarak bir örnek program inceleyeceğiz. pr-1 26 satır 96 - 123 Programın açıklanması: Programımız belirli bir miktar paranın hesabı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 eklenirse sizin istediğiniz ay kadar sonra hesabınızın ne kadar olacağı hesaplanacaktır. Programımızda hesabınızda bulunan para miktarı MİKTAR değişkeninde saklanmaktadır. DEPOZİT değişkeninde aylık depozit, YILLIK değişkeninde yıllık faiz yüzdesi ve AY değişkeninde istediğiniz ay sayısı saklanmaktadır. Program başladığında sizden DEPOZİT, YILLIK ve AY değişkenlerinin ilk değerlerini isteyecektir. 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 olarak sonuç verir bunu normale çevirmek için 100.0'a bölmeliyiz. Programımızda bunu şu komut yapmaktadır: AYLIK:=YILLIK/1200.00 Bu programda kullandığımız tekniği başka programlara da uygulamak mümkündür. Programın başında verilen miktar, aylık depozit ve faiz yüzdesi ile her ayın sonunda durumunu 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 andaki hesabınızda bulunan miktardır. Aylık depozit yapıldığında bunun değeri hesaptaki miktara eklenmektedir. Bunu programımızda yapan komut da şudur: MİKTAR:=MİKTAR+DEPOZİT Belirli bir ay için kazanılan faizi hesaplamak için hesaptaki miktarı aylık faizle çarpıyoruz: FAİZ:=MİKTAR*AYLIK Her ayın sonunda kazanılan faiz hesapta bulunan miktara ekleniyor, bunu yapan komut şudur: MİKTAR:=MİKTAR+FAİZ Hesaptaki miktarı verilen ay sonunda hesaplamak için bu komutları istenen ay sayısı kadar tekrarlamamız gerekmektedir.

FOR KOMUTUNUN İÇ İÇE KULLANIMI

İç içe döngüleri açıklamaya bir örnekle başlayalım. PROGRAM kalıp; * dik üçgen *

VAR BEGİN FOR 1:—1 TO 5 DO BEGİN FOR j:—-1 TO 1 DO Write (*'); WRITELN END END.

* ** **x

Bu çıktıyı alabilmek için iki FOR komutu kullandık, FOR komutlarından biri beş satırın basılmasını, diğeri de her satırda gerektiği kadar yıldız basılmasını sağladı. Programımız şu şekilde çalışmaktadır, içteki FOR komutu I değişkeninin belirttiği satırda, I değişkeninin değeri kadar yıldız basıyor, yani birinci satırda bir yıldız, ikinci satırda iki yıldız şeklinde: İçte bulunan FOR döngüsü bittiğinde I değişkeninin değeri bir artmaktadır, böylece içteki döngüye tekrar sıra geldiğinde bir önceki satıra göre bir yıldız daha fazla basılmaktadır. Bu yazımızda döngü komutlarından FOR komutunu inceledik. Gelecek 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şça kalın.

65