blog ini menuliskan bahasa pemograman yang dapat dibaca dan diproses dengan mudah oleh program turbo pascal, dimana bahasa pemograman ini dipakai untuk mencari jawaban dari rumus matematika yang biasa kita pakai, tanpa harus menghitumg dengan manual, program tubo pascal dapat di download dan di instal dikomputer anda. Program ini sangat bermanfaat untuk hitung-menghitung, terutama di bidang studi matematika. selamat mencoba.....
Jumat, 04 November 2011
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
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.
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)]
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.
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
r = jari-jari lingkaran
pi = 3,14
L = luas lingkaran
L = pi x r x r
L = pi x r x r
clrscr;
write('masukan nilai r= ');
readln(r);
L:=pi*r*r;
writeln('menghitung luas lingkaran=',L:10:2,'cm2');
ch:=readkey;
write('masukan nilai r= ');
readln(r);
L:=pi*r*r;
writeln('menghitung luas lingkaran=',L:10:2,'cm2');
ch:=readkey;
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
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.
Langganan:
Postingan (Atom)