ЛР8 Программирование (1.9.3 В21) - III

LabWork8
📑 Compile Pascal Online

III. Программа Pascal

Program Lab8;

var C,K,M,N,i: integer;

var A,B,F: longint;

begin

    writeln('Лаб.8':38);

    readln(N); writeln('Количество элементов N: ',N:3);

    readln(A); writeln('Параметр A: ',A:5);

    readln(B); writeln('Параметр B: ',B:5);

    readln(M); writeln('Параметр M: ',M:3);

    i:=1; C:=0; 

    writeln('Таблица значений функции аргумента K: ');

    while i<N+1 do

    begin

        readln(K); 

        if (K>-30) and (K<60) then

        begin

            F:=K*K*K-25*K*K+50*K+1000;

            if ((abs(K)<=A+B+M) and (F<0) and (F<-(A+B)/M)) or ((abs(K)<=A+B+M) and (F>=0)) then

                writeln(i:3,' ',K:3,' ',F:6)

            else

                C:=C+1;

        end

        else

        begin

            writeln('Данные не корректны. Выполнение программы остановлено'); 

            break;

        end;

        i:=i+1;

    end;

    writeln('Количество других значений функции: ',C); 

end.

STDIN

20

30000

60000

4

-5

28

42

15

7

53

2

44

-10

10

-7

25

1

8

-6

-28

-8

17

-12

47