berikut saya akan memposting contoh program berbahasa pascal dengan pemakaian case of , silahkan di coba semoga bermanfaat :)
uses wincrt;
var pil :integer;
p,l,t,kll,lu,vol:real;
begin
clrscr;
writeln('selamat datang ');
writeln('-------------- ');
writeln('1-->Mencari keliling persegi panjang');
writeln('2-->Mencari luas persegi panjang ');
writeln('3-->Mencari volume balok ');
write('input pilihan anda [1..3] : ');readln(pil);
case pil of
1 : begin
write('panjang = ');readln(p);
write('lebar = ');readln(l);
kll:=2*(p+l);
writeln('keliling = ',kll:0:2);
end;
2 : begin
write('panjang = ');readln(p);
write('lebar = ');readln(l);
lu:=p*l;
writeln('luas = ',lu:0:2);
end;
3 : begin
write('panjang = ');readln(p);
write('lebar = ');readln(l);
write('tinggi = ');readln(t);
vol:=p*l*t;
writeln('volume = ',vol:0:2);
end;
else writeln('maaf pilihan anda tidak ada ');
end;
end.
No comments:
Post a Comment