Информатика и вычислительная техника Задание.
Вычислить произведение элементов массива, превышающих заданное
число С, то есть yk > C, для х О [a, b] и изменяющегося с шагом
h. yk=1 + x + Ц x, где x 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 8, выбирается формула для
вычисления значений yk. Кроме того, если выполняется условие x С.
Если оно выполняется, то значение произведения Р умножается на
полученное значение 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_X BEGIN
IF_X=0_THEN_Y: =1+X+SQRT(X); ELSE_Y: =1; ELSE_IF_X>8_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. Разветвляющиеся вычислительный процесс.
Задание 2. Составить структурную схему и написать программу
вычисления значения у(х) для любого значения аргумента х. y
=sin2Цx+cosЦx, , если x > 5 y =x3+x2+1, если x Ј 1 PROGRAM_LR2;
VAR_X, Y: REAL; BEGIN WRITELN(’Введите х’); READLN(X);
IF_X>5_THEN_Y: =SQR(SIN(SQRT(X)))+COS(SQRT(X)); WRITE(’Y=’, Y:
8: 2); ELSE_IF_X WRITE(’Y=’, Y: 8: 2); ELSE_WRITE(’Y не определено
при данном значении Х); END.
Тема 3. Циклический вычислительный процесс (структурный и
итерационный).
Задание 3. Составить структурную схему и программу для вычисления
таблицы значений функции y=f(x) на отрезке [a, b], если х на этом
отрезке изменяется с шагом h. PROGRAM_LR3; VAR_A, B, H, X, Y: REAL;
BEGIN WRITELN(’Введите a, b, h’); READLN(A, B, H); X: =A;
WRITELN(’I___X___I___Y___I’); REPEAT Y: =(X-SIN(X))/(LN(X)+1);
WRITELN(’I’, X: 7: 2, ’I’, Y: 7: 2, ’I’); X: =X+H: UNTIL_X>B;
END.
Тема 4. Программирование алгоритмов циклической структуры с
использованием массивов.
Задание 5. Составить структурную схему и программу с использованием
одномерных массивов. В заданной последовательности x1, x2, x3,
...., xn отрицательные числа заменить на их квадраты. PROGRAM_LR5;
CONST_N1=100; VAR_K, N: INTEGER; X: ARRAY[1...N1]_OF_REAL; BEGIN
WRITE(’Введите количество чисел в последовательности n=’);
READLN(N); WRITELN(’Введите элементы последовательности’); FOR_K:
=1_TO_N_DO BEGIN READ(X[K]); IF_X[K] WRITELN(X[K]); END; END.