Информатика, опубликовано 2018-08-22 19:56:06 by Гость

Var a,b,t,M,R :integer;Function F(x:integer):integer;begin F:=4(x-5)(x+3);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(R);END.будет -64, объясните пож, каким образом?

Ответ оставил Гость

Это по суди задача на поиск минимума функции на отрезке (-20;20). Функция - парабола. Аналитически можно найти ее вершину, х=1, f(1)=-64.

Не нашли ответа?

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

Форма вопроса доступна на полной версии этой страницы.

Var a,b,t,M,R :integer;Function F(x:integer):integer;begin F:=4*(x-5)*(x+3);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(R);END.будет -64, объясните пож, каким образом?

Var a,b,t,M,R :integer;Function F(x:integer):integer;begin F:=4(x-5)(x+3);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(R);END.будет -64, объясните пож, каким образом?