Question

Помогите написать программ на Паскале под номером 6, пожалуйста

Answer 1

 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
-----------------------------------