Loading...

Selasa, 01 Mei 2012

PROGRAM GABUNGAN LUAS DAN KELILING BANGUN DATAR

Menggabungkan bangun datar dalam satu program memang tidak mudah, tapi kata bang H. Roma Irama "banyak jalan menuju roma" dan tentu pernah mendengar istilah diman ada kemauan disitu pasti ada jalan. oleh karena tiu janganlah ragu dan gunda sebab didepan anda telah ada jalan keluar.
Bagi agan-agan yang bingung dengan tugasnya membuat program gabungan bangun datar ini gue kasih sedikit contoh programnya.
ini programnya.

uses crt;
var n: char;
    sa,sb,t,t1,ts,a,b,c,d,a1,b1,c1,ab,bc,cd,da,a3,b3,r,d1,d2,kt,ks,kb,ky,dg1,dg2:longint;
    ls,ll,kl,lb,lt,ly: real;
begin
repeat
clrscr;
gotoxy(26,2); writeln('NAMA               = ?');
gotoxy(26,3); writeln('STAMBUK        = ?');
gotoxy(26,4); writeln('JURUSAN         = ?');
gotoxy(20,5); writeln('__________________________________________');
writeln;
writeln;
gotoxy(16,8); writeln('PROGRAM MENGHITUNG LUAS DAN KELILING BANGUN DATAR');
gotoxy(14,9);writeln('_____________________________________________________');
writeln;
writeln('>> 1. TRAPESIUM');
writeln('>> 2. LAYANG-LAYANG');
writeln('>> 3. BELAH KETUPAT');
writeln('>> 4. 1/2 LINGKARAN');
writeln('>> 5. SEGITIGA');
writeln('>> 6. keluar');
writeln('__________________________________________');
writeln;
write('pilih perhitungan yang diinginkan (1/2/3/4/5/6) = '); readln(n);
if n= '1' then
begin
clrscr;
gotoxy(23,2); writeln('Menghitung Luas dan Keliling Trapesium');
gotoxy(23,3); writeln('______________________________________');
writeln;
write('masukkan nilai sisi a = '); readln(a);
write('masukkan nilai sisi b = '); readln(b);
write('masukkan nilai sisi c = '); readln(c);
write('masukkan nilai sisi d = '); readln(d);
write('masukkan nilai tinggi = '); readln(t);
lt:= (a+b)*t/2;
kt:= a+b+c+d;
writeln('luas trapesium yaitu     = ',lt:6:2);
writeln('keliling trapesium yaitu = ',kt:6);
readln;
end;
if n= '2' then
begin
clrscr;
gotoxy(23,2); writeln('Menghitung Luas dan Keliling Layang-Layang');
gotoxy(23,3); writeln('____________________________________________');
writeln;
write('masukkan nilai sisi a         = '); readln(a3);
write('masukkan nilai sisi b         = '); readln(b3);
write('masukkan nilai diagonal 1 = '); readln(dg1);
write('masukkan nilai diagonal 2 = '); readln(dg2);
ly:= dg1*dg2/2 ;
ky:= 2*(a3+b3) ;
writeln('luas layang-layang yaitu     = ',ly:6:2);
writeln('keliling layang-layang yaitu = ',ky:6);
readln;
end;
if n= '3' then
begin
clrscr;
gotoxy(23,2); writeln('Menghitung Luas dan Keliling Belah Ketupat');
gotoxy(23,3); writeln('__________________________________________');
writeln;
write('masukkan nilai sisi ab    = '); readln(ab);
write('masukkan nilai sisi bc    = '); readln(bc);
write('masukkan nilai sisi cd    = '); readln(cd);
write('masukkan nilai sisi da    = '); readln(da);
write('masukkan nilai diagonal 1 = '); readln(d1);
write('masukkan nilai diagonal 2 = '); readln(d2);
lb:= d1*d2/2;
kb:= ab+bc+cd+da;
writeln('luas belah ketupat yaitu     = ',lb:6:2);
writeln('keliling belah ketupat yaitu = ',kb:6);
readln;
end;
if n= '4' then
begin
clrscr;
gotoxy(23,2); writeln('Menghitung Luas dan Keliling Setengah Lingkaran');
gotoxy(23,3); writeln('_______________________________________________');
writeln;
write('masukkan nilai jari-jari = '); readln(r);
ll:= 3.14*r*r/2;
kl:= 3.14*r;
writeln('luas setengah lingkaran yaitu     = ',ll:6:2);
writeln('keliling setengah lingkaran yaitu = ',kl:6:2);
readln;
end;
if n= '5' then
begin
clrscr;
gotoxy(23,2); writeln('Menghitung Luas dan Keliling Segi Tiga');
gotoxy(23,3); writeln('______________________________________');
writeln;
write('masukkan nilai sisi a = '); readln(a1);
write('masukkan nilai sisi b = '); readln(b1);
write('masukkan nilai sisi c = '); readln(c1);
write('masukkan nilai tinggi = '); readln(t1);
ls:= a1*b1*t1/2;
ks:= a1+b1+c1;
writeln('luas segi tiga yaitu     = ',ls:6:2);
writeln('keliling segi tiga yaitu = ',ks:6);
readln;
end;
until n= '6'
end.

hasil runnya:
 

Selamat mencoba!!!!!!!!!!
goog luck

2 komentar:

  1. izin copy ya.. thanks bermanfaat sekali.

    BalasHapus
  2. Komentar ini telah dihapus oleh penulis.

    BalasHapus