99Б. Pascal. Вычислить значения функции (рисунок) Если не знаете, не пишите

Question

99Б. Pascal. Вычислить значения функции (рисунок)
Если не знаете, не пишите

---

Answer 1

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var h:=ReadReal('h=');
  var x:=-15.0;
  while x<=15 do begin<br>    Write('x=',x:7:3,', y=');
    if x>0 then Writeln(sqr(sin(x)):0:5)
    else Writeln((1+0.5*sqr(x))/(sqr(x)+0.1):0:5);
    x+=h
    end;
end.

Тестовое решение:
h= 2.5
x=-15.000, y=0.50422
x=-12.500, y=0.50608
x=-10.000, y=0.50949
x= -7.500, y=0.51686
x= -5.000, y=0.53785
x= -2.500, y=0.64961
x=  0.000, y=10.00000
x=  2.500, y=0.35817
x=  5.000, y=0.91954
x=  7.500, y=0.87984
x= 10.000, y=0.29596
x= 12.500, y=0.00440
x= 15.000, y=0.42287