Sabtu, 29 September 2012

Menghitung Panjang Sisi miring Segitiga Siku-siku dengan Pascal


Saatnya kita belajar membuat Program menghitung sisi miring  Seigi tiga siku-siku menggunakan program pascal. Dalam segitiga ada 3 sisi yaitu sisi alas,tinggi dan sisi miring. 
Rumus sisi miring adalah
C2=a2+b2
c = akar dari a2 + b2

Original Source : http://world-of-programmer.blogspot.com/2010/04/mencari-panjang-sisi-miring-segitiga.html
Copyright world-of-programmer.blogspot.com
Keterangan :

a = panjang sisi  alas

b = panjang sisi tinggi

c = panjang sisi miring 
kalau diapilkasikan ke program, hal yang pertama kita lakukan menentukan variabelnya.
kita buat variabel nya sama kaya yang diatas, yaitu a= alas, b= tinggi, c= sisi miringnya.
adapun tipedatanya kita tentuin real aja, karena berhubungan dengan pengakaran.

nah setelah itu kita tentuin rumusnya ke program. rumusnya menggunakanSQR dan SQRT, yang telah dijelasin di postingan sebelumnya.
c:=sqrt(sqr(a)+sqr(b));

yaudah setelah itu kita rangkai seperti di bawah ini:



program menghitung_panjang_sisimiring_sikusiku;
uses wincrt;
var
a,b,c:real;

begin
clrscr;
writeln ('Program SISI MIRING');
writeln ('___________________');
write('masukan nilai a: ');
readln(a);
write('masukan nilai b: ');
readln(b);
c:=sqrt(sqr(a)+sqr(b));
writeln('panjang sisi miring=',c:10:2,'cm2');

end.

ok selamat belajar,,,,, jangan lupa baca bismillah ya,,,,,,,,,,,,,

Reaksi:

1 komentar: