Подсчёт корней неравенства

Бейсик

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

END FUNCTION

Python

def F(x):

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

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

кон

Паскаль

var a, b, N, t: integer;

function F(x: integer): integer;

begin

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

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 + 21);

}

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;

}