Анализ программы с подпрограммами

  Бей­сик

Пас­каль

DIM A, B, T, M, R ASINTEGER

A = -10: B = 31

M = A: R = F(А)

FOR T = A TO B

    IF F(T) R THEN

        M = T

        R = F(T)

    ENDIF

NEXT T

PRINT M

    FUNCTION F(x)

        F = 2*(x*x-1)*(x*x-1)+17

    ENDFUNCTION

vara,b,t,M,R :integer;

Function

F(x:integer):integer;

    begin

    F := 2*(x*x-1)*(x*x-1)+17

    end;

begin

    a := -10; b := 31;

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

    for t := a to b dobegin

        if (F(t) R) thenbegin

            M := t;

            R := F(t)

        end

    end;

    write(M)

end.

Си

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

#include

int F(int x)

{

    return2*(x*x-1)*(x*x-1)+17;

}

void main()

{

    int a, b, t, M, R;

    a = -10; b = 31;

    M = a; R = F(a);

    for (t = a; t {

        if (F(t) R) {

            M = t; R = F(t);

        }

    }

    printf("%d", M);

}

алг

нач

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

a := -10; b := 31

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

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

    если F(t) R

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

    все

кц

вывод M

кон

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

нач

    знач:=2*(x*x-1)*(x*x-1)+17

кон

Бей­сик

Python

DIM K, I ASLONG

INPUT K

I = 0

WHILE F(I)

    I = I + 1

WEND

PRINT I

FUNCTION F(N)

    F = N*(N-1)+10

ENDFUNCTION

def f(n):

    return n*(n-1)+10

k = int(input())

i = 0

while f(i)

    i = i + 1

print(i)

Пас­каль

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

var k, i : longint;

    function f(n: longint) : longint;

        begin

            f := n*(n-1)+10

        end;

begin

    readln(k);

    i := 0;

    while (f(i) do

        i := i+1;

    writeln(i)

end.

алг

нач

целi, k

ввод k

i := 0

нцпока f(i)

i := i+1

кц

вывод i

кон

алгцелf(цел n)

нач

знач := n*(n-1)+10

кон

Си

#include

long f(long n)

{

    return n*(n-1)+10;

}

void main()

{

    long k, i;

    scanf("%ld", &k);

    i = 0;

    while (f(i)

        i++;

    printf("%ld", i);

}