Програма
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стовпців елементів: aij.
Визначити в кожному стовпці кількість kjелементів відмінних від 0 з непарними номерами рядків.
Здобути новий масив Сіз вихідного масиву А заміною нульових елементів останнім елементом кожного рядка.
Розв'язання: позначимо aij → A(I,J), cij → C(I,J), m → M, n → N,
i → I, j →J, kj → K(J).
Блок – схема
 |
 | |||||
 | |||||
 |
- +
 |
|
 |
+
- +
|
|