Програма. 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) = π