Algoritma Menghitung nilai mahasiswa

Berikut adalah algoritma cara menghitung nilai mahasiswa akhir semester:

program Menghitung_Nilai_Akhir_Mahasiswa;

uses crt;

var nama,mata_kuliah: string;

tugas,UTS,UAS,nilai: integer;

Nilai_Akhir: real;

begin

clrscr;

writeln;

writeln(' PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA ');

writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln;

writeln(' Masukkan Identitas Diri!');

write(' Nama : ');

readln(nama);

write(' NIM : ');

readln;

write(' Kelas : ');

readln;

write(' Mata Kuliah : ');

readln(mata_kuliah);

write(' Alamat : ');

readln;

writeln;writeln;

write(' > Masukkan Nilai Tugas : ');

readln(tugas);

write(' > Masukkan Nilai UTS : ');

readln(UTS);

write(' > Masukkan Nilai UAS : ');

readln(UAS);

writeln;

Nilai:=25*tugas+25*uts+50*uas;

write(' Jumlah Nilai anda adalah : ',nilai);

writeln;

nilai_akhir:=nilai/100;

write(' NILAI AKHIR ANDA = ',nilai_akhir:0:2);

writeln;

writeln;

case nilai of

0..2500 : writeln(' Astaghfirullah ',NAMA,'. NILAI ANDA adalah E ');

2600..3900 : writeln(' MAAF ',NAMA,'. NILAI ANDA = D . ');

4000..6500 : writeln(' ',NAMA,'. NILAI ANDA = C ');

6600..7900 : writeln('',NAMA,'. NILAI ANDA = B ');

8000..10000: writeln('ALHAMDULILLAH ',nama,'. NILAI ANDA Adalah A.Pertahankan Prestasimu!!!');

else

writeln('Nilai anda tidak ditemukan');

end;

readln;

end.

(Hasilnya adalah sebagai berikut!)