Fungsi Trigonometri

       Pascal Mempunyai 3 fungsi trigonometri yaitu Sinus Cosinus, dan ArcTangen. Pascal tidak mempunyai fungsi Tangen, arc sin, arc cosinus, ataupun fungsi-fungsi trigonometri lainnya. Ketiga fungsi trigonometri ini akan bekerja dalam sudut radian dan b ukan sudut derajat. Bagi anda yang biasa menggunakan sudut derajat, untuk mendapatkan fungsi radian dari sudut tersebut bisa menggunakan rumus

            S_Radian := S_Derajat/180 * pi;

dimana S_Radian adalah sudut dalam Radian dan S_Derajat adalah sudut dalam Derajat.

Tata penulisan ketiga fungsi trigonometri tersebut adalah :

     Bil_Hasil := Sin(S_Radian);

     Bil_Hasil := Cos(S_Radian);

     Bil_Hasil := ArcTan(Bil_Dicari);

dimana Bil_Hasil dan S_Radian pada ArcTan haris merupakan suatu variabel Real dan S_Radian Pada Sin dan Cos serta Bil_Dicari dapat berupa suatu bilangan atau variabel Real.

      Berikut ini adalah contoh program untuk mencari nilai Sinus, Cosinus, Tangen, dan ArcTangen dari suatu input sudut dalam derajat.

program trigonometri1;
uses crt;
var
 SDe, SRa, Sdel,
 NSin, NCos, NTan : Real;
begin
 Clrscr;
 Write ('Masukkan Sudut Yang Akan Dicari = ');
 Readln (SDe);
 SRa := SDe/180 * pi;
 NSin := Sin(SRa);
 NCos := Cos(SRa);
 NTan := NSin/NCos;
 Sdel := ArcTan(NTan)/pi * 180;
 Writeln ('Nilai Sinus Sudut Tersebut = ', NSin:10:2);
 Writeln ('Nilai Cosinus Sudut Tersebut = ', NCos:10:2);
 Writeln ('Nilai Tangen Sudut Tersebut = ', NTan:10:2);
 Writeln ('Nilai Sudut Dari ArcTan = ',SDel:10:2);
 Readln;
end.