Sayfa 30

PROGRAM 2

Bu programımızda çubuk grafiği çizdirmeyi amaçlıyoruz. Programımız veri olarak REAL tipte sayılar kabul edecek. -1 özel değerini verinceye kadar veri girişi devam edecek.

Programımızda BASKI değişkeninin tipi INTEGER, bu değişkende kaç tane yıldız basacağımızı saklıyoruz. SAYI değişkeninin tipi ise REAL, bu değişkene veriler okunuyor. ROUND fonksiyonu sayesinde okunan veriyi en yakın tam sayıya çeviriyoruz. Elde ettiğimiz bu değer BASKI değişkenine eşitleniyor. SAYAÇ değişkeninde ise işlediğimiz verilerin sayısını tutuyoruz. Son olarak I değişkeni de FOR döngüsünde sayaç görevi yapıyor.

PROGRAM 3

Programımızda YIRMİBİR oyununun simulasyonunu yapacağız. Bu oyunda oyuncuya ilk başta iki kart verilir, daha sonra oyuncu isterse başka kart alabilir. Oyunun amacı elinizdeki kartların değerlerinin mümkün olduğu kadar yüksek olması, ancak bu değer 21'i geçmemeli eğer 21'i geçerseniz PATLAR ve oyunu kaybedersiniz.

Her dönüşte oyuncu isterse yeni bir kart alabilir isterse almaz. Eğer oyuncu 21'i geçeceğinden korkarsa artık kart almaz.

Oyundaki dağıtıcı da oyuncu gibi oynar fakat oyuncunun sahip olduğu alternatiflere sahip değildir. Dağıtıcının elindeki kâğıtların değeri 16 veya bundan daha düşükse dağıtıcı yeni bir kart almak zorundadır. Bu durumda dağıtıcının eli 16'dan büyük ama 21'den küçük-