Diberikan Soal sebagai berikut....
Buatlah sebuah program daftar nilai mahasiswa dengan inputan : Nama, Nim, Nilai Tugas, Nilai Mid, Nilai Akhir dengan perintah readln kemudian hitung rata rata dengan rumus = (0.5 x Nilai Tugas) + (0.25 x Nilai Mid) + (0.25 x Nilai Akhir)...
binggung???? ini dia solusinya
program DaftarNilaiMahasiswa ;
{ inputkan nama, nim, nilai tugas, nilai mid dan nilai akhir }
uses wincrt ;
var
Nama : string ;
Nim : string ;
Nilai_Tugas : integer ;
Nilai_Mid : integer ;
Nilai_Akhir : integer ;
Rata_Rata : real ;
begin
writeln ('//////////////////////////////////////////////////') ;
writeln (' DAFTAR NILAI MAHASISWA ') ;
writeln ('//////////////////////////////////////////////////') ;
write ( 'Nama : ' , Nama ) ; readln (Nama) ;
write ( 'Nim : ' , Nim ) ; readln (Nim) ;
write ( 'Nilai_Tugas :' , Nilai_Tugas ) ; readln (Nilai_Tugas);
write ( 'Nilai_Mid :' , Nilai_Mid ) ; readln (Nilai_Mid) ;
write ( 'Nilai_Akhir :' , Nilai_Akhir ) ; readln (Nilai_Akhir) ;
Rata_Rata := (0.5 * Nilai_Tugas) + (0.25 * Nilai_Mid) + (0.25 * Nilai_Akhir) ;
writeln ( 'Rata_Rata :' , Rata_Rata:0:2 ) ;
end.
NB : Program ini dibuat dengan menggunakan Turbo Pascal, jika anda menggunakan free pascal silahkan hapus syntax 'uses wincrt ;' nya
Program di atas bila di pakai array',, Solusinya??????
BalasHapusboleh requst ga nih...???
BalasHapusklo boleh langsung ja ya,,
bngung nih soal ini... mklum msi awam... :D
Buat program dgn inputan : NIM, Nama, Nilai Pascal
Jika, nilai pascal >=85 maka mutu huruf A
Jika, nilai pascal >=70<=85 maka mutu huruf B
Jika, nilai pascal>=55<=70 maka mutu huruf C
Jika, nilai pascal>=40<=55 maka mutu huruf D
Jika, nilai pascal>=30<=39 maka mutu huruf E
Tambahkan variabel keterangan, jika mutu huruf A,B,C,D maka Lulus, jika E maka belum lulus.