Ö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.
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.