TAN

Untuk Tangen Turbo Pascal Tidak menyediakan perintahnya tetapi dengan adanya perintaj sinus dan kosinus kita dapat kita dapat mencari hasil tangen dengan mudah dengan rumus sebagai berikut:

Tan=Sin (angka)/Cos(anngka)

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(‘Tangen dari ‘,angka:0:0,’=’, Sin (angka)/Cos(anngka));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal