Var a,b,t,M,R :integer;Function F(x:integer):integer;begin F:=4*(x-5)*(x+3);end;BEGIN...

Question

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, объясните пож, каким образом?

Answer 1

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

Comments

что подразумевается под словом "Аналитически", подробней объясни пожалуйста, если понимаешь , как это выяснить.

---

Для параболы координата вершины x=-b/2a , x= -8/8, это если в функции раскрыть скобки. а потом этот икс подставляем в функцию

---

Спасибо )))))