contoh soal menghitung nilai akhir

Soal-soal

Buatlah program untuk menghitung nilai akhir, dengan ketentuan nilai akhir sama dengan :

10%Nilai Absen + 20%Nilai Tugas + 30%Nilai Mid + 40% Nilai Final.

• Nilai absen = Jumlah Kehadiran/15*100
• Nilai Tugas = Nilai Tugas1+Nilai Tugas2+....+NilaiTugas5/5
• Data yang di inputkan : Jumlah Kehadiran, 5 Nilai Tugas, Nilai Mid dan Nilai Final.

Jawaban  :

Program NilaiAkhir
User crt;

VAR       x,JmlKehadiran,TotNilaiTugas,NilaiMid,NilaiFinal: integer;

                Nilaiabsen,NilaiTugas,NilaiAkhir: Real;

                Nama: String;

Begin

Clrscr;

Write (‘Input Nama :’);

Readln(Nama);

While x:= <6 do

Write (‘Input Nilai Tugas ke’,x,’:’);

Read (NilaiTugas);

TotNilaiTugas := TotNilaiTugas + NilaiTugas;

X:= x+1

End;

NilaiTugas := TotNilaiTugas/5;

Writeln (‘Nilai Tugas =’,NilaiTugas);

Write (‘Input Jumlah Kehadiran :’);

Readln (JmlKehadiran);

NilaiAbsen := JmlKehadiran/15*100;

Write (‘Nilai Absen :’,NilaiAbsen);

Write (‘Input Nilai MID :’);

Readln (NilaiMID);

Write (‘Input Nilai Final :’);

Readln (NilaiFinal);

NilaiAkhir := (10/100*NilaiAbsen)+(20/100*NilaiTugas)+(30/100*NilaiMID)+(40/100*NilaiFinal);

Write (‘Nilai Akhir’,Nama :,’);
End.