Question

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
F := abs(x-4)+abs(x+6) + abs(2*x-14)+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+R);
end.

Answer 1

Данная программа ищет самый правый минимум функции.

Можно построить график этой функции. Я построил в первой четверти, так как он будет одинаковый как и в первой так и во второй четвертях.