- •Введение Среда Delphi и ее компоненты
- •Компонентный подход
- •1. Разработка приложения с использованием компонентов edit, label и button
- •2. Разработка консольного приложения
- •3. Разработка приложения с использованием окон ввода-вывода текста
- •4. Использование компонента stringgrid для обработки массивов
- •5. Разработка приложения с использованием компонента memo при обработке текстовых файлов
- •6. Упорядочение массивов. Обработка одномерных динамических массивов
- •7. Обработка многомерных динамических массивов
- •8. Создание и использование типизированных файлов, состоящих из записей
- •9. Создание класса в отдельном модуле
- •10. Создание динамической библиотеки и ее использование в программе
- •11. Создание движущегося обьекта на фоне
- •12. Представление данных при помощи графиков
- •13. Использование в программе меню
- •14. Управление программой с помощью компонентов scrollbar, trackbar, radiobutton, checkbox
- •15. Создание многостраничного приложения
- •Исходные данные
- •16. Управление программой с помощью компонентов закладки dialogs
- •17. Буксировка экранных объектов. Использование технологии drag & drop
- •18. Создание и хранение шаблонов компонентов
- •19. Создание динамических структур данных типа список
- •20. Создание и использование базы данных
- •Исходные данные
- •Литература
- •Содержание
1. Разработка приложения с использованием компонентов edit, label и button
Задание: Составить программу, выполняющую условия вариантов (табл.1) в соответствии с правилами русского языка при помощи конструкций IF..THEN..ELSE и CASE.
Т а б л и ц а 1
Исходные данные
1 |
На входе количество студентов числом, на выходе число с добавлением слов студент, студентов, студента… |
2 |
На входе номер дня недели, на выходе название дня недели. |
3 |
На входе номер месяца, на выходе название месяца |
4 |
На входе количество яблок, на выходе число с добавлением слов яблоко, яблока, яблок. |
5 |
На входе количество апельсин, на выходе число с добавлением слов апельсин, апельсина, апельсинов… |
6 |
На входе число от 1 до 10, на выходе его величина словом. |
7 |
На входе название месяца, на выходе его порядковое число. |
8 |
На входе название дня недели, на выходе его порядковый номер в неделе. |
9 |
На входе количество машин, на выходе число с добавлением слов машина, машины, машин. |
10 |
На входе количество компьютеров, на выходе число с добавлением слов компьютер, компьютера, компьютеров. |
Структура команд:
If <условие> Then < оператор1, если условие верно>
Else < оператор2 , если условие неверно>;
Case (выражение-селектор) Of
<константа выбора 1>: <оператор1>;
< константа выбора 2>: < оператор 2>;
Else < оператор, выполняемый в любом другом случае>
End;
Возможная реализация формы:
Рекомендовано к использованию:
Компонент Delphi Edit представляет собой однострочное текстовое поле, служащее для ввода данных пользователем. Основным свойством компонента Delphi Edit, передающим введённую информацию, является свойство Edit1.Text типа String.
Компонент Label предназначен для отображения текста, то есть надписей и меток на форме. Свойством компонента Label, которое используется для задания отображаемого текста, является Caption.
Компонент Button используется для реализации в программе команд с помощью обработчика события OnClick (нажатия на эту кнопку) этого компонента. Для изменения названия кнопки можно использовать свойство Caption.
Содержание отчета: Условие, листинг программы, форма с результатом выполнения программы, выводы.
2. Разработка консольного приложения
Задание: Составить программу для вычисления функций (табл.2) при помощи операторов цикла While или Repeat. Программа должна выполняться в консольном режиме.
Т а б л и ц а 2
Исходные функции
Вариант |
Функция |
Диапазон |
Шаг |
1 |
y = sin(x) |
0 º < x < 180 º |
5 º |
2 |
y = cos(x) |
90 º < x < 180 º |
10 º |
3 |
y = tg(x) |
0 º < x < 180 º |
5 º |
4 |
y = sin(x) |
180 º < x < 360 º |
10 º |
5 |
y = cos(x) |
180 º < x < 270 º |
5 º |
6 |
y = tg(x) |
0 º < x < 270 º |
10 º |
7 |
y = sin(x) |
0 º < x < 180 º |
5 º |
8 |
y = cos(x) |
90 º < x < 180 º |
10 º |
9 |
y = tg(x) |
0 º < x < 180 º |
5 º |
10 |
y = sin(x) |
180 º < x < 360 º |
10 º |
Создается консольное приложение следующим образом. Сначала нужно из меню File выбрать команду New\Other Application, затем на вкладке New появившегося диалогового окна New Items выбрать тип создаваемого приложения — Console Application. В результате этих действий на экране появится окно Projectl.dpr, в котором находится шаблон главной процедуры консольного приложения. В этом окне можно набирать инструкции программы.
Структура команд:
While <условие> Do
<выполняемое в цикле действие>;
Repeat
<Выполняемое в цикле действие>;
Until (условие выхода>;
Пример реализации:
Содержание отчета: Условие, листинг программы, результат выполнения программы, выводы.