Rabu, 04 Desember 2013

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.       Procedure.pngFlow 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





                                                              




















Tidak ada komentar:

Posting Komentar