ayo coba........

Rabu, 02 November 2011

Menghitung Luas Layang-Layang


Rumus :
L= (BD x AC) : 2
atau
L= (d1 x d2) : 2

program menghitung_luas_layanglayang;
uses windos,wincrt;
var

d1,d2,L:real;
ch:char;
begin
clrscr;
write ('masukan panjang d1=  ');
readln(d1);
write ('masukan panjang d2= ');
readln(d2);
writeln;
L:=(d1*d2)/2;
writeln('luas layang-layang=',L:10:0,'cm2');
ch:=readkey;
end.

Rabu, 19 Oktober 2011

Menghitung Panjang Sisi miring Segitiga Siku-siku

Keterangan :
a = panjang sisi a
b = panjang sisi b
c = pamjang sisi miring c
Panjang sisi miring segitiga siku-siku (c) = sqrt [(axa) + (bxb)]

program menghitung_panjang_sisimiring_sikusiku;
uses windos,wincrt;
var
a,b,c:real;
ch:char;
begin
clrscr;
write('masukan nilai a: ');
readln(a);
write('masukan nilai b: ');
readln(b);
c:=sqrt((a*a)+(b*b));
writeln('panjang sisi miring=',c:10:2,'cm2');
ch:=readkey;
end.




Menghitung Luas Lingkaran








  Keterangan :
    r    = jari-jari lingkaran
    pi   = 3,14
    L   = luas lingkaran
    L   = pi x r x r






Menghitung volume kerucut

Keterangan:
r = jari-jari alas kerucut
t= tinggi kerucut
Luas selimut = π x r x s
Luas alas = π x r 2
Luas Permukaan kerucut = Luas alas + Luas Selimut
Luas Permukaan kerucut = πr2 + πrs = π r (r + s)
Volume Kerucut =1/3 x Luas alas x tinggi = 1/3 π r2 t


program menghitung_volume_kerucut;
uses windos,wincrt;
var
v,r,t:real;
ch:char;
begin
Clrscr;
write ('masukan nilai jari-jari lingkaran (r)=');
readln (r);
write ('masukan nilai tinggi (t)=');
readln (t);
v:=1/3*pi*(r*r)*t;
writeln ('volume kerucut=',v:20:2,'cm3');
ch:=readkey;
end.