Програма

REM одномірний масив ‘ оператор - коментар

DIM M, PI, I, MAX ‘ опис змінних

INPUT “ M, PI ”; M, PI ‘ введення даних

DIM A(1 TO M), B(1 TO M) ‘ опис масивів

DATA –1.1,-3.5,1.8,0,.75,3.25,0, 2.5,5.25 ‘ рядок даних

FOR I = 1 TO M ‘ оператор початку циклу

READ A(I) ‘ введення даних

NEXT I ‘з авершення циклу

MAX=A(1) ‘ оператор присвоювання

FOR I = 1 TO M ‘ оператор початку циклу

IF MAX < A(I) THEN ‘ оператор умовного переходу

MAX = A(I) ‘ оператор присвоювання

END IF ‘ завершення оператора умовного переходу

NEXT I ‘з авершення циклу

PRINT “MAX”; MAX ‘ виведення

FOR I = 1 TO M ‘ оператор початку циклу

IF (-1) ^ I > 0 THEN ‘ оператор умовного переходу

B(I) = PI ‘ оператор присвоювання

ELSE B(I) = A(I) / MAX ‘ оператор присвоювання

END IF ‘ завершення оператора умовного переходу

PRINT “B”; I; “=”;B(I) ‘ виведення

NEXT I ‘з авершення циклу

END ‘ конец програми

Результат виконання програми:

M, PI? 9, 3.14 _ Для розрахунків був використаний одномірний масив

MAX = 5.25 А = –1.1, -3.5,1.8,0,.75,3.25, 0, 2.5, 5,25

B1 = -.2095238 В результаті отримане наступне:

B2 = 3.14 максимальний елемент MAX = 5,25

B3 =.3428571 новий масив В

B4 = 3.14 В = –0.21, 3.14,0.34, 3.14, 0.14, 3.14, 0, 3.14, 1

B5 =.1428571

B6 = 3.14

B7 = 0

B8 = 3.14

B9 = 1

3.12. Приклад виконання задачі 5 Б

Завдання: розробити алгоритм і скласти програму обробки двовимірних масивів

Умова: Заданий двовимірний масив, що полягає з m рядків і n стовпців елементів: a_ij.

Визначити в кожному стовпці кількість k_j елементів відмінних від 0 з непарними номерами рядків.

Здобути новий масив С із вихідного масиву А заміною нульових елементів останнім елементом кожного рядка.

Розв'язання: позначимо a_ij → A(I,J), c_ij → C(I,J), m → M, n → N,

i → I, j →J, k_j → K(J).

Блок – схема

- +

K(J)=K(J)+1

﷒

+

- +

C(i,J)=A(I,J)

C(i,J)=A(i,N)