Задание EGEINFF8437D: Выполнение и анализ программы

Бейсик

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

A = -20: B = 20

M = A: R = F(A)

FOR T = A TO B

  IF F(T) < R THEN

    M = T

    R = F(T)

  END IF

NEXT T

PRINT M+18

FUNCTION F(x)

  F = 2 * (x * x - 9) * (x * x - 9) + 5

END FUNCTION

Python

def F(x):

  return 2 * (x * x - 9) * (x * x - 9) + 5

a = -20

b = 20

M = a

R = F(a)

for t in range(a, b + 1):

  if (F(t) < R):

    M = t

    R = F(t)

print (M + 18)

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

алг

нач

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

  a := -20; b := 20

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

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

    если F(t)< R то

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

    все

  кц

  вывод M + 18

кон

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

нач

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

кон

Паскаль

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

function F(x: longint) : longint;

begin

  F := 2 * (x * x - 9) * (x * x - 9) + 5;

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

end.

C++

#include <iostream>

using namespace std;

long F(long x)

{

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

}

int main()

{

  long a, b, t, M, R;

  a = -20; b = 20;

  M = a; R = F(a);

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

    if (F(t) < R) {

      M = t; R = F(t);

    }

  }

  cout << M + 18;

  return 0;

}