Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang kelulusan.

program Kelulusan;
uses wincrt;
var
a,b,c,d:real;
Ket:string[11];
begin
writeln ('Masukkan Nilai PDB=');readln(a);
writeln ('Masukkan Nilai Kalkulus=');readln(b);
writeln ('Masukkan Nilai Statistika Inferensial=');readln(c);
d:=(a+b+c)/3;
Writeln ('Rata-rata Nilai',(d):5:2);
Ket:='Lulus';
if d <50 then Ket:='Tidak Lulus';
writeln(Ket);
end.

Posted in: kelulusan,pascal