99Б. Pascal. Вычислить значения функции (рисунок) Если не знаете, не пишите
99Б. Pascal. Вычислить значения функции (рисунок)
Если не знаете, не пишите
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var h:=ReadReal('h=');
var x:=-15.0;
while x<=15 do begin
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
Не нашли ответ?
Похожие вопросы