Turbo Pascal İle Programlamaya Başlamak...

var
e:string;
begin
write(‘notu girin: ‘);readln(e);
case e of
0..24:writeln(‘0’);
24..44: writeln(‘1’);
45..54: writeln(‘2’);
55..69: writeln(‘3’);
70..84: writeln(‘4’);
85..100: writeln(‘5’);
else
writeln(‘tanımsız..’);
end;
readln;
end.

Case bloğununda ayrıca bi end i olduğu için o bloğuda kapatmak zorundayız. 85..100 demek 85 ile 100 arasındaki sayıları kapsar anlamına gelir..

Şimdi bi vize final programı yazalım ve burada bir iki konuya daha değinmek istiyorum..

var
v,f,vize,final,ort:real;
begin
write(‘ilk vize notunu girip entere basın sonra final notunu girip entere basın..’);readln(v,f);
vize:=(v/100)*40;
final:=(v/100)*60;
if f<50 then
writeln(‘kaldınız…’);
elsebegin
ort:=vize+final;
if ort>49 then
writeln(‘geçtin’);
else 
writeln(‘kaldın.’);
end;
readln;
end.

bu programda da iç içe if sorgulamasını kullanabileceğimizi ve ancak bunu yine bir begin-end açarak yapabileceğimizi gördük… örnekler hakkında sorunlar veya anlayamadığınız bi yer olursa bana pm atın ben yardımcı olurum tekrar bir dahaki makalede görüşmek üzere...

Tarih: 03/Aralık/2005
Hit: 5691
Yazar: expert

Turbo Pascal İle Programlamaya Başlamak...

Yorumlar