MENGHITUNG VOLUME TABUNG DENGAN PASCAL
MENGHITUNG VOLUME TABUNG DENGAN PASCAL
Berikut adalah cara menghitung volume tabung
menggunakan pascal.
1.Programnya
program volume_tabung;
uses crt;
const phi=3.14;
var
r,t,v:real;
begin
clrscr;
writeln('Program Hitung Volume Tabung');
write('Masukkan jari jari alas tabung=');readln(r);
write('Masukkan tinggi tabung=');readln(t);
V :=phi*r*r*t;
writeln('Volume tabung =',V:2:2);
readln;
end.
2.Gambarnya
3.Hasilnya
Berikut adalah cara menghitung volume tabung
menggunakan pascal.
1.Programnya
program volume_tabung;
uses crt;
const phi=3.14;
var
r,t,v:real;
begin
clrscr;
writeln('Program Hitung Volume Tabung');
write('Masukkan jari jari alas tabung=');readln(r);
write('Masukkan tinggi tabung=');readln(t);
V :=phi*r*r*t;
writeln('Volume tabung =',V:2:2);
readln;
end.
2.Gambarnya
3.Hasilnya


Komentar
Posting Komentar