By: Cha-Cha D AceWell
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!)
Postingan
0 Responses to "Algoritma Menghitung nilai mahasiswa"