Page 60 - Pemrograman Dasar kelas X

56 Pemrograman Dasar SMK Kelas X Sem 2

end.

Kasus 2

program VolumeTabung;
const Phi=3.14;

var r, t, V;
begin
readln(r);

readln(t);
V:=Phi*r*r*t;
writeln('Volume Tabung adalah ',V);

readln;
end.

Kasus 3

program UAN;
var NilaiMat, NilaiInd, NilaiIngg:integer;

rerata:real;
stsLulus:booelan;

begin
readln(NilaiMat);
readln(NilaiInd);

readln(NilaiIngg);
rerata:=(NilaiMat_NilaiInd+NiliaIngg)/3;

stsLulus:=(rerata>=60);
writeln('Rata-rata Nilia UAN adalah ', rerata);
writeln(‘Status Kelulusan adalah ‘, stsLulus);

readln;
end.