Question

вычисление функции    Y=sinx  на [1;2] шаг 0,2 помогите

Answer 1

var
  x: real := 1;

begin
  while (x <= 2) do
  begin
    writeln(x:4, ' | ', sin(x));
    x := x + 0.2;
  end;
end.


Вывод:
    1 | 0.841470984807897
 1.2 | 0.932039085967226
 1.4 | 0.98544972998846
 1.6 | 0.999573603041505
 1.8 | 0.973847630878195
    2 | 0.909297426825682