Министерство сельского хозяйства
Российской Федерации
Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Воронежский государственный агарный университет
имени императора Петра I»
Кафедра информационного обеспечения и моделирования
агроэкономических систем
Курсовой проект по курсу
системы программирования
на тему: «Разработка приложения в среде визуального программирования Delphi «Формирование профильных классов по направлениям»
Выполнил: студент
ГПФ-3-1 Грошев Д.Н.
Руководитель: старший
преподаватель Литвинова Л.И.
Воронеж 2013
Содержание
1. Реализация выбора в языках высокого уровня, использование сложных типов 6
2. Разработка приложения 17
Заключение 35
Список источников и используемой литературы 36
Введение
Данный курсовой проект был разработан в среде Delphi. Среди множества языков Pascal является наиболее универсальным и легко изучаемым языком. При этом его удобно использовать для создания сложных приложений c базами данных. Delphi прост в обучении при этом средства языка программирования Pascal позволяет использовать все современные возможности объектно-ориентированного программирования.
Delphi – это среда разработки, в которой в качестве языка программирования используется язык Object Pascal. Основные конструкции языка четко выделяются в программе, что способствует хорошему восприятию написанного кода. Графический интерфейс Delphi отлично продуман, среда разработки предоставляет доступ только к тем участкам кода, с которыми необходимо работать, скрывая основную часть программы, которая создается автоматически самой средой разработки.
Задачей курсового проекта является изучение:
Реализации выбора в языках высокого уровня;
Использования сложных типов;
Составных типов данных;
Понятия массива и способами ввода массивов.
Цельюкурсового проекта является: разработка приложения для
работы с базой данных, позволяющего сортировать записи по необходимым параметрам, а также создание базы данных необходимой для этой цели.
Использованные средства. Программные: ОС Microsoft Windows 7, среду разработки Delphi2009, СУБДMSAccess. Аппаратные: ноутбук: Intel Corei3M370 2,4 GHz, 3Gb ОЗУ, 300 Gb HDD.
Реализация выбора в языках высокого уровня, использование сложных типов
Оператор выбора
Оператор выбора (или оператор варианта) дает возможность выполнить одно из нескольких действий в зависимости от значения скалярного выражения или выражения ограниченного типа.
В языке Pascalв качестве оператора выбора применяется операторcase.
Формат оператора выбора:
case<селектор>of
<константа 1> : <оператор 1>;
...
<константа N> : <оператор N>
else
<оператор>
end;
Здесь <селектор> – это выражение любого порядкового типа; <константа> - постоянная величина того же типа, что и селектор, представляет собой различные значения, которые может иметь селектор варианта, называется меткой варианта. После каждой метки располагается оператор. Когда одно и то же действие необходимо выполнить для нескольких различных значений селектора варианта, эти значения можно записать в виде списка.
Выполнение оператора выбора происходит так:
вычисляется выражение-селектор;
затем в списках констант ищется такое значение, которое совпадает с полученным значением селектора;
далее исполняется оператор, помеченный данной константой. Если такой константы не найдено, то происходит переход к выполнению оператора, следующего после else.
Изображение оператора варианта на блок-схеме приведено на рисунке (рисунок 1).
Рис. 1 Изображение оператора выбора на блок-схеме
Способы записи оператора case:
Селектор целочисленного типа:
caseIof
0 : Z := I + 10;
1 : Z := I + 100;
2 : Z := I + 1000;
end;
Селектор целочисленного типа предназначен для простого перечисления вариантов выбора по порядку.
Селектор интервального типа:
case I of
1..10 : writeln('число ', I:4, ' в диапазоне 1 - 10');
11..20 : writeln('число ', I:4, ' в диапазоне 11 - 20');
21..30 : writeln('число ', I:4, ' в диапазоне 21 - 30')
else
writeln('число ', I:4, ' вне пределов контроля')
end;
Селектор интервального типа предназначен для выбора варианта при условии, что значение селектора входит в один из диапазонов. Если значение селектора не попадает не в один из перечисленных диапазонов, то выполняется выражение стоящее после оператора else.
Селектор перечисляемого пользовательского типа:
var Seson: (Winter, Spring, Summer, Autumn);
begin
case Season of
Winter: writeln('Зима');
Spring: writeln('Весна');
Summer: writeln('Лето');
Autumn: writeln('Осень')
end;
end.
При использовании оператора выбора CASE должны выполняться следующие правила:
1. Значения выражения, записанного после служебного слова CASE, должны принадлежать дискретному типу; для целого типа они должны лежать в диапазоне integer.
2. Все константы, предшествующие операторам альтернатив, должны иметь тип, совместимый с типом выражения.
3. Все константы в альтернативах должны быть уникальны в пределах оператора варианта (т.е. повторение констант в альтернативах не допускается); диапазоны не должны пересекаться и не должны содержать констант, указанных в данной или других альтернативах [1].