Program Sudut Trigonometri Pascal

Malam guys, kali ini aku akan memposting kegiatan mencari nilai sudut dari trigonometri yaitu sinus, cosinus, tangen, dan contangen. kegiatan ini tidaklah terlalu sulit dan aku rasa kalau anda melihat scriptnya akan sangat gampang memahaminya alasannya ialah hanya mengunakkan rumus matematika yang telah disediakan dalam pascal sendiri. dan berikut script programnya.

kegiatan Mencari_Nilai_Trigonometri;
uses math,crt;
var
sudut : integer;
radian,s,c,t,con : real;
mengulang : char;
const
phi = 3.14;
begin
mengulang:=’Y’;
while mengulang <> ‘T’ do
begin
clrscr;
writeln(‘ Program Menghitung Nilai Trigonometri ‘);
Writeln(‘ – – – – – – – – – – – – – – – – – – – ‘);
writeln(‘Besar Sudut Antara 0 Sampai 360 Derajat’);writeln;
writeln;
write(‘Masukkan Besar Sudut Yang Anda Inginkan : ‘);
readln(sudut);
radian :=sudut/180*phi;
writeln;
writeln(‘Hasil Dari ‘,sudut, ‘ Derajat Sama Dengan Sebagai Berikut ‘);
writeln;
writeln(‘Nilai Sin ‘,sudut, ‘ Derajat = ‘,sin(radian):0:2); writeln;
writeln(‘Nilai Cos ‘,sudut, ‘ Derajat = ‘,cos(radian):0:2); writeln;
if sudut=90 then writeln(‘Nilai Tan ‘,sudut,’ Derajat = Tidak Tentu’)
else if sudut=270 then writeln(‘Nilai Tan ‘,sudut,’ Derajat = Tidak Tentu’)
else begin t:=sin(radian)/cos(radian);
writeln(‘Nilai Tan ‘,sudut, ‘ Derajat = ‘,t:0:2); writeln;
end;
if sudut=0 then writeln(‘Nilai Contangen ‘,sudut,’ Derajat = Tidak tentu’)
else if sudut=180 then writeln(‘Nilai Contangen ‘,sudut,’ Derajat = Tidak tentu’)
else if sudut=360 then writeln(‘Nilai Contangen ‘,sudut,’ Derajat = Tidak tentu’)
else begin con:=cos(radian)/sin(radian);
writeln(‘Nilai Contangen ‘,sudut,’ Derajat = ‘,con:0:2);
end;
writeln;
writeln(‘- – – – – – – – – – – – – – – – – – – – – – – – – – – – – – -‘);
writeln(‘Apakah Anda Ingin Mencoba Program Ini Lagi ? ‘);
writeln(‘- – – – – – – – – – – – – – – – – – – – – – – – – – – – – – -‘);
writeln;
Writeln(‘Tekan Y Jika Ingin Mencoba Lagi Atau T Jika Anda Ingin Keluar’);
writeln;
write(‘Masukkan Y atau T : ‘);
readln(mengulang);
end;
End.

Output Program

Jika ingin mendownload file kegiatan yang sudah dikompilasi silahkan download via ziddu di link dibawah.

Download Program Sudut Trigonometri Pascal

Penjelasan script : untuk mencari nilai sin,cos,dan tan maka kita mengaktifkan library math dan merubah nilai sudut yang diinputkan dalam bentuk radian gres mencari besar sudutnya alasannya ialah nilai sudut tan dari 90 dan 270 derajat tidak tentu maka kita mengunakkan penyeleksian kondisi dan juga untuk contangen karean nilai dari 1/0 = tak tentu maka kita menggunakkan penyeleksian kondisi dimana kalau besar sudut yang dimasukkan itu 0,180, dan 360 maka nilainya tak tentu.