Sayfa 29

PROGRAM 1

Programımızda MİLYONLİRA belirtecini sabit olarak tanımlıyoruz. GÜNLÜKÜCRET, TOPLAMÜCRET değişkenlerinin veri tipi REAL, ÇALIŞILANGÜN değişkeninin veri tipi ise INTEGER. GÜNLÜKÜCRET değişkenini her gün ödenilen ücreti saklamak için kullanıyoruz. ÇALIŞANGÜN değişkeninde o ana kadar çalışılan gün sayısı saklanıyor. TOPLAMÜCRET değişkeninde o ana kadar kazanılmış olan toplam para saklanıyor.

Hesaplamalara başlamadan evvel çalışılan gün sayısını ve toplam ücreti sıfıra eşitliyoruz. Günlük ücrete 1 değerini veriyoruz. GÜNLÜKÜCRET := 1.0; ÇALIŞANGÜN := 0; TOPLAMÜCRET := 0.0 komutları ile istediğimiz atamaları yapmış oluyoruz.

Hesaplamalarımız TOPLAMÜCRET değişkeninin değeri MİLYONLİRA belirtecinin değerinden küçük olduğu sürece devam edecek.