Програма

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