If...Then...Else

 

Öncelikle kelimelerin anlamlarını ögrenelim;
If : eğer.
Then : ise.
Else : değilse.

İkinci olarak yapısını ögrenelim;
if ŞART then KOMUT VEYA İŞLEM
örn/ if yas<18 then write('Ehliyet alamaz');

Şimdi ise tamamını yani if...then...else nasıl kullanılır onu ögrenelim
Yapısı:
if yas<18 then write('Ehliyet alamaz')
else write('Ehliyet alabilir');

NOT: Dikkat ettinizmi bilmiyorum ama else var ise elseden önce ";" kullanılmaz.

Örnek:

uses crt;
var
y1,y2,y3,soz:integer;
ort::real;
begin
writeln('1.yazılı notunu giriniz'); readln(y1);
writeln('2.yazılı notunu giriniz'); readln(y2);
writeln('3.yazılı notunu giriniz'); readln(y3);
writeln('Sözlü notunu giriniz'); readln(soz);
ort : = (y1+y2+y3+soz)/4;
if ort<45 then writeln('Başarısız');
else writeln('Başarılı');
readln;
end.

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

if then else