Програма. 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елементів a_i. Здобути новий масив Уз вихідного масиву А заміною елементів з парними порядковими номерами числом π, інші елементи масиву В одержати діленням відповідних елементів вихідного масиву А на максимальний елемент цього масиву.

Розв'язання: позначимо a_i → A(I), b_i → В(I), m → M, i →I,

π → PI, a_max → MAX.

Для розв'язання задачі необхідно попередньо знайти максимальний елемент масиву й потім сформувати новий масив В.

Блок – схема

+ -

	MAX=A(i)

+ -

	B(i) = π