pascalda vize final geçti kaldı hesaplama etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
pascalda vize final geçti kaldı hesaplama etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

18 Ekim 2009 Pazar

Pascalda Geçti Kaldı Not Hesaplama, Pascalda Vize Final Geçti Kaldı Hesaplama

uses crt;
var
     v,f:byte;
     ort:real;
begin
     clrscr;
     write ('Vize Notu=');readln(v);
     write ('Final Notu=');readln(f);

     ORT:=(V*0.4)+(F*0.6);

     writeln('ORTALAMA NOTU=ORT:5:1);
     if ORT=60 then

     Writeln('Dersten Geçti')
     Else Writeln('Dersten Kaldı');

     if (ORT=80) and (ORT;=100) then
     Writeln('Durumu Çok İyi')

     Else If (ORT;=60) and (ORT;=80) then
     Writeln('Durumu İyi')

     Else Writeln('Durumu Kaldı');
     Readln;
End.