Sinus, Cosinus, Tangen Pascal

Untuk membuat/mencari nilai sin, cos dan tan dari nilai derajat, hal pertama yang perlu dilakukan adalah merubah nilai degree ke nilai radian. Hal ini karena fungsi sinus, cos, dan tan pada pascal hanya bekerja pada nilai radian.

Fungsi Umum :

- Sin(Number)

- Cos(Number)

- Tan(Number)

"Number" adalah nilair radian seperti 1,2,1.90 dan lainnya, sedangkan nilai 0-360 derajat bukanlah nilai radian melainkan nilai degree. Jadi untuk mencari nilai sinus(80)/"80" adalah degree/derajat, adalah dengan mengubah nilai degree menjadi radian dengan rumus :

Radian = DegreeNumber*pi/180

Setelah mengetahui hasil nilai radian dari degree/derajat, maka dapat digunakan dengan fungsi sinus pemograman ataupun excel.

uses crt;

    function rad(alpha:word):real;
    begin
         rad:=alpha*pi/180;
    end;

begin

    clrscr;

    writeln(sin(rad(90)):0:2);

    writeln(cos(rad(90)):0:2);

    writeln(tan(rad(90)):0:2);

    readkey;

end.