Pemrograman Pascal bag.2

Perhitungan Luas, Sinus, Cosinus, & Sudut Segitiga siku-siku dengan Pascal

Pada artikel kali ini pak menteri akan membahas tentang penggunaan bahasa turbo pascal untuk menghitung luas segitiga siku-siku, sinus sudut a, cosinus sudut a, dan besar sudut a tersebut jika diketahui alas dan tingginya. Seperti kita ketahui, rumus yang digunakan untuk mencari sudut a jika diketahui panjang dua sisinya adalah :

Sehingga diperoleh sudut dalam satuan derajat. namun perlu diketahui bahwa pascal melakukan perhitungan dalam satuan radian. sehingga untuk merubah ke derajat harus dikalikan dengan :

Sehingga rumus di atas menjadi :

Nah sekarang mulai kita racik perogramnya,
1. Langkah pertama seperti biasa, jalankan turbo pascal atau free pascal
2. Berikutnya ketikkan listing program berikut ini :
uses crt;
var a,t,l,sisi_miring,sinus,cosinus,sudut:real;
ulang:char;

begin
repeat
clrscr;
writeln('Program menghhitung luas segitiga siku-siku,sin,cos dan besar sudut a');
writeln;
write('Panjang alas =');readln(a);
write('Tinggi Segitiga =');readln(t);
writeln;
l:=0.5*a*t;
sisi_miring:=sqrt(sqr(a)+sqr(t));
sinus:=t/sisi_miring;
cosinus:=a/sisi_miring;
sudut:=arctan(sinus/sqrt(1-sqr(sinus)))*(180/pi);
writeln('Luas segitiga siku-siku =',l:1:2);
writeln('Panjang sisi miring =',sisi_miring:1:2);
writeln('Sinus sudut a =',sinus:1:2);
writeln('cosinus sudut a =',cosinus:1:2);
writeln('Besar sudut a =',sudut:1:2,' derajat');
writeln;
writeln('tekan sembarang tombol untuk mengulang atau X untuk keluar !');
ulang:=readkey;
until upcase(ulang)='X';
end.





3. Hasilnya seperti gambar berikut ini :

Seperti biasa, segala hujatan, kritikan, atau mungkin kripik, bisa anda sampaikan kepada pak menteri. Semoga sedikit tulisan ini ada manfaatnya bagi Anda dan kita semua. Sampai jumpa di artikel berikutnya. tatap bersama Pak menteri. Menteri yang menjunjung tinggi perdamaian dan kesejahteraan warga blogger dan netters.

Happy blogging