Міністерство загальної та професійної освіти
Російської Федерації
Алтайський державний технічний університет ім. І.І. Ползунова
Контрольна робота
з дисципліни «Інформатика та обчислювальна техніка»
Варіант 0
Виконав: студент гр. 9М-91 заочно. ф-ту
Перевірив:
Ільїн Валентин Іванович
Барнаул 1999
Завдання.
Обчислити добуток елементів масиву, що перевищують заданий число С, то є yk> C, для х? [a, b] і змінюється з кроком h.
1 + x +? x, де x <5 yk =? 2 - cosx, де 5? x? 8 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. Структурна схема.
Структурна схема представлена на мал.1.
Малюнок 1.
Етап 4. Текст програми.
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 )));< br> WRITE ( 'X =', X: 7:2);
END.
Тема 2. Розгалужуються обчислювальний процес.
Завдання 2. Скласти структурну схему і написати програму обчислення значення у (х) для будь-якого значення аргументу х. 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_XB;
END.
Завдання 4. Скласти структурну схему і програму для обчислення значення функції:
PROGRAM_LR4;
VAR_K, M, N: INTEGER;
S, P: REAL;
BEGIN
WRITELN ( 'Введіть m і n');
READLN (M, N);
S: = 0;
FOR_K: = M_TO_N_DO
BEGIN
P: = (SQR (K) +5)/(SQR (K) * K + K);
S: = S + P;
END;
WRITE ( 'S =', S: 10:4);
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 =');< br> READLN (N);
WRITELN (' Введіть елементи послідовності ');
FOR_K: = 1_TO_N_DO
BEGIN
READ (X [K ]);
IF_X [K] 5
Висновок «Y - не визначено»
Кінець
Введення x
початок
Висновок x, y
x> b
x = x + h
Кінець
Введення a, b, h
початок
S = S + P
k = m, n, 1
Висновок S
S = 0
Кінець
Введення m, n
початок
xk? 0
Введення xk
xk = xk2
k = 1, n, 1
Висновок S
Кінець
Введення n
початок
aij = IaijI
y = i/(? i + j)
j = 1, n, 1
i = j
aij = i - j + 1
i = 1, m, 1
Висновок aij
Введення m, n
початок
Кінець
Кінець
Висновок P
P = P * y
y x? 0
x> 8
x <5
x? b
x = x + h
P = 1
x = a
Введення a, b, C, h
початок
