Contoh Soal dan Jawaban Latihan Pemrograman Algoritma

Iseng-iseng cek folder pembelajaran saya pas SMK dulu. Eh nemu ini latihan soal untuk algoritma. Langsung saja silahkan di pelajari kalo perlu. Program menggunakan bahasa pascal.

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..