Информатика и вычислительная техника
    
    Задание.
    Вычислить произведение элементов массива, превышающих заданное число С, то есть yk > C, для х ? [a,b] и изменяющегося с шагом h.
    yk=1 + x + ??x, где x < 5
    yk=??2 - cosx, где 5 ? x ? 8
    yk=ln (1+x), где x > 8
    
    Этап 1. Обозначения.
    X - значение аргумента x;
    Y - значение yk;
    C - заданное число;
    А - начальное значение аргумента x;
    В - конечное значение аргумента x;
    Н - шаг изменения аргумента x;
    Р - произведение элементов yk массива.
    
    Этап 2. Обсуждение алгоритма.
    Задается начальное значение аргумента x = a и начальное значение произведения элементов массива Р = 1. Так как, число повторений цикла заранее неизвестно, организуется циклический (итерационный) вычислительный процесс. Внутри цикла осуществляется проверка значений х, и в зависимости от того x < 5, или 5 ? x ? 8, или x > 8, выбирается формула для вычисления значений yk. Кроме того, если выполняется условие x < 5, то проверяется еще одно условие х ? 0 (так как подкоренное выражение при вычислении yk не может быть отрицательным). В случае выполнения этого условия, значению yk присваивается значение yk = 1 (для того, чтобы при вычислении не изменилось значение произведения Р, а процесс перешел к вычислению следующего значения yk при следующем значении х). Затем, на основании полученного значения yk проверяется условие yk > С. Если оно выполняется, то значение произведения Р умножается на полученное значение yk. После этого, аргумент х увеличивается на шаг h. Цикл выполняется до тех пор, пока текущее значение х не превысит значения b - конечное значение аргумента х.
    
    Этап 3. Текст программы.
    
    PROGRAM_KR0;
    VAR_A,B,C,H,P,X,Y:REAL;
    BEGIN
    WRITELN('Введите значения a и b');
    READLN(A,B);
    WRITELN('Введите шаг Н и число С');
    READLN(H,C);
    X:=A;
    P:=1;
    WHILE_X8_THEN_Y:=LN(1+X);
    ELSE_Y:=SQRT(2-COS(X));
    IF_Y>C_THEN_P:=P*Y;
    X:=X+H;
    END;
    WRITE('Произведение элементов массива равно', P:8:2);
    END.
    
    Пояснения к программе.
    Когда после запуска программы на экране появится текст:
    Введите значения a и b,
    нужно на клавиатуре выбрать конкретные числа, которые будут присвоены этим переменным.
    Затем появится сообщение:
    Введите шаг Н и число С.
    Необходимо ввести также конкретные значения этих переменных. После этого программа начнет выполнение вычислительного процесса. В результате работы программы на экране появится текст:
    Произведение элементов массива равно число.
    
    Лабораторные работы.
    Вариант 10.
    
    Тема 1. Линейный вычислительный процесс.
    Задание 1. Составить программу для вычисления значения х и произвести вычисления на компьютере.
    
    
    PROGRAM_LR1;
    VAR_A,B,D,P,G:REAL;
    BEGIN
    WRITE('Введите через пробел значения a, b, d, p, g');
    READ(A,B,D,P,G);
    Х:=A*SIN(SQR(P))+B*SQR(COS(P))/(A*D*(SQR(P)+SQR(G)));
    WRITE('X=',X:7:2);
    END.
    
    Тема 2. ............