Soal :
Buat aplikasi untuk menentukan nilai kelulusan siswa, dengan aturan sebagai berikut :
Siswa dikatakan lulus Jika Rata-rata pelajaran Bhs Indonesia, Agama, Matematika, IPA, IPS, Bhs Inggris diatas 60 dan nilai Matematika, IPA, Bhs Indonesia diatas 65.
Jawaban :
uses
SysUtils;
var
Bind, Agm, Mtk, IPA, IPS, Bing, ratarata : Real;
begin
Write('Nilai Bahasa Indonesia : '); Readln(Bind);
Write('Nilai Agama : '); Readln(Agm);
Write('Nilai Matematika : '); Readln(Mtk);
Write('Nilai IPA : '); Readln(IPA);
Write('Nilai IPS : '); Readln(IPS);
Write('Nilai Bahasa Inggris : '); Readln(Bing);
ratarata := (Bind+Agm+Mtk+IPA+IPS+Bing)/6;
Writeln('');
Writeln('Nilai Rata-rata : ', ratarata:0:2);
Writeln('');
if (ratarata > 60) and (Mtk > 65) and (IPA > 65) and (Bind > 65)then
Writeln('LULUS')
else Writeln('TIDAK LULUS');
Readln;
end.