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

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

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru Блок – схема

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

           
  програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru
 
    програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru
 
    програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru + -

 
 
MAX=A(i)

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

       
    програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru
  програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru
 
програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru + -

       
   
програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru
 
B(i) = π
 
програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru програма. Rem алгоритм комбінованої структури з підпрограмою - student2.ru

Наши рекомендации