PASCAL.
Циклическая задача. WHILE.

Ответы (1)

Луция 21.09.2024 4

Var
x,fx,xmax,fmax:real;
begin
fmax:=-100;
x:=-1;
while x<=1 do begin
fx:=(sin(x)-sqrt(sqr(x)+7))/2;
if fmax x:=x+0.1
end;
Writeln('Найден максимум f(',xmax:0:1,')=',fmax:0:5)
end.

Результат выполнения программы
Найден максимум f(1.0)=-0.99348

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

PASCAL. Циклическая задача. WHILE.

Думаешь ответы не верны?

PASCAL.
Циклическая задача. WHILE.