Menghitung Nilai Akhir Sederhana Pada Turbo Pascal

Ketentuan:
Nilai UTS = 40%
Nilai UAS = 60%
Nilai Akhir = 40% * UTS + 60% * UAS

uses crt;
var
   na,uts,uas: real;

begin
     clrscr;
     writeln('Menghitung Nilai Akhir');
     writeln('----------------------');
     write('UTS: '); readln(uts);
     write('UAS: '); readln(uas);

     na := 0.4*uts+0.6*uas;
     writeln('Nilai Akhir: ',na:1:0);
     readln;
end.

Hasilnya sebagai berikut.

Tweet