Курсовая работа: Создание программы циклической структуры. Работа с массивами

max:integer;

Инициализируем переменную числом 0. Для этого введите строку в программу

max:=0;

Организуем цикл для поиска максимального значения, смотрите на рисунке 19 . Необходимо перебрать все элементы массива.

For i:=1 to 10

Begin

End;

Рис. 19. Цикл для поиска максимального значения

Проверим, больше ли очередной элемент массива, чем значение в max? Если больше, то запишем это значение в max. Для этой операции в алгоритм программы вводим следующую строку

if (a[i]>max) then max:=a[i];[16]

Выведем пользователю результат выполнения программы, рисунок 20.

Write (‘максимальное значение в массиве:’, max);

Рис. 20. Готовая программа по поиску максимального значения

Запустим программу, для чего щелкнем по меню Run для открытия меню.

Теперь, введя по запросу 10 чисел, в качестве результата получим наибольшее из этих значений, рисунок 21.

Рис. 21. Результат работы программы

На данный момент мы имеем программу, которая запрашивает у пользователя 10 чисел с клавиатуры и заполняет ими массив. Теперь необходимо организовать цикл обработки значений массива[10], начиная со 2-го

For i:=2 to 10

Begin

End.

Организуем проверку двух соседних значений массива. Для этого в алгоритм добавим условие с составным оператором (рис. 22).

If (a [i-1]>a[i]) then

Begin

End;

Рис. 22. Цикл со составным оператором

Если условие выполняется, присвоим x наименьшее из двух значений. Введите в строку ввода

x:=a[i];

Присвоим переменной j номер элемента, расположенного перед рассматриваемым. Для этого введите в строку ввода

j:=i-1;

Организуем цикл, рисунок 23, для перемещения блока значений, больших x вперед по массиву.