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

+ 0 -

Dodged

06 авг. 2016 г., 4:28:19 (7 лет назад)

var
  a, b, h, x: real;
  i, n: integer;

begin
  writeln('Введите границы интервала (a,b)и шаг табуляции h:');
  readln(a, b, h);
  n := Trunc((b - a) / h) + 1;
  writeln('    x          F(x)');
  for i := 1 to n do
  begin
    x := a + h * (i - 1);
    if x<>0 then
      writeln(x:9:6, '  ', 2 * sin(1/x) + 2:9:6)
  end
end.

Тестовое решение:

Введите границы интервала (a,b)и шаг табуляции h:
-3 4 0.5
       x          F(x)
-3.000000   1.345611
-2.500000   1.221163
-2.000000   1.041149
-1.500000   0.763260
-1.000000   0.317058
-0.500000   0.181405
 0.500000   3.818595
 1.000000   3.682942
 1.500000   3.236740
 2.000000   2.958851
 2.500000   2.778837
 3.000000   2.654389
 3.500000   2.563686
 4.000000   2.494808