Замечание: считается, что x - значение, заданное в градусах.
var x:integer;
begin
for x:=0 to 180 div 10 do
writeln(x*10:4,' ',sin(x*10*pi/180):6:4);
end.
Результат:
0 0.0000
10 0.1736
20 0.3420
30 0.5000
40 0.6428
50 0.7660
60 0.8660
70 0.9397
80 0.9848
90 1.0000
100 0.9848
110 0.9397
120 0.8660
130 0.7660
140 0.6428
150 0.5000
160 0.3420
170 0.1736
180 -0.0000