2.4 Программирование на языке Object Pascal в среде Delphi

2.4.1 Разработка разветвляющихся программ

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием разветвляющейся программы.

Дана система. Нужно выбрать один из 3 способов решения и ввести числа. Для каждой части системы есть определенное условие. Каждая часть системы решается вводом переменных, соответствующих условию. Нулевые значения вводить нельзя.

Текст программы приведён в Приложении А в листинге А.17. Полученные результаты приведены на рисунке 30-31.

Рисунок 30 – Ответ при х>y

Рисунок 31 – Ответ при х<y

2.4.2 Разработка циклических алгоритмов

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием циклических алгоритмов.

Дано натуральное число n. Заменить каждый третий элемент на значение «-99».

Текст программы приведён в Приложении А в листинге А.18. Полученные результаты приведены на рисунке 32-33.

Рисунок 32 – Вводимые данные

Рисунок 32 – Выводимые данные

2.4.3 Обработка массивов

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием массивов.

Задана матрица А размером NxM. Получить массив В, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены убыванию, и значение 0 в противном случае.

Текст программы приведён в Приложении А в листинге А.19. Полученные результаты приведены на рисунке 33-34.

Рисунок 33 – Массив с элементами по возрастанию

Рисунок 34 – Массив с элементами по убыванию

2.4.4 Обработка строк

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием строк.

Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран самую короткую группу.

Текст программы приведён в Приложении А в листинге А.20. Полученные результаты приведены на рисунке 35.

Рисунок 35 – Вывод наименьшей группы элементов

2.4.5 Использование файлов

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием строк.

Список товаров, имеющихся на складе, включает в себя наименование товара, количество единиц товара, цену единицы и дату поступления товара на склад. Вывести список товаров, хранящихся больше месяца, стоимость которых превышает 1000000 руб.

Текст программы приведён в Приложении А в листинге А.21. Полученные результаты приведены на рисунке 36-38.

Рисунок 36 – Создание записи

Рисунок 37 – Просмотр всех записей

Рисунок 38 – Вывод записей по соответствующему критерию

2.4.6 Графические примитивы и иллюстрации

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием графических компонентов.

Написать программу, которая выводит на экран приведенный ниже узор.

Текст программы приведён в Приложении А в листинге А.22. Полученные результаты приведены на рисунке 39.

Рисунок 39 – Нарисованное изображение

2.4.7 Работа с БД

Для закрепления полученных навыков программирования в среде Borland Delphi необходимо решить задачу с использованием базы данных.

Предусмотреть вывод значений для полей элементов массива записей по следующим ключам: дате, предмету судебного разбирательства, названию фирмы-истца, названию фирмы-обвиняемого.

Текст программы приведён в Приложении А в листинге А.23. Полученные результаты приведены на рисунке 40-41

.

Рисунок 40 – Добавление записи в базу данных

Рисунок 41 – Поиск записи

Заключение

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

Данное задание было отлажено и реализовано с использованием среды программирования Turbo Pascal и среды визуального программирования Delphi.

В процессе разработки программы использовался в большом объёме материал по программированию.

Цели по решению задач, поставленные во время прохождения учебной практики, достигнуты. Работа программы проверена на тестовом примере.