Contoh Program Pascal

Program Menghitung_Bangun_Datar_Dan_Bangun_Ruang;

uses wincrt;

Var

Pilih : Integer;

Procedure persegi ;

Var

s, L, K : Real;

Begin

Writeln(' || Menghitung Luas dan Keliling Persegi ||');

Writeln(' ');

Write('Masukkan sisi : ');Readln(s);

L := s*s;

K := 4*s;

Writeln('Luas : ', L:0:0);

Writeln('Keliling : ', K:0:0);

Readln;

end;

Procedure  PersegiPanjang ;

Var

p, lbr, L, K : Real;

Begin

Writeln(' || Menghitung Luas dan Keliling Persegi Panjang || ');

Writeln(' ');

Write('Masukkan panjang : ');Readln(p);

Write('Masukkan lebar : ');Readln(lbr);

L := p*lbr;

K := 2*(p+lbr);

Writeln('Luas : ', L:0:0);

Writeln('Keliling : ', K:0:0);

Readln;

end;

Procedure  Segitiga  ;

Var

a, t, sm, L, K : Real;

Begin

Writeln(' || Menghitung Luas dan Keliling Segitiga Siku-Siku|| ');

Writeln(' ');

Write('Masukkan alas : ');Readln(a);

Write('Masukkan tinggi : ');Readln(t);

L:= 0.5*a*t;

sm:= sqrt(sqr(a)+sqr(t));

K:= a+t+sm;

Writeln('Luas : ', L:0:2);

Writeln('Keliling : ', K:0:2);

Readln;

end;

Procedure Lingkaran;

 Var

r, L, K : Real;

Begin

Writeln(' || Menghitung Luas dan Keliling Lingkaran || ');

Writeln(' ');

Write('Masukan jari-jari : ');Readln(r);

L:= 22/7*(sqr(r));

K:= 2*22/7*r;

Writeln('Luas : ', L:0:2);

Writeln('Keliling : ', K:0:2);

Readln;

end;

Procedure Kubus;

Var

s, V, Lp : Real;

Begin

Writeln(' || Menghitung Volume dan Luas permukaan Kubus|| ');

Writeln(' ');

Write('Masukan sisi : ');Readln(s);

V:= s*s*s;

Lp:= 6*s*s;

Writeln('Volume : ', V:0:0);

Writeln('Luas Permukaan : ', Lp:0:0);

Readln;

end;

Procedure Balok;

Var

p, l, t, V, Lp : Real;

Begin

Writeln(' || Menghitung Volume dan Luas Permukaan Balok || ');

Writeln(' ');

Write('Masukan panjang : ');Readln(p);

Write('Masukan lebar : ');Readln(l);

Write('Masukan tinggi : ');Readln(t);

V:= p*l*t;

Lp:= 2*p*l+2*p*t+2*l*t;

Writeln('Volume : ', V:0:0);

Writeln('Luas Permukaan : ', Lp:0:0);

Readln;

end;

Procedure BangunDatar;

Begin repeat

clrscr;

Writeln('<<<<<<<  Cara Cepat Menghitung Luas dan Keliling Bangun Datar  >>>>>>> ');

writeln('=======================================================================');

Writeln(' ');

Writeln(' Pilihan : ');

Writeln(' ');

Writeln(' 1. Menghitung Luas dan Keliling Persegi ');

Writeln(' 2. Menghitung Luas dan Keliling Persegi Panjang ');

Writeln(' 3. Menghitung Luas dan Keliling Segitiga ');

Writeln(' 4. Menghitung Luas dan Keliling Lingkaran ');

Writeln(' 5. Keluar ');

Write(' Pilih Angka untuk memilih pilihan : ');

Readln(pilih);

Writeln (‘ ‘);

Writeln (‘ Tekan Enter Untuk Kembali ke Menu’ );

Writeln (‘ ‘);

case pilih of

1 : Persegi ;

2 : PersegiPanjang  ;

3 : Segitiga ;

4 : Lingkaran ;

5 : exit;

end;

until pilih = 5;

end;

Procedure BangunRuang;

Begin 

repeat

clrscr;

Writeln('<<<< Cara Cepat Menghitung Volume dan Luas Permukaan Bangun Ruang >>>>');

writeln('================================================================');

Writeln(' ');

Writeln(' Pilihan : ');

Writeln(' ');

Writeln(' 1. Menghitung Volume dan Luas Permukaan Kubus ');

Writeln(' 2. Menghitung Volume dan Luas Permukaan Balok ');

Writeln(' 3. Keluar ');

Write(' Pilih Angka untuk memilih pilihan : ');

Readln(pilih);

Writeln (‘ ‘);

Writeln (‘ Tekan Enter Untuk Kembali ke Menu’ );

Writeln (‘ ‘);

case pilih of

1 : Kubus;

2 : Balok;

3 : exit;

end;

until pilih = 3;

end;

procedure tampilan_awal ;

begin

     writeln('============================= ');

     writeln('        Mata Pelajaran        ');

     writeln('           Tentang           ');       

     writeln('         Bangun Datar        ');

     writeln('             Dan            ');

     writeln('         Bangun Ruang        ');

     writeln('=============================');

     writeln;

end;  

Begin

repeat

clrscr;

tampilan_awal;

Writeln(' || <<<<<<< Cara Cepat Mengerjakan Soal-Soal Matematika >>>>>>> || ');

writeln(' ================================================================= ');

Writeln(' ');

Writeln(' Pilihan : ');

Writeln(' ');

Writeln(' 1. Mengerjakan Soal-Soal Mengenai Bangun Datar ');

Writeln(' 2. Mengerjakan Soal-Soal Mengenai Bangun Ruang ');

Writeln(' 3. Keluar ');

Writeln(' ');

Write(' Pilih Angka untuk memilih pilihan : ');

Readln(pilih);

case pilih of

1 : BangunDatar;

2 : BangunRuang;

3 : exit;

end;

until pilih = 3;

End.