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.

Pascalda Not Hesaplama, Pascalda Vize Final Hesaplama

Kod Satırları:

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('ORT=',ORT:5:1);
     if ORT>=60 then
     Writeln('Geçti')
     Else Writeln('Kaldı');
     Readln;
End.