Program Hitungan Matematika Pada Pascal (Procedure dan If)

1.       LISTING PROGRAM HITUNG MATEMATIKA DENGAN PROCEDURE

program hitungan_matematika;

uses wincrt;

var

menu : integer;

ulang : char;

a,t,h : real;

p,l,v:real;

s,j:real;

al,tg,lu:real;

procedure luas_segitiga;

begin

     repeat

     clrscr;

     writeln ('Menghitung Luas Segitiga');

     write ('Masukan Nilai Alas  : ');readln(a);

     write ('Masukan Nilai Tinggi :');readln(t);

     writeln ('Rumus : a*t/2');

     h:=a*t/2;

     writeln ('Luas Segitiga Adalah :',h:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure volume_balok;

begin

     repeat

     clrscr;

     writeln ('Menghitung Volume Balok ');

     write ('Masukan Nilai Panjang :');readln (p);

     write ('Masukan Nilai Tinggi  :');readln(l);

     write ('Masukan Nilai Lebar   :');readln(t);

     writeln ('Rumus : p*l*t');

     v :=p*l*t;

     writeln ('Volume Balok adalah :',v:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure volume_kubus;

begin

     repeat

     clrscr;

     writeln ('Menghitung Volume kubus ');

     write ('Masukan Nilai sisi :');readln (s);

     writeln ('Rumus : s*s*s');

     j:=s*s*s;

     writeln ('Volume kubus adalah :',j:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

procedure luas_jajar_genjang;

begin

     repeat

     clrscr;

     writeln ('Menghitung luas jajar genjang ');

     write ('Masukan Nilai alas :');readln (al);                                                     

     write ('Masukan Nilai Tinggi  :');readln(tg);

     writeln ('Rumus : a*t');

    lu:=al*tg;

     writeln ('jadi luas jajar genjang adalah :',lu:0:0);

     write (' ulang lagi[y/n]?'); readln (ulang);

     until upcase (ulang) <>'Y';

end;

 procedure menu_utama;

 begin

      clrscr;

      writeln ('Menu Utama');

      writeln ('1. Luas Segitiga ');

      writeln ('2. Volume Balok');

      writeln ('3. volume kubus');

      writeln ('4. luas jajar genjang ');

      writeln ('5. keluar');

      writeln;

      write ('Pilih Menu :');readln(menu);

      case menu of

      1: begin

              luas_segitiga;

              menu_utama;

         end;

      2:begin

             volume_balok;

             menu_utama;

        end;

      3:begin

             volume_kubus;

             menu_utama;

        end;

      4: begin

              luas_jajar_genjang;

              menu_utama;

        end;

      5:donewincrt;

      end;

Layout:

Menu Berikutnya bisa langsung dicoba.

Flowchart:

2.       LISTING PROGRAM HITUNG MATEMATIKA MENGGUNAKAN IF

Program matematika;

uses wincrt;

var

a,b,d,e : integer;

c:real;

lagi:char;

begin

repeat

clrscr;

writeln('PROGRAM OPERASI MATEMATIKA : ');

writeln('*************************** : ');

write('masukan angka pertama : ');readln(a);

write('masukan angka kedua : ');readln(b);

writeln('pilih operasi : ');

writeln('Operasi Pengurangan   : 1 ');

writeln('Operasi Penjumlahan   : 2 ');

writeln('Operasi Perkalian     : 3 ');

writeln('Operasi Pembagian     : 4 ');

write('masukan pilihan anda  :');read(d);

if d=1 then

begin

c:=(a-b);

writeln('Hasil dari ',a,' - ',b,' adalah ',c:0:0);

end;

if d=2 then

begin

c:=(a+b);

writeln('Hasil dari ',a,' + ',b,' adalah ',c:0:0);

end;

 if d=3 then

begin

c:=(a*b);

writeln('Hasil dari ',a,' * ',b,' adalah ',c:0:0);

end;

if d=4 then

begin

c:=(a/b);

writeln('Hasil dari ',a,' : ',b,' adalah ',c:0:0);

end;

writeln;

write ('Apakah anda ingin mencoba lagi? (y/n)'); readln (Lagi);

until Lagi = 'y';

end.

Layout:

Flowchart: