SIN

Untuk mencari sinus dari suatu bilangan dalam satuan radian.

Bentuk umum

Sin(angka);

Untuk mengkonversikan kedalam derajat maka harus ditambahkan rumus:

Sin(Angka/(180/Pi));

Contoh:

Uses crt;

Var angka:real;

Begin

Clrscr;

Repeat

Writeln(‘ketik 0 untuk selesai’);

Writeln(‘ketik suatu angka: ‘);readln(angka);

If angka=0 then exit;

Writeln;

Writeln(‘Sinus dari ‘,angka:0:0,’=’,sin(angka/(180/pi)):0:2);

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal