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