var a,b,h,x: real;
begin
a:=0; b:=1.0;
h:=0.1; x:=a;
writeln('x ':6,'sin(x)':10,'cos(x)':10);
writeln('---------------------------');
repeat
writeln(x:5:4,sin(x):10:4,cos(x):10:4);
x:=x+h;
until x>b;
writeln('---------------------------');
end.
x sin(x) cos(x)
-----------------------------------
0.0000 0.0000 1.0000
0.1000 0.0998 0.9950
0.2000 0.1987 0.9801
0.3000 0.2955 0.9553
0.4000 0.3894 0.9211
0.5000 0.4794 0.8776
0.6000 0.5646 0.8253
0.7000 0.6442 0.7648
0.8000 0.7174 0.6967
0.9000 0.7833 0.6216
1.0000 0.8415 0.5403
-----------------------------------