Bagaimana Contoh Pembuatan Program Algolritma Pengimput Nilai

program Nilai_Akhir ;

 

uses

winCrt ;

Var

mid,tugas,final,nilai:real;

 

begin

clrscr;

writeln ('masukkan nilai Tugas=');

readln (tugas) ;

writeln ('masukkan nilai Mid=') ;

readln (mid) ;

writeln ('masukkan nilai Final=') ;

readln (final) ;

nilai:=0.3*tugas+0.3*mid+0.4*final;

writeln ('Total Nilai=',nilai:4:2);

if

nilai>=80

then

writeln('Nilai Anda A (Tuntas)')

else if

nilai>=70

then

writeln('Nilai Anda B (Tuntas)')

else if

nilai>=60

then

writeln('Nilai Anda C (tuntas)')

else if

nilai>=50

then

writeln('Nilai Anda D (tidak tuntas)')

else

writeln('Nilai Anda E (tidak tuntas)')

End.