Лабораторная работа 4. Обработка одномерных массивов
Обработка одномерных массивов
Цель работы: формирование первичных умений в разработке простых циклических программ с использованием массивов.
Что нужно знать для выполнения работы 1. Структуру цикла, назначение и порядок следования его отдельных частей. 2. Структуры: цикл-пока и цикл-повторить. 3. Операторы цикла for …to (downto) … do. 4. Описание и использование массивов.
Примеры выполнения задания лабораторной работы Пример 1. Составьте программу нахождения суммы элементов данного массива а, состоящего из n элементов. Решение. Основная часть цикла – добавление очередного элемента к накапливаемой сумме. Для нахождения суммы всех элементов достаточно повторить цикл, изменяя номер элемента массива от 1 до n с шагом 1 (рис. 4.1). На данной схеме вывод исходных данных и вывод результата записаны в одном блоке, так как алгоритм вывода элементов массива аналогичен циклу ввода.
Рис. 4.1. Схема алгоритма программы
Текст программы
program lr4_1_1; { Сумма элементов массива. } { $APPTYPE CONSOLE } Uses SysUtils; Const max n =100; { Максимальное количество элементов массива } Var n, i: integer; s: real; a: array [1..maxn] of real; Begin write('n= '); readln(n); { Ввод реального количества элементов массива } writeln('Vvedite elementi massiva a '); for i: =1 to n do Begin write('a [ ', i, ' ] = '); readln(a [ i ]); end; s: =0; for i: =1 to n do s: = s + a [ i ]; writeln('Исходный массив a, состоящий из', n: 4, ' элементов'); for i: =1 to n do write(a [ i ]: 8: 2); writeln; writeln('S = ', s: 8: 2); readln; end.
Как и в лабораторной работе 3 в данной работе можно считать заданиями повышенной сложности (второго уровня) задания, выполненные с использованием компонентов Delphi. Для отображения элементов массивов целесообразно использовать компоненты StringGrid. Для ввода элементов массива в ячейки таблицы необходимо свойство Options(goEditing) положить равным true. Для рассмотренного примера форма приложения может быть как показано на рис. 4.1.
Рис. 4.1 Форма приложения примера 4_1
|