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
