ortalama alma etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
ortalama alma etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
![]() |
| 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.
varKodları indirmek için tıklayınız.
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.
Previous PostÖnceki Kayıtlar
Ana Sayfa

