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

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

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

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

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

                                               π → PI, a_max  → MAX. 

 

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

Блок – схема          

                                                               

                                                    

                                        +                             -

MAX=A(i)

 

                                

                                                                        

                                   +                        -

	B(i) = π

 

                              

 

 

Программа

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

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