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

Tidak ada komentar:
Posting Komentar