Var a,b,t,m,r : integer; function f(x: integer): - вопрос №240511845 от Pemo 12.08.2020 10:44

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

Pemo · Answer

Это по суди задача на поиск минимума функции на отрезке (-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, объясните пож, каким образом?