Tugas I Algoritma Pemrograman II

Soal

Racang program untuk menghitung nilai akhir, dimana nilai akhir diperoleh dari akumulasi :

                (10%NilaiAbsen, 20%NilaiTugas, 30%NilaiMid, 40%NilaiFinal)

NilaiAbsen          = JumlahKehadiran/15 *100

NilaiTugas            = NilaiTugas1+NilaiTugas2+….+NilaiTugas5/5

Data yang di input : Jumlah Kehadiran, 5 Nilai Tugas, dan Nilai MID % 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.