18 Ekim 2009 Pazar

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.



Hiç yorum yok:

Yorum Gönder