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); ...

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); ...

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

Гость

Ответ(ы) на вопрос:

Accepted 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); ...

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); ...