program tabung;
uses wincrt;
var r,t,v:real;
begin
writeln(' ====================================');
writeln(' =====*Menghitung Volume Tabung*=====');
writeln('================================================================================');
writeln;
writeln;
write('Masukkan jari-jari tabung = '); readln(r);
write('Masukkan tinggi tabung = '); readln(t);
writeln;
v:=3.14*r*r*t;
write('Maka volume tabung = ',v:6:2);
writeln;
writeln;
writeln;
writeln;
write('================================================================================');
writeln(' ==*RICKYSEPRIYANTO_13010241*==');
writeln(' ==================================');
end.
No comments:
Post a Comment