Програма. REM алгоритм комбінованої структури з підпрограмою
REM алгоритм комбінованої структури з підпрограмою
REM основна програма
DIM SHАRED I, EPS, N, Z, ZN ‘ опис змінних
DIM C(1 TO 10),Y(1 TO 10)
INPUT “ EPS ”; EPS ‘введення даних
DATA –1.5,-.5,-.1,0,.5,1.75,1.8,2.5,3.4,5.7 ‘рядок даних
CALL SUMZ(EPS,Z) ‘ звертання до підпрограми обчислення Z
FOR I = 1 TO 10 ‘оператор початку циклу
READ C(I) ‘введення даних
IF C(I)> .5 AND C(I)< 2.5 THEN ‘оператор умовного переходу
Y(I) = (C(I) * Z - 3) ^ 2 ‘оператор присвоювання
ELSE Y(I) = .5 * Z ^ 3 - 5 * C(I) ‘оператор присвоювання
END IF ‘завершення оператора умовного переходу
PRINT “C”; I; “=”;C(I) ‘виведення
NEXT I ‘завершення циклу
END ‘ кінець основної програми
SUB SUMZ(EPS,Z) ‘заголовок (початок) підпрограми SUMZ
N = 1: Z = 0 ‘оператори присвоювання
DO ‘оператор початку циклу
ZN = .1*N / (N+0.6)^3: Z=Z+ZN : N= N + 1 ‘оператори присвоювання
LOOP WHILE ABS(ZN) > EPS ‘завершення циклу
PRINT “Z=”; Z ‘виведення
END SUB ‘кінець підпрограми SUMZ
Результат виконання програм:
EPS ? .001 _
Z = 5.597609E-02
Y2 = 2.500088
Y3 = 5.000088
Y4 = 8.769555E-05
Y5 = -2.499912
Y6 = 8.421847
Y7 = 8.40561
Y8 = -12.49991
Y9 = -16.99991
Y10 = -28.49991
3.11. Приклад виконання задачі 5 А
Завдання: розробити алгоритм і скласти програму обробки одномірних масивів
Умова: Заданий одномірний масив, що полягає з mелементів ai. Здобути новий масив Уз вихідного масиву А заміною елементів з парними порядковими номерами числом π, інші елементи масиву В одержати діленням відповідних елементів вихідного масиву А на максимальний елемент цього масиву.
Розв'язання: позначимо ai → A(I), bi → В(I), m → M, i →I,
π → PI, amax → MAX.
Для розв'язання задачі необхідно попередньо знайти максимальний елемент масиву й потім сформувати новий масив В.
Блок – схема
 | |||||
 | |||||
 |
+ -
|
 | |||
 | |||
+ -
| |||
| |||
