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.

Contoh Membuat Aplikasi Menghitung dengan Pascal

Pascal merupakan bahasa pemrograman yang sering digunakan untuk membuat sebuah aplikasi sederhana, terutama aplikasi untuk menghitung. berikut beberapa contoh penulisan coding untuk menghitung dalam pascal

1. Menghitung Luas Persegi

Uses Crt

Var sisi: Real;

begin

clrscr;

writeln ('input sisi :'); Readln (sisi);

writeln ('Luas Persegi :', sisi*sisi :4:2);

readln;

end.

2. Menghitung Luas Persegi Panjang

Uses Crt

Var p,l: Real;

begin

clrscr;

writeln ('input panjang :'); Readln (p);

writeln('input lebar :'); Readln (l);

writeln ('Luas Persegi Panjang:', p*l :4:2);

readln;

end.

3. Menghitung Luas Segitiga

Uses Crt

Var a,t: Real;

begin

clrscr;

writeln ('input alas :'); Readln (a);

writeln('input tinggi :'); Readln (t);

writeln ('Luas Segitiga:', 1/2*a*t :4:2);

readln;

end.

4. Menghitung Luas Lingkaran

Uses Crt

Var r: Real;

begin

clrscr;

writeln ('input jari-jari :'); Readln (r);

writeln ('Luas Lingkaran:', 22/7*r*r :4:2);

readln;

end.