Program Sudut Trigonometri Pascal

Malam guys, kali ini saya akan memposting program mencari nilai sudut dari trigonometri yaitu sinus, cosinus, tangen, dan contangen. program ini tidaklah terlalu sulit dan saya rasa jika anda melihat scriptnya akan sangat mudah memahaminya karena hanya mengunakkan rumus matematika yang telah disediakan dalam pascal sendiri. dan berikut script programnya.

program 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 program 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 baru mencari besar sudutnya karena 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 jika besar sudut yang dimasukkan itu 0,180, dan 360 maka nilainya tak tentu.