Var a,b,t,M,R:integer; Function F(x:integer):integer; - вопрос №161219444 от тооироь 03.03.2022 20:05

Question

Информатика: Var a,b,t,M,R:integer; Function F(x:integer):integer; begin F:=-(x+4)*(x+2); end; BEGIN a:=-20; b:=20; M:=a; R:=F(a); for t:=a to b do begin if (F(t) R)then begin M:=t; R:=F(t); end; end; write(M); END.

тооироь · Answer

(см. объяснение)Объяснение:Заметим, что программа ищет такое значение x на отрезке от -20 до 20, при котором значение функции наибольшее. Понятно, что F(x) - это парабола, ветви которой направлены вниз, а вершина находится в точке . Так как в вершине параболы достигается максимально возможное значение F(x) и -3 принадлежит отрезку , то программа выведет число -3.Задание выполнено!...

Var a,b,t,M,R:integer; Function F(x:integer):integer; begin F:=-(x+4)*(x+2); end; BEGIN a:=-20; b:=20; M:=a; R:=F(a); for t:=a to b do begin if (F(t)>R)then begin M:=t; R:=F(t); end; end; write(M); END.

Var a,b,t,M,R:integer; Function F(x:integer):integer;

begin

F:=-(x+4)*(x+2);

end;

BEGIN

a:=-20; b:=20;

M:=a; R:=F(a);

for t:=a to b do begin

if (F(t)>R)then begin

M:=t;

R:=F(t);

end;

end;

write(M);

END.