İF / THEN / ELSE Yapısını Kullanarak Örnek Bir Program Yazalım... Nasıl Mı ?

     Arkadaşlar, bu hafta size if / then / else yapısını kullanarak vize-final notunun ortalamasını hesaplayan bir program nasıl yazılır onu göstereceğim.

      -Programımızı yazmak için öncelikle form (çalışma) alanımızı açalım ve daha sonra form alanımıza 3adet label ekleyip object ınspector kutumuzdan label'larımızın isimlerini ;
   
-Label1= vize
-Label2= final ve
-Label3= ortalama

olarak değiştirip kaydedelim ve bir adette buton ekleyip butonumuzun adınıda aynı şekilde object ınspector alanından "ortalama" adını vererek değiştirelim. Ve form alanımıza 3 adette edit kutucuğu yerleştirelim ve bunlar sırasıyla Label kutularımızın karşısına gelecek şekilde olsun ;

     






Daha sonra butonumuzu çift tıklayarak kod bölümümüze girelim  ve programımızı yazmaya başlayalım. program başlığının altında begin blogunu göreceğiz. Begin blogumuzdan önce bir değişken tanımlayalım. Ve bu değişkenimize "ort" diyelim. Programımız işlem sırasına göre şöyle olmalıdır ;


  var
ort : real;

begin

ort:=strtoint(edit1.text)*0.4+strtoint(edit2.text)*0.6;

if (ort-trunc/ort))>0.5 then

edit3.text:=inttostr(trunc(ort)+1)

else

edit3.text:=inttostr(trunc(ort));

end;

end.

        Programımızı tamamladıktan sonra F9 tuşuna basarak programımızı çalıştırabiliriz.

        Yazdığımız programda aklınıza takılabilecek ifadeler ;


1-Strtoint nedir ? 

-String olan değerimizi integer yapar.

2-Trunc nedir ?

-Oracle / PLSQL olarak, trunc fonksiyonu ondalık basamak belirli sayıda kesilmiş bir sayı döndürür.
 Trunc işlevi için sözdizimi şöyledir:

   -trunc (sayı, [decimal_places])

 decimal_places için kesecek ondalık basamak sayısıdır. Bu değer bir tamsayı olmalıdır. Bu parametre atlanırsa, trunc işlevi 0 ondalık sayı keser.

3-inttostr nedir ?

-integer olan değerimizi string yapar.