Создание процедуры обработки последовательности целых чисел
Текст процедуры приведен на рисунке 6.7.
Рисунок 6.7 – Процедура обработки последовательности целых чисел
Особенность этой процедуры в том, что она содержит три вложенных цикла for. Это не означает, что в ваших задачах будет то же самое, но хотя бы один цикл for Вам должен понадобиться обязательно.
В рассматриваемой задаче внешний цикл с параметром n организует перебор всех целых чисел из заданного диапазона. Два внутренних цикла обеспечивают перебор пар чисел, квадраты которых в сумме, возможно, будут равны квадрату числа, формируемого первым циклом.
Если такое равенство обнаруживается, то в компонент TMemo выводится соответствующая строка.
Процедура связана с событием onClick кнопки формы.
Создайте свою процедуру и проверьте ее работу. Не забудьте перед этим сделать форму главной.
-
Создание многодокументной (mdi)формы
Для того чтобы все созданные формы можно было вызывать в одном проекте, сделаем их дочерними для одной, многодокументной (MDI) формs.
Создайте еще одну форму. Назовите ее frmMDI. Присвойте ей заголовок «Примеры использования цикла for». Сделайте ее главной в проекте.
Теперь свойству формы FormStyle присвойте значение fsMDIForm. После этого для остальных форм проекта свойству FormStyle присвойте значение fsMDIChild. Такие настройки обеспечат возможность работы со всеми созданными формами. Не забудьте теперь сохранить все модули в одной папке.
Посмотрите, как выглядит многодокументный интерфейс в Delphi, запустив проект с формой frmMDI на выполнение.
Задание для самостоятельной работы
Расширьте возможности проекта, добавив в него форму, которая обеспечит решение одной из ниже перечисленных задач, в которых требуется написать подпрограммы, работающие так, как стандартные
Номер задачи выбирайте в соответствии с последней цифрой зачетной книжки.
|
Таблица 6.4 – Задания к самостоятельной работе |
|
|
№ |
Задание |
|
0 |
LeftStr |
|
1 |
RightStr |
|
2 |
StrToInt |
|
3 |
IntToStr |
|
4 |
TrimLeft |
|
5 |
TrimRight |
|
6 |
Copy |
|
7 |
Delete |
|
8 |
Insert |
|
9 |
Pos |
Содержание отчета
-
Наименование работы
-
Цель работы
-
Краткое описание порядковых типов данных и функций для работы с ними.
-
Краткая характеристика строк символов и функций для работы с ними.
-
Краткое описание работы цикла For.
-
Тексты написаны процедур с пояснениями в виде комментариев
-
Изображение интерфейсов проекта с результатами работы.
-
Выводы.
Контрольные вопросы
-
Целые, символьные, порядковые, ограниченные типы данных.
-
Функции для работы с порядковыми типами.
-
Особенности работы с целыми числами.
-
Особенности работы с символами.
-
Инструкция цикла For, применение, особенности работы.
-
Написать подпрограмму по заданию преподавателя с использованием цикла For.
-
Характеристика типа String.
-
Написать процедуру или функцию, которая работает так, как стандартная подпрограмма для обработки строки.