Contoh Coding Free Pascal menghitung Volume Bangun Ruang

 Free Pascal merupakan bahasa program gratis yang sering digunakan untuk membuat aplikasi perhitungan, berikut ini adalah beberapa contoh coding untuk membuat aplikasi menghitung volume pada Free Pascal

1. Volume Kerucut

Uses Crt

Var r,t : Real;

Begin

Clrscr;

Writeln ('input jari-jari :');

Readln (r);

Writeln ('input tinggi :');

Readln (t);

Writeln ('Volume Kerucut =', 1/3*22/7*r*r*t :4:2);

Readln;

end.

2. Volume Tabung

Uses Crt

Var r,t : Real;

Begin

Clrscr;

Writeln ('input jari-jari :');

Readln (r);

Writeln ('input tinggi :');

Readln (t);

Writeln ('Volume Tabung =', 22/7*r*r*t :4:2);

Readln;

end.

3. Volume Balok

Uses Crt

Var p,l,t : Real;

Begin

Clrscr;

Writeln ('input Panjang :');

Readln (p);

Writeln ('input Lebar :');

Readln (l);

Writeln ('input Tinggi :');

Readln (t);

Writeln ('Volume Balok =', p*l*t :4:2);

Readln;

end.

4. Volume Kubus

Uses Crt

Var s : Real;

Begin

Clrscr;

Writeln ('input Sisi :');

Readln (s);

Writeln ('Volume Kubus =', s*s*s :4:2);

Readln;

end.

5. Volume Bola

Uses Crt

Var r : Real;

Begin

Clrscr;

Writeln ('input Jari-Jari:');

Readln (r);

Writeln ('Volume Bola =', 4/3*22/7*r *r*r :4:2);

Readln;

end.