Программа

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).