ada yg bisa program pascal?
cara menentukan indeks nilai mahasiswa..
- nilai akhir dihitung dari 30% UTS, 40% UAS, 20% tugas dan 10% kehadiran
- indeks nilai ditentukan berdasarkan nilai (NA),
bila NA >= 85 maka indeksnya A
bila 85 > NA >= 70 maka nilai indeksnya B
bila 70 > NA >= 55 maka nilai indeksnya C
bila 55 > NA >= 40 maka nilai indeksnya D
bila NA < 40 maka nilai indeknya E
mohon bantuannya .....
Comments
uses wincrt;
var
NilaiUTS, NilaiUAS, NilaiTugas, NilaiKehadiran, NA:real;
begin
write('Masukkan nilai UTS:');
readln(NilaiUTS);
write('Masukkan nilai UAS:');
readln(NilaiUAS);
write('Masukkan nilai Tugas:');
readln(NilaiTugas);
write('Masukkan nilai Kehadiran:');
readln(NilaiKehadiran);
NA := (0.3 * NilaiUTS) + (0.4 * NilaiUAS) + (0.2 * NilaiTugas) + (0.1 * NilaiKehadiran);
If NA > 84 then
writeln('A');
If NA < 85 and NA > 69 then
writeln('B');
If NA < 70 and NA > 54 then
writeln('C');
If NA < 55 and NA > 39 then
writeln('D');
Else
writeln('E');
End.