Program Aritmatika sin cos tan

Dibawah ini adalah program Aritmatika (Sinus, Cosinus, Tangen) menggunakan bahasa pascal.

program aritmatik;
uses wincrt;
var
x:real;
begin
clrscr;
gotoxy (18,3); writeln ('PROGRAM MENGHITUNG SINUS, COSINUS DAN TANGEN');
gotoxy (18,4); writeln ('--------------------------------------------');
gotoxy (18,5); write('Masukkan nilai dari x= ');
readln(x);

if x <0 then x:=abs(x);
gotoxy (18,6); writeln('nilai x=',x:5:2);
gotoxy (18,7); write('nilai x jika dimasukkan dalam fungsi sin,cos,tangen');
writeln;
gotoxy (18,8); writeln('-sinus = ',sin(x):9:3);
gotoxy (18,9); writeln('-cosinus= ',cos(x):9:3);
gotoxy (18,10); writeln('-tangen= ',arctan(x):9:3);
end.

Hasilnya :