2.3.5.2Создание процедуры обработки последовательности целых чисел

Текст процедуры приведен на рисунке 2.12.

Рисунок 2.12 – Процедура обработки последовательности целых чисел

Особенность этой процедуры в том, что она содержит три вложенных цикла for. Это не означает, что в ваших задачах будет то же самое, но хотя бы один цикл for Вам должен понадобиться обязательно.

В рассматриваемой задаче внешний цикл с параметром n организует перебор всех целых чисел из заданного диапазона. Два внутренних цикла обеспечивают перебор пар чисел, квадраты которых в сумме, возможно, будут равны квадрату числа, формируемого первым циклом.

Если такое равенство обнаруживается, то в компонент TMemo выводится соответствующая строка.

Процедура связана с событием onClick кнопки формы.

Рекомендованая литература

1. Культин Н. Delphi 6. Программирование на Object Pascal. – СПб.:БХВ-Петербург,2002.

2. Ставровский А.Б. Турбо Pascal 7.0/ Учебник. – К.: BHV, 2000.

3Расчетно-графическая работа № 3. Обработка массивов

Цели работы:

• создать приложение, в котором выполняются различные операции с одномерными массивами;

• создать приложение, в котором выполняется сортировка одномерного массива и работа с отсортированным массивом;

• создать приложение, в котором выполняются различные операции с двумерными массивами.

3.1 Задания для работы с одномерным массивом

Обработка одномерных массивов выполняется в соответствии с требованиями варианта из таблицы 3.1. Номер варианта выбирается по последней цифре номера зачетной книжки.

Главное меню закладки должно включать следующие пункты:

• создание массива,

• получение числовых характеристик массива,

• формирование нового массива.

На закладке должны быть поля для ввода количества элементов массива и предельного значения величины числа.

Вывод других характеристик по выбору разработчика.

Компоненты для хранения исходного массива и массива, получаемого в результате обработки, должны соответствовать варианту задания.

Глобальные переменные для хранения массива и количества данных в нем использовать не следует.

При выполнении каждого пункта меню всю необходимую информацию считывать с формы.

Таблица 3.1 – Задания на обработку одномерных массивов
№	Создание исходного массива	Хранение исходного массива	Числовые характеристики	Получение нового массива	Вывод нового массива
0	Random	TEdit	Размах элементов (max-min)	Удаление четных элементов	TMemo
1	InputBox	TMemo	Разность сумм элементов в четных и нечетных позициях	Оборот массива	TEdit
2	Random	TEdit	Определение позиций четных элементов	Вставка элемента в заданную позицию	TLabel
3	InputBox	TLabel	Определение позиций элементов, которые меньше среднего арифметического	Удаление заданного элемента из массива	Show Message
Продолжение таблицы 3.1
4	Random	TMemo	Разность сумм четных и нечетных элементов	Заданное число циклических сдвигов влево	Show Message
5	InputBox	TLabel	Количество четных и нечетных элементов	Вставка суммы элементов в начало массива	TMemo
6	Random	TMemo	Средние арифметические четных и нечетных элементов	Заданное число циклических сдвигов вправо	TEdit
7	InputBox	TMemo	Поиск позиции заданного элемента	Вставка среднего арифметического значения в середину массива	TLabel
8	Random	TLabel	Количество элементов больше и меньше среднего	Вначале нечетные, затем четные	Show Message
9	InputBox	TEdit	Сумма элементов больше и меньше среднего	Минимальный в начало, макси-мальный в конец	TMemo

Примеры решения подобных задач можете найти в примерах к лекциям. При разработке можно использовать процедуры и функции модуля UnitArrayDop.