COS

Untuk mencari cosinus dari suatu bilangan dalam satuan radian.

Beuntuk umum

Cos(angka);

Untuk mengkonveris kedalam derajat, maka harus ditambahkan rumus:

Cos(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(‘cosinus dari ‘,angka:0:0,’=’,cos(angka/(180/pi)):0:2);

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal