Вопрос по информатике:
99Б. Pascal. Вычислить значения функции (рисунок)
Если не знаете, не пишите
- 19.08.2018 09:40
- Информатика
- remove_red_eye 10955
- thumb_up 27
Ответы и объяснения 1
// 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
- 20.08.2018 10:28
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.