Algoritma & Pemrograman 1 (program untuk menghitung nilai akhir, dengan ketentuan nilai akhir)

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.

Terima kasih, semoga berguna..