Блок – схема

+ -

+

Программа

REM алгоритм комб. структуры с подпрограммой ‘оператор- комментарий

REM основная программа

DIM SHАRED I, EPS, N, Z, ZN ‘описание простых переменных

DIM C(1 TO 10),Y(1 TO 10) ‘описание массивов

INPUT “ EPS ”; EPS ‘ввод данных

DATA –1.5,-.5,-.1,0,.5,1.75,1.8,2.5,3.4,5.7 ‘строка данных

CALL SUMZ(EPS,Z) ‘ обращение к подпрограмме вычисления Z

FOR I = 1 TO 10 ‘оператор начала цикла

READ C(I) ‘ввод данных

IF C(I)> .5 AND C(I)< 2.5 THEN ‘оператор условного перехода

Y(I) = (C(I) * Z - 3) ^ 2 ‘оператор присваивания

ELSE Y(I) = .5 * Z ^ 3 - 5 * C(I) ‘оператор присваивания

END IF ‘завершение оператора условного перехода

PRINT “C”; I; “=”;C(I) ‘вывод

NEXT I ‘завершение цикла

END ‘конец основной программы

SUB SUMZ(EPS,Z) ‘заголовок (начало) подпрограммы SUMZ

N = 1: Z = 0 ‘операторы присваивания

DO ‘оператор начала цикла

ZN = .1*N / (N+0.6)^3: Z=Z+ZN : N= N + 1 ‘операторы присваивания

LOOP WHILE ABS(ZN) > EPS ‘завершение цикла

PRINT “Z=”; Z ‘вывод

END SUB ‘конец подпрограммы SUMZ

Результат выполнения программы:

EPS ? .001 _

Z = 5.597609E-02

Y2 = 2.500088

Y3 = 5.000088

Y4 = 8.769555E-05

Y5 = -2.499912

Y6 = 8.421847

Y7 = 8.40561

Y8 = -12.49991

Y9 = -16.99991

Y10 = -28.49991

3.11. Пример выполнения задачи 5 а

Задание: В соответствии с условием разработать алгоритм и составить программу обработки одномерных массивов

Условие: Задан одномерный массив, состоящий из m элементов a_i.

Получить новый массив В из исходного массива А заменой элементов с четными порядковыми номерами числом π, остальные элементы массива В получить делением соответствующих элементов исходного массива А на максимальный элемент этого массива.

Решение: обозначим a_i → A(I), b_i → В(I), m → M, i →I,

π → PI, a_max → MAX.

Для решения задачи необходимо предварительно найти максимальный элемент массива и затем сформировать новый массив В.

Блок – схема

+ -

+ -