Turbo Pascal İle Programlamaya Başlamak...

Olarak kullanılan bi bloktur. Eğer if-then arasına yazıcağımız olay gerçekleşmiş veya true ise if bloğu çalışır eğer false ise çalışmaz ve if bloğunun altındaki kod vea kod bloğu(begin-end) çalıştırılmaz… mesela 5 lik not sistemini ele alalım 3 tane yazılı okutup ortalamasını alalım ve hangi nota karşılık gelio onu bulduralım…

Uses crt;
Var
a,b,c:integer;
ort1:real;
begin
clrscr;
write(‘1. yazılı : ‘);readln(a);
write(‘2. yazılı : ‘);readln(b);
write(‘3. yazılı : ‘);readln(c);
ort1:=(a+b+c)/3;
if ort1<25 then
writeln(‘0’);
if ort1<45 then
writeln(‘1’);
if ort1<55 then
writeln(‘2’);
if ort1<70 then
writeln(‘3’);
if ort1<85 then
writeln(‘4’);
else
writeln(‘5’);
readln;end.

Evet şimdi programda bu gibi kodlar yazdık bunlar ne işe yarıyor. Hatırladğımz gibi ort değişkeninde notların ortalamasını almıştık ve bu blok içerinde de  “if ort1<25 then “ eğer “ort1” 25 den küçük ise ekrana sıfır yazdırdık “writeln(‘0’)”…

2. olarak CASE bloğu..: case bloğunda da case e gelen değer içinde tanıtmış olduğumuz birimlerle karşılaştırılır ve hangi birime karşılık geliyorsa o birimdeki kodlar çalıştırılır. Yine bi örnekle anlatalım… 100’lük not sistem yapalım ve girdiğimiz sayıya karşılık gelen notu bulduralım