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.