Turbo Pascal'da Vize ve Final Notlarının Ortalamasını Alma

Turbo Pascal

Merhaba arkadaşlar bundan sonra sizlere pascal programlama dili ile yapılmış örnekler verecegimi daha önce söylemiştim sıradaki örnegimiz pascal programlama'da vize ve final not hesaplama yapmayı saglayan program kodlarını paylaşacagım.Bu örnegimizde klavyeden deger girmeyi, case yapısını ve ortalama almayı görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.

var
vize:integer;
final:integer;
ort:real;
begin
readln (vize , final);
div ort:=vize+final/2;
case ort of
0..49:writeln('FF');
50..59:writeln('CC');
60..69:writeln('CB');
70..79:writeln('BB');
80..89:writeln('BA');
else writeln('AA');
end;
readln;
end.

Kodları indirmek için tıklayınız.