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

Бейсик

DIM A, B, N, t AS INTEGER

A = -100: B = 100

N = 0

FOR t = A TO B

  IF F(t) <= 0 THEN

    N = N + 1

  END IF

NEXT t

PRINT N

FUNCTION F(x)

    F = 2*(x - 10)*(x + 45)

END FUNCTION

Python

def F(x):

  return 2*(x - 10)*(x + 45)

a = -100

b = 100

n = 0

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

  if F(t) <= 0:

    n = n + 1

print(n)

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

алг

нач

  цел a, b, N, t

  a := -100; b := 100

  N := 0

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

    если F(t) <= 0 то

        N := N + 1

    все

  кц

  вывод N

кон

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

нач

  знач := 2*(x - 10)*(x + 45)

кон

Паскаль

var a, b, N, t: integer;

function F(x: integer): integer;

begin

  F := 2*(x - 10)*(x + 45)

end;

begin

  a := -100; b := 100;

  N := 0;

  for t := a to b do begin

    if (F(t) <= 0) then

      N := N + 1

  end;

  write(N)

end.

C++

#include <iostream>

using namespace std;

int F(int x) {

  return 2*(x - 10)*(x + 45);

}

int main() {

  int a, b, N, t;

  a = -100; b = 100;

  N = 0;

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

    if (F(t) <= 0) {

      N++;

    }

  }

  cout << N;

  return 0;

}