PROGRAM HITUNGAN MATEMATIKA PADA PASCAL (Procedure & 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;

 end;

 begin

 clrscr;

 menu_utama;

 end.

2.       PRINT SCREEN PROGRAM HITUNG MATEMATIKA DENGAN PROCEDURE

a.       Tampilan Menu utama

b.      Tampilan Memghitung Luas segitiga

c.       Tampilan Menghitung Volume Balok

  

d.      Tampilan Menghitung Volume Kubus

e.      Tampilan Menghitung Luas Jajargenjang

3.       Flow Chart Program

4.              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.

5.       Tampilan Hitung Matematika Menggunakan IF

a.       Tampilan Operasi pengurangan

b.      Tampilan Operasi penjumlahan

c.       Tampilan Operasi perkalian

d.      Tampilan Operasi pembagian

6.       FLOW CHART PROGRAM