Введите ответ в поле ввода

Бейсик

Паскаль

DIM A, B, T, M, R AS INTEGER

A = -11: B = 11
M = A: R = F(А)

FOR T = A TO B

  IF F(T) < R THEN
     M = T
     R = F(T)
  END IF
NEXT T
PRINT M+6

FUNCTION F(x)
  F = 2*(x*x-16)*(x*x-16)+5

END FUNCTION

var a,b,t,M,R :integer;

Function F(x:integer):integer;

 begin

  F := 2*(x*x-16)*(x*x-16)+5

  end;

begin

  a := -11;  b := 11;

  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+6)

end.

Си

Алгоритмический

#include

int F(int x)

{

  return 2*(x*x-16)*(x*x-16)+5;

}

void main()

{

  int a, b, t, M, R;

  a = -11;  b = 11;

  M = a; R = F(a);

  for (t = a; t <= b; t++) {

    if (F(t) < R) {

      M = t; R = F(t);

    }

  }

  printf("%d", M+6);

}

алг

нач

  цел a, b, t, M, R

  a := -11; b := 11

  M := a; R := F(a)

  нц для t от a до b

    если F(t) < R

      то M := t; R := F(t)

    все

  кц

  вывод M+6

кон

алг цел F(цел x)

нач

  знач:=2*(x*x-16)*(x*x-16)+5

кон