Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Создание программ контроля средствами Delphi

Введение

Целью курсовой работы является изучение языка объектно-ориентированного программирования Borland Delphi и разработка практических заданий. При выполнении курсовой работы предстоит:

· изучить теорию и технологию работы со средой программирования Delphi;

· изучить и проанализировать соответствующую литературу;

· провести сравнительный анализ языков программирования этого класса, выявить достоинства и недостатки;

· привести элементы методической работы в виде разработки вариантов заданий (из прикладных областей) для учащихся старших классов школ изучающих Delphi на уроках информатики.

Объектно-ориентированные языки программирования пользуются в последнее время большой популярностью среди программистов, так как они позволяют использовать преимущества объектно-ориентированного подхода не только на этапах проектирования и конструирования программных систем, но и на этапах их реализации, тестирования и сопровождения.

Первый объектно-ориентированный язык программирования Simula 67 был разработан в конце 60-х годов в Норвегии. Авторы этого языка очень точно угадали перспективы развития программирования: их язык намного опередил свое время. Однако современники (программисты 60-х годов) оказались не готовы воспринять ценности языка Simula 67, и он не выдержал конкуренции с другими языками программирования (прежде всего, с языком Fortran). Прохладному отношению к языку Simula 67 способствовало и то обстоятельство, что он был реализован как интерпретируемый (а не компилируемый) язык, что было совершенно неприемлемым в 60-е годы, так как интерпретация связана со снижением эффективности (скорости выполнения) программ.

Но достоинства языка Simula 67 были замечены некоторыми программистами, и в 70-е годы было разработано большое число экспериментальных объектно-ориентированных языков программирования: например, языки CLU, Alphard, Concurrent Pascal и др. Эти языки так и остались экспериментальными, но в результате их исследования были разработаны современные объектно-ориентированные языки программирования: C++, Smalltalk, Delphi и др.

Появление Delphi не могло пройти незамеченным среди многочисленных пользователей компьютера. Оценки экспертов, изучающих возможности этого нового продукта фирмы Borland, обычно окрашены в восторженные тона. Основное достоинство Delphi состоит в том, что здесь реализованы идеи визуального программирования. Среда визуального программирования превращает процесс создания программы в приятное и легко понимаемое конструирование приложения из большого набора графических и структурных примитивов.

Delphi - чрезвычайно быстро развивающаяся система. Первая версия - Delphi 1. 0 была выпущена в феврале 1995 г. А затем новые версии выпускались ежегодно.

Каждая последующая версия Delphi дополняла предыдущую.

Большинство версий Delphi выпускается в нескольких вариантах: Standart - стандартном, Professional - профессиональном, Client/Server - клиент / сервер, Enterprise - разработка баз данных предметных областей. Различаются варианты в основном разным уровнем доступа к системам управления базами данных. Последние варианты - Client/Server и Enterprise, в этом отношении наиболее мощные.

1. Общая структура языка программирования Delphi

Delphi - результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Паскаль был полностью процедурным языком, Турбо Паскаль, начиная с версии 5. 5, добавил в Паскаль объектно-ориентированные свойства, а Delphi - объектно-ориентированный язык программирования с возможностью доступа к метаданным классов (то есть к описанию классов и их членов) в компилируемом коде, также называемом интроспекцией [5, С. 22].

Язык Pascal предназначен для описания вычислительного процесса решения задачи, в состав которой могут входить величины.

Схема 1 - Используемые величины

программирование язык семантика задача

Константы - данные, значения которых не изменяются в программе.

Переменные - данные, могущие изменяться при выполнении программы.

Для обозначения имен констант, переменных, функций, процедур и модулей используются буквы и цифры, входящие в алфавит языка, и знак подчеркивания «_». Имена начинаются с буквы или знака подчеркивания» _ «и содержат до 63 значащих символов. Символ пробела в имени не допускается. Эти имена принято называть идентификаторами.

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

Функции, процедуры и модули - отдельные программные блоки, имеющие имена и подключаемые к основной программе [2, С. 8].

Классы и объекты Delphi. Для реализации интерфейса Delphi использует библиотеку классов, которая содержит большое количество разнообразных классов, поддерживающих форму и различные компоненты формы (командные кнопки, поля редактирования и т.д.).

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

type TForm1 = class(TForm) private {Private declarations} public {Public declarations} end; var Form1: Tform1

Это описание класса исходной, пустой формы приложения и объявление объекта - формы приложения.

Когда программист, добавляя необходимые компоненты, создает форму, Delphi формирует описание класса формы. Когда программист создает функцию обработки события формы или ее компонента, Delphi добавляет объявление метода в описание класса формы приложения.

Помимо классов визуальных компонентов в библиотеку классов входят и классы так называемых невизуальных (невидимых) компонентов, которые обеспечивают создание соответствующих объектов и доступ к их методам и свойствам. Типичным примером невизуального компонента является таймер (тип TTimer) и компоненты доступа и управления базами данных.

1.1 Структура среды программирования

Внешний вид среды программирования Delphi отличается от многих других из тех, что можно увидеть в Windows. К примеру, Borland Pascal for Windows 7. 0, Borland C++ 4. 0, Word for Windows, Program Manager - это все MDI приложения и выглядят по-другому, чем Delphi. MDI (Multiple Document Interface) - определяет особый способ управления нескольких дочерних окон внутри одного большого окна.

Среда Delphi же следует другой спецификации, называемой Single Document Interface (SDI), и состоит из нескольких отдельно расположенных окон. Это было сделано из-за того, что SDI близок к той модели приложений, что используется в Windows 95.

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

Главные составные части среды программирования

Ниже перечислены основные составные части Delphi:

1. Дизайнер Форм (Form Designer)

2. Окно Редактора Исходного Текста (Editor Window)

3. Палитра Компонент (Component Palette)

4. Инспектор Объектов (Object Inspector)

5. Обозреватель дерева объектов (Object TreeView)

Есть, конечно, и другие важные составляющие Delphi, вроде линейки инструментов, системного меню и многие другие, нужные Вам для точной настройки программы и среды программирования.

Программисты на Delphi проводят большинство времени переключаясь между Дизайнером Форм и Окном Редактора Исходного Текста (которое для краткости называют Редактор). Прежде чем Вы начнете, убедитесь, что можете распознать эти два важных элемента. Дизайнер Форм показан на рис. 1, окно Редактора - на рис. 2.

Рисунок 1 - Дизайнер форм

Рисунок 2 - Окно редактора

Дизайнер Форм в Delphi столь интуитивно понятен и прост в использовании, что создание визуального интерфейса превращается в детскую игру. Дизайнер Форм первоначально состоит из одного пустого окна, которое Вы заполняете всевозможными объектами, выбранными на Палитре Компонент [1, С. 10].

Несмотря на всю важность Дизайнера Форм, местом, где программисты проводят основное время является Редактор. Логика является движущей силой программы и Редактор-то место, где Вы ее «кодируете».

Палитра Компонент (см. рис. 3) позволяет Вам выбрать нужные объекты для размещения их на Дизайнере Форм. Для использования Палитры Компонент просто первый раз щелкните мышкой на один из объектов и потом второй раз - на Дизайнере Форм. Выбранный Вами объект появится на проектируемом окне и им можно манипулировать с помощью мыши.

Палитра Компонент использует постраничную группировку объектов. Внизу Палитры находится набор закладок - Standard, Additional, Win32 и т.д. Если Вы щелкнете мышью на одну из закладок, то Вы можете перейти на следующую страницу Палитры Компонент. Принцип разбиения на страницы широко используется в среде программирования Delphi и его легко можно использовать в своей программе. (На странице Additional есть компоненты для организации страниц с закладками сверху и снизу).

Рисунок 3 - Палитра Компонентов

Предположим, Вы помещаете компонент TEdit на форму; Вы можете двигать его с места на место. Вы также можете использовать границу, прорисованную вокруг объекта для изменения его размеров. Большинством других компонент можно манипулировать тем же образом. Однако, невидимые во время выполнения программы компоненты (типа TMenu или TDataBase) не меняют своей формы [1, С. 20].

Слева от Дизайнера Форм Вы можете видеть Инспектор Объектов (рис. 4). Заметьте, что информация в Инспекторе Объектов меняется в зависимости от объекта, выбранного на форме. Важно понять, что каждый компонент является настоящим объектом и Вы можете менять его вид и поведение с помощью Инспектора Объектов.

Инспектор Объектов состоит из двух страниц, каждую из которых можно использовать для определения поведения данного компонента. Первая страница - это список свойств, вторая - список событий. Если нужно изменить что-нибудь, связанное с определенным компонентом, то Вы обычно делаете это в Инспекторе Объектов. К примеру, Вы можете изменить имя и размер компонента TLabel изменяя свойства Caption, Left, Top, Height, и Width.

Вы можете использовать закладки внизу Инспектора Объектов для переключения между страницами свойств и событий [1, С. 21].

Рисунок 4 - Инспектор Объектов

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

Обозреватель дерева объектов (см. рис. 3). Эта панель появилась в Delphi 7, и, на мой взгляд, она является лучшим новшеством этой версии. С помощью дерева компонентов легко находить компоненты, потому что они расположены в виде дерева. Если у вас какой-то компонент будет полностью перекрывать другой, то вы можете выделить верхний компонент, а потом, в дереве компонентов, легко найти тот, который находится снизу.



Рисунок 5 - Окно Обозревателя дерева объектов.

Дополнительные элементы

В данном разделе внимание фокусируется на двух инструментах, которые можно воспринимать как вспомогательные для среды программирования:

· Меню (Menu System)

· Панель с кнопками для быстрого доступа (SpeedBar)

Меню предоставляет быстрый и гибкий интерфейс к среде Delphi, потому что может управляться по набору «горячих клавиш». Это удобно еще и потому, что здесь используются слова или короткие фразы, более точные и понятные, нежели иконки или пиктограммы. Вы можете использовать меню для выполнения широкого круга задач; скорее всего, для наиболее общих задач вроде открытия и закрытия файлов, управления отладчиком или настройкой среды программирования.

SpeedBar находится непосредственно под меню, слева от Палитры Компонент (рис. 6). SpeedBar выполняет много из того, что можно сделать через меню. Если задержать мышь над любой из иконок на SpeedBar, то Вы увидите что появится подсказка, объясняющая назначение данной иконки.

Рисунок 6 - SpeedBar

Стандартные компоненты

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

На первой странице Палитры Компонент размещены от 14 до 16 объектов (рис. 7), в зависимости от версии, в качестве примера используется Delphi 7. Мало кто обойдется длительное время без кнопок, списков, окон ввода и т.д. Все эти объекты такая же часть Windows, как мышь или окно.

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

Рисунок 7 - Компоненты, расположенные на первой странице Палитры

Стандартные компоненты Delphi перечислены ниже с некоторыми комментариями по их применению. При изучении данных компонент было бы полезно иметь под рукой компьютер с тем, чтобы посмотреть, как они работают и как ими манипулировать.

Frames - позволяет разместить на форме так называемый «фрейм». Фрейм из себя представляет другое окно. Чтобы создать окно-фрейм, следует выбрать пункт меню File -> New -> Frame, либо выделить значок Frame в окне File -> New -> Other на вкладке New. До тех пор, пока в приложении не будет ни одного фрейма, использовать данный объект не удастся. Фреймы удобны в том случае, когда какие-либо настройки запрашиваются во время работы программы в виде отдельной формы, а также, например, на одной из вкладок основной формы.

MainMenu - основное меню окна. Связать его с формой можно через свойство Menu формы. При двойном щелчке по значку MenuMenu появляется дизайнер меню, в котором можно добавлять и удалять пункты. В Caption задаётся текст пунта меню. Чтобы создать черту-разделитель, следует в свойство Caption прописать знак «минус» (» -», без кавычек).



Рисунок 8 - MainMenu - основное меню окна

PopupMenu - контекстное меню (вызывается правой кнопкой мыши). Его можно привязать ко многим компонентам (как правило, это делается через свойство PopupMenu у компонента, которому ассоциируется это меню). Одно и то же меню может быть привязано к нескольким компонентам.

Label - текстовая метка (надпись) на форме. Используется для отображения любого текста в окне. Текст задаётся в свойстве Caption. Свойство Font позволяет настроить шрифт текста.

Edit - поле ввода. Используется для ввода любых данных (текста, числа и т.д.), представленных одной строкой. Свойство ReadOnly позволяет запретить редактирование текста в поле. Текст хранится свойством Text. Свойство MaxLength позволяет задать максимальное число символов, которое может быть введено в поле. Значение 0 означает, что ограничение не установлено.

Memo - многострочный Edit. Используется для ввода больших объёмов текста. Свойство ScrollBars позволяет указать полосы прокрутки, которые будут отображаться у поля при недостатке места для всего текста:

*ssNone - без полос прокрутки;

*ssHorizontal - горизонтальная полоса прокрутки;

*ssVertical - вертикальная;

*ssBoth - обе: и горизонтальная, и вертикальная.

Button - кнопка, самая что ни есть обыкновенная. Caption - текст на кнопке.

CheckBox - флажок-переключатель. Состояние хранится в свойстве Style:

*cbUnchecked - не отмечен;

*cbChecked - отмечен;

*cbGrayed - затемнён.

Само состояние следует изменять с помощью свойства Checked. Таких флажков может быть несколько и каждый может быть отмечен независимо от остальных.

RadioButton - радио-переключатель. Аналогичен CheckBox, но при наличии нескольких переключателей может быть выбран только один из них. Свойство Checked позволяет изменить состояние переключателя.

ListBox - список текстовых строк. Используется для выбора одного из вариантов. Строки задаются в свойстве Items. Чтобы изменить исходные значения, следует щёлкнуть по кнопке с тремя точкам (»…») в строке свойства Items и в открывшемся редакторе ввести требуемые значения. Свойство MultiSelect позволяет включить / выключить одновременный выбор нескольких строк из списка.

ComboBox - ещё один список для выбора, но выпадающий - на экране видна всего одна строка, а сам список появляется при нажатии на кнопку со стрелкой. Установив свойство Style в csDropDownList можно запретить ввод произвольного значения в ComboBox. Текст выбранной строки доступен в свойстве Text.

ScrollBar - полоса прокрутки. Свойство Kind определяет ориентацию полосы на форме: sbHorizontal - горизонтально, sbVertical - вертикально.

GroupBox - «контейнер» для компонент. Используется для объединения элементов в отдельные области. При перемещении GroupBox'а все компоненты, расположенные на нём, также перемещаются. Для размещения компонент в этом контейнере следует после выбора их на Палитры компонент щёлкнуть по самому контейнеру (а не по форме, как обычно). У GroupBox можно задать текст заголовка (свойство Caption).

RadioGroup - группа из нескольких RadioButton'ов. Тексты строк задаются в свойстве Items. Номер выбранной строки - свойство ItemIndex (нумерация строк начинается с нуля!).

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

ActionList - позволяет управлять действиями (Actions), которые привязываются к пунктам меню, кнопкам и т.д.

1.2 Структура проекта Delphi

Программа Delphi - это несколько связанных между собой файлов.

Главный файл проекта, изначально называется PROJECT1. DPR. Если необходимо переименовать название проекта, нужно перезаписать этот файл, выбрав в меню File команду Save Project As… При задании имени следует придерживаться правил задания имен в Object Pascal. Имя не должно содержать пробелов (используйте в таком случае знак подчеркивания), должно начинаться с буквы (цифры допустимы, но со второй позиции), не должно содержать других символов, кроме букв и цифр. Под каким именем вы сохраняете проект, под таким именем и будет создаваться исполняемый EXE файл, который вы всегда сможете самостоятельно переименовать [7, С. 32].

Модуль программы, который автоматически появляется в начале работы Unit1. Файл называется UNIT1. PAS по умолчанию, но его можно назвать любым другим именем, вроде MAIN. PAS. Это делается аналогично переименованию названия проекта. Необходимо выбрать в меню File команду Save As… Сохраняется активный модуль в редакторе кода. Файл главной формы, который по умолчанию называется UNIT1. DFM, используется для сохранения информации о внешнем виде формы (окна разрабатываемого приложения). При переименовании названия модуля автоматически меняет свое название.

Файл PROJECT1. RES изначально содержит иконку для проекта. Создается автоматически. Имеет одноименное название с названием проекта. Файл PROJECT1. DSK содержит информацию о состоянии рабочего пространства. Состояние окон во время разработки приложения. Исполняемый EXE файл, который создается в процессе компиляции проекта. Разумеется, если сохранить проект под другим именем, то изменят название и файлы с расширением RES и DSK. После компиляции программы получаются файлы с расширениями: DCU - скомпилированные модули PAS для последующей быстрой компиляции некоторые файлы не перезаписываются. EXE исполняемый файл, ~PA, ~DP - backup файлы редактора. Автоматически создаются и содержат информацию, перед последним сохранением.

И так, любая программа всегда состоит из уже знакомого нам файла проекта (такой файл имеет расширение. dpr) и одного или нескольких модулей (файлы с расширением. pas) Файл проекта не предназначен для редактирования пользователем и создаётся автоматически самой системой программирования Delphi [7, С. 35].

Для того, чтобы увидеть содержимое файла проекта, необходимо выполнить команду Project View Source. Содержимое файла проекта может быть, например, следующим:

program Project1; uses Forms, Unit1 in 'Unit1. pas' {Form1}; {$R *. res} begin Application. Initialize; Application. CreateForm (TForm1, Form1); Application. Run; end.

Файл проекта (главный модуль) начинается словом program, за которым следует имя программы, совпадающее с именем проекта. Далее за словом uses следуют имена используемых модулей: стандартного модуля Forms и модуля формы Unit1.

Похожая на комментарий директива {$R *. RES} указывает компилятору, что нужно использовать файл ресурсов, который содержит описание ресурсов приложения, например, пиктограммы. Звездочка указывает, что имя файла ресурсов такое же, как и у файла проекта, но с расширением. res.

Исполняемая часть главного модуля находится между операторными скобками begin…end. Операторы исполняемой части обеспечивают инициализацию приложения и вывод на экран стартового окна. Помимо главного модуля каждая программа включает как минимум один модуль формы, который содержит описание стартовой формы приложения и поддерживающих ее работу процедур. В Delphi каждой форме соответствует свой модуль. Для переключения между формой и окном редактора кода, содержащего соответствующий модуль, следует нажать на клавишу F12. Модули - это программные единицы, служащие для размещения фрагментов программ. При помощи содержащихся в них текстов программ и реализуется решаемая пользователем задача.

2. синтаксис И семантика языка программирования Delphi

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

2.1 Алфавит языка

Алфавит - это совокупность допустимых в языке символов [2, С. 15]. Алфавит Турбо Паскаль включает следующий набор основных символов:

· строчные и прописные латинские буквы:

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

a b c d e f g h i j k l m n o p q r s t u v w x y z

· пробел

· подчеркивание: _

· арабские цифры:

0 1 2 3 4 5 6 7 8 9

· знаки операций:

+ - * / = <> < > <= >=:= @

· ограничители:

' () [] (.) {} (* *).:;

· спецификаторы:

^ # $

· служебные (зарезервированные) слова:

ABSOLUTE	EXPORTS	LIBRARY	SET
ASSEMBLER	EXTERNAL	MOD	SHL
AND	FAR	NAME	SHR
ARRAY	FILE	NIL	STRING
ASM	FOR	NEAR	THEN
ASSEMBLER	FORWARD	NOT	TO
BEGIN	FUNCTION	OBJECT	TYPE
CASE	GOTO	OF	UNIT
CONST	IF	OR	UNTIL
CONSTRUCTOR	IMPLEMENTATION	PACKED	USES
DESTRUCTOR	IN	PRIVATE	VAR
DIV	INDEX	PROCEDURE	VIRTUAL
DO	INHERITED	PROGRAM	WHILE
DOWNTO	INLINE	PUBLIC	WITH
ELSE	INTERFACE	RECORD	XOR
END	INTERRUPT	REPEAT
EXPORT	LABEL	RESIDENT

2.2 Элементарные конструкции

Элементарные конструкции языка Паскаль включают в себя имена, числа и строки.

Имена (идентификаторы) называют элементы языка - константы, метки, типы, переменные, процедуры, функции, модули, объекты. Идентификатор в Турбо Паскале может включать в себя:

- буквы латинского алфавита,

- цифры

- символ подчеркивания.

Строчные и прописные буквы не различаются (например, NAME, Name и name будет означать одно и то же). Цифра не может стоять на первом месте в идентификаторе, а символ подчеркивания может находиться в любой позиции (например, name1 и name2item являются допустимыми идентификаторами, а 5name - нет; _name, name_, name_item - тоже допустимые названия). Длина идентификатора может быть любой, но значимыми являются только первые 63 символа. В качестве имен не допускается использовать служебные слова.

Для отделения друг от друга идентификаторов, чисел, зарезервированных слов используются разделители. В качестве них можно использовать:

- пробел и табуляцию;

- перевод строки;

- комментарий.

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

Комментарии заключаются либо в скобки {…}, либо в скобки вида (*… *) и могут занимать любое число строк. Так же для записи комментария используется // …, после // может записать только одну строку.

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

217 -45 8954 +483

Действительные числа записываются в форме с десятичной точкой:

28. 6 0. 65 -0. 018 4. 0

Возможна также запись с использованием десятичного порядка, который изображается буквой Е:

5Е12 -1. 72Е9 73. 1Е-16

В «переводе» такую запись следует понимать соответственно как:

5x10¹² -1. 72x10⁹ 73. 1x10^-16

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

$7F $40 $ABC0

Строки в языке Паскаль - это последовательность символов, записанная между апострофами. Если в строке в качестве содержательного символа необходимо употребить сам апостроф, то следует записать два апострофа.

2.3 Переменные, константы и операторы

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

var i: Integer; s: String;

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

var s, a, t: String; // в стиле с++

Константа - это область памяти содержащая определённое значение, но значение остаётся на весь период существования константы. При определении константы тип данных не указывается. Константа определяется в разделе const. Пример

const name: 'vasya';

VAR и CONST определяются до тела проги или процедуры! Пример:



Procedure Name; var name: String; begin name:='Vasya'; end;

Операторы используются для того чтобы присвоить значение переменной.

:= Единственный оператор присвоения в Delphi/Паскаль

Арифметические операторы.

+ - сложение

- - вычитание

* - умножение

/ - деление

DIV - целочисленное деление

MOD - деление по модулю

Операторы сравнения.

= - равно

<> - не равно

< - меньше

> - больше

<= - меньше либо равно

>= - больше либо равно

Условные операторы IF. THEN - позволяет определить выполняются ли некоторые условия и в зависимости выполнить тот или иной код.

IF -> выражение -> THEN -> оператор -> ELSE -> оператор -> END;

Это читается так:

ЕСЛИ -> выражение -> ТО -> оператор -> ИНАЧЕ -> оператор -> END;

Пример:
IF i=0 THEN i:=1 ELSE i:=i+1;

Выражение - это условие содержащее один или более операторов сравнения. Операторы сравнения перечисляются следующим образом:

IF (a=0) AND (b=1) AND (c=0) THEN… - проверяется чтобы a=0 И b=1 И c=0

IF (a=0) OR (b=1) OR (c=0) THEN… - проверяется ИЛИ a=0 ИЛИ b=1 ИЛИ c=0

ELSE - не обязательный оператор, его можно не писать.

Пример:
IF i=0 THEN i:=1;

Операторов может быть несколько, их только надо взять в begin и end.

Пример:
IF i=0 THEN begin i:=1; b:=2; c:=3; end;

Когда после END стоит ELSE, то знак «;» ставить не надо.

Пример:
IF i=0 THEN begin i:=1; b:=2; c:=3; end ELSE c:=5;

3. Практическая реализация задач с использованием языка программирования Delphi

Задание состоит в том, чтобы познакомиться с назначением среды визуального программирования Delphi, компонентами интерфейса, изучить и освоить основные приемы работы в этой среде; разработать простую программу в среде Delphi, которая выполняет ввод данных заданного типа, выполняет вычисления и выводит результат; освоить средства отладки программ в СВП Delphi, позволяющие обнаружить и исключить алгоритмические (логические) ошибки в программе, разработать процедуры контроля данных в прикладной программе и дополнить функции программы выводом формы «О программе».

Программа создана на основании исходных данных соответствующего варианта задания, которые приведены ниже:

№ вар	Компонент для выбора функции	Компонент для окончания работы	Компонент для вывода результата	Типы данных	Функции
6	Метка	Метка	Memo	Integer	Y=B2 / A

№ вар	Операторы для контроля	Исключения	Проверка
	Try … except…	If … then…	Стандартные	Оригинальные	Диапазоны данных	Отношения между данными
6	-	+	+	+	|B|<150	A < B

Описание созданной программы

Для решения поставленной задачи были созданы три формы - форма, непосредственно в которой производится расчет значений функции У=В²/А при задаваемых значениях А и В; «Главная» форма, открывающаяся сразу после запуска файла ЕХЕ; форма AboutBox «О программе».

Сведения о функциях, выполняемых процедурами, использованными во всех формах проекта, отражены в таблице 1.

Таблица 1. Процедуры и элементы управления

Имя программного модуля, процедуры	Назначение, выполняемые функции	Элемент управления
		название	имя (идентификатор)	надпись
procedure TForm1. Label6Click	Закрытие формы	метка	Label6	Закрыть
procedure TForm1. Label5Click	Сброс данных, очистка полей Edit1, Edit2, Memo1	метка	Label5	Сброс
procedure TForm1. Label4Click	Вычисление функции У=В2/А, вывод результата в поле Memo1	метка	Label4	Рассчитать
procedure TForm1.N3Click	Закрытие формы	Пункт меню	N3	Закрыть
TForm1.N2Click	Вызов формы AboutBox	Пункт меню	N2	О программе
procedure TAboutBox.OKButtonClick	Закрытие формы «О программе»	Кнопка	OKButton	Ok
procedure TForm4. Button1Click	Закрытие главной формы	Кнопка	Button1	Закрыть
procedure TForm4. Button2Click	Вызов формы Form1	Кнопка	Button2	Начать

Данные о значениях свойств компонентов, использованных в форме Form1, измененных по сравнению с первоначальными значениями, описаны в таблице 2.

Таблица 2. Свойства компонентов формы Form1 «Решение функции У = В² / А»

Компонент и его имя	Надпись	Свойство	Значение
Окно ввода, Edit1	-	ParentShowHint	True
	Text	-
	Hint	Поле для ввода значения переменной А
Окно ввода, Edit2	-	ParentShowHint	True
	Text	-
	Hint	Поле для ввода значения переменной В
Окно вывода, Memo1	-	ParentShowHint	True
	Hint	Поле вывода результата
Метка, Label1	Введите А	Font / Size	15
	Caption	Введите А
Метка, Label2	Введите В	Font / Size	15
	Caption	Введите В
Метка, Label3	Результат	Font / Size	15
	Caption	Результат
Метка, Label4	Рассчитать	Font / Size	15
	Caption	Рассчитать
	ParentShowHint	True
	Hint	Нажмите для подсчета результата
Метка, Label5	Сброс	Font / Size	15
	Caption	Сброс
	ParentShowHint	True
	Hint	Нажмите для очистки полей ввода
Метка, Label6	Закрыть	Font / Size	15
	Caption	Закрыть
	ParentShowHint	True
	Hint	Нажмите для выхода
MainMenu1	-	Name	MainMenu1

Аналогичные данные о значениях свойств компонентов форм AboutBox и Form4, описаны соответственно в таблицах 3 и 4.

Таблица 3. Свойства компонентов формы AboutBox «О программе»

Компонент и его имя	Надпись	Свойство	Значение
ProductName	Программа расчета функции квадрат В/А	Font / Size	20
	Font / Name	Palatino Linotype
Version	Учебная версия студентки группы 05ММ1з Кольцовой М.А.	Font / Size	8
	Font / Name	MS Sans Serif
Comments	Внимание! Данная программа защищена законами…	Font / Size	8
	Font / Name	MS Sans Serif
Кнопка, OkButton	Ok	ParentShowHint	True
	Hint	Нажмите для закрытия окна
ProgramIcon	-	Picture	TJPEGImage

Таблица 4. Свойства компонентов формы Form4 «Главная»

Компонент и его имя	Надпись	Свойство	Значение
Метка, Label1	Программа расчета функции У=В2/А	Font / Size	18
	Font / Name	MS Sans Serif
Кнопка, Button1	Закрыть	ParentShowHint	True
	Hint	Нажмите для выхода из программы
Кнопка, Button2	Начать	ParentShowHint	True
	Hint	Нажмите для начала работы

Модули к программе в среде визуального программирования (СВП) Delphi после добавления кодов процедур и закомментированных пояснений, приняли следующий вид:

Модуль к форме Form1

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus;

Type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Memo1: TMemo;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure Label6Click (Sender: TObject);

procedure Label5Click (Sender: TObject);

procedure Label4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

private

{Private declarations}

Public

{Public declarations}

end;

var

Form1: TForm1;

Implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1. Label6Click (Sender: TObject); {закрытие формы по клику на метке «Закрыть»}

begin

Close;

end;

procedure TForm1. Label5Click (Sender: TObject); {очистка полей ввода и вывода данных по клику на метке «Сброс»}

begin

Edit1. Text:='';

Edit2. Text:='';

Memo1. Text:='';

end;

procedure TForm1. Label4Click (Sender: TObject); {расчет результата по клику на метке «Рассчитать»}

begin

Memo1.text:='';

if trim (Edit1.text)= '' {проверка наличия данных в окне Edit1 без генерации исключений}

then

begin

ShowMessage ('Не задано значение А');

Edit1.setfocus;

Exit

end;

begin

Memo1.text:='';

if trim (Edit2.text)= '' {проверка наличия данных в окне Edit1 без генерации исключений}

then

begin

ShowMessage ('Не задано значение B');

Edit2.setfocus;

Exit

end;

end;

begin

if trim (Edit1.text)= '0' {обработка исключительного случая А=0}

then

begin

ShowMessage ('Недопустимое значение А. Деление на 0');

Edit1.setfocus;

Exit

end;

end;

begin

Memo1.text:='';

if StrToInt (Edit1. Text)> StrToInt (Edit2. Text) {проверка соблюдения условий задачи}

then

begin

ShowMessage ('Не удовлетворяется условие задачи А<В');

Exit

end;

end;

begin

Memo1.text:='';

if StrToInt (Edit2. Text)>149 {проверка соблюдения условий задачи}

then

begin

ShowMessage ('Не удовлетворяется условие задачи /В/<150');

Exit

end;

end;

begin

Memo1. Text:=FloatToStr (StrToInt(Edit2. Text)*StrToInt (Edit2. Text)/StrToInt (Edit1. Text));

end;

end;

procedure TForm1.N3Click (Sender: TObject); {Закрытие формы по клику в пункте главного меню «Закрыть»}

begin

Close;

end;

procedure TForm1.N2Click (Sender: TObject); {Вызов формы «О программе» в модальном режиме по клику на пункте главного меню «О программе»}

begin

AboutBox. ShowModal;

end;

end.

Модуль к форме AboutBox

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

Label2: TLabel;

procedure OKButtonClick (Sender: TObject);

private

{Private declarations}

Public

{Public declarations}

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick (Sender: TObject); {Закрытие формы «О программе» по клику на кнопке «Ok»}

begin

Close;

end;

end.

Модуль к форме Form4

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4. Button1Click (Sender: TObject); {Закрытие формы «Главная» по клику на кнопке «Закрыть»}

begin

Close;

end;

procedure TForm4. Button2Click (Sender: TObject); {Вызов формы Form1 в модальном режиме по клику на кнопке «Начать»}

begin

Form1. ShowModal;

end;

end.

Примеры работы программы

Рис. 3 Вызов главной формы программы по открытию файла ЕХЕ

Рис. 4 Сообщение об отсутствии данных в поле Edit1 генерируется по нажатию на метку «Рассчитать»



Рис. 5 Сообщение об ошибке деления на 0

Рис. 6 Сообщение об ошибке несоответствия введенных значений переменных условиям задачи

Процесс отладки программы

Для отладки созданной программы был использован набор специальных инструментальных средств, который имеется в составе СВП Delphi. Это - наблюдение значений переменных через пункты меню View / Debug Windows / Watches, изменение значений переменных в процессе выполнения программы «по шагам» через пункты меню Run / Evaluate / Modify (или View / Evaluate / Modify), выполнение программы «по шагам» с использованием «горячих» клавиш F8 (Step over - «Шаг поверх…»), F7 (Trace into - «Трассировка с заходом в…»), Shift+F7 (Trace to next source line - «Трассировка до следующей строки»), F4 (Run to cursor - «Выполнить до курсора»), установка точек прерывания (breakpoint) с помощью щелчка на левом поле у нужной строки текста программы, использование «инспектора отладки» (Debug Inspector).

Выводы

Созданная программа позволяет выполнять:

ь вывод главной формы с заголовком «Программа расчета функции У=В²/А», соответствующим назначению программы;

- ввод данных в режиме диалога;

ь проверку наличия исходных данных перед вычислением и вывод соответствующих сообщений об ошибках: «Не задано значение А», «Не задано значение В», а также проверку допустимых значений переменных (Вывод сообщения при задании значения А, равном 0 - «Недопустимое значение А. Деление на 0»), проверку соответствия введенных значений заданному диапазону - В<150 и заданному соотношению между переменными - А<В с выводом соответствующих сообщений об ошибках;

ь вывод подсказок о назначении компонентов, заданных в свойстве Hint окна Object Inspector;

ь вывод формы «О программе».

Заключение

Система Delphi позволяет решать множество задач, в частности:

*Создавать законченные приложения для Windows самой различной направленности: от чисто вычислительных и логических, до графических и мультимедиа.

*Быстро создавать (даже начинающим программистам) профессионально выглядящий оконный интерфейс для любых приложений.

*Создавать мощные системы работы с локальными и удаленными базами данных

*Создавать справочные системы (файлы. hlp) для своих приложений и мн. др.

Delphi - это комбинация нескольких важнейших технологий:

*Высокопроизводительный компилятор в машинный код

*Объектно-ориентированная модель компонент

*Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

*Масштабируемые средства для построения баз данных.

В процессе выполнения курсового проекта я усвоил некоторые возможности Delphi. Но даже этот небольшой объем материала позволил мне убедиться в колоссальности данной среды.

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

При выполнении курсовой работы:

· была изучена теория и технология работы с средой программирования Borland Delphi7;

· была изучена и проанализирована соответствующая литература;

· был проведён сравнительный анализ языков этого класса и показаны преимущества и недостатки языка Delphi;

· были приведены элементы методической работы в виде разработки вариантов заданий (из прикладных областей) для учащихся старших классов школ изучающих Delphi на уроках информатики.

Список использованных источников

1. Гофман, В.Э. Delphi. Быстрый старт / В.Э. Гофман, А.Д. Хомоненко. - СПб.: БХВ-Петербург, 2003. - 288 с.

2. Мизрохи, С.В. Turbo Pascal и объектно-ориентированное программирование / С.В. Мизрохи. - М.: Финансы и статистика, 1992. - 193 с.

3. Пестриков, В.М. Delphi на примерах / В.М. Пестриков, А.Н. Маслобоев. - СПб.: БХВ-Петербург, 2005. - 496 с.

4. Стивене, Р. Delphi. Готовые алгоритмы / Род Стивене; Пер. с англ. Мерещука П.А. - 2-е изд., стер. - М.: ДМК Пресс; СПб.: Питер, 2004. - 384 с.

5. Фаронов В.В. Deiphi 6. Учебный курс / В.В. Фараонов. - СПб.: Питер, 2002. - 260 с.

6. Федоров А.Г. Создание Windows-приложений в среде Delphi / А.Г. Федоров. - М.: ТОО «Компьютер Пресс», 1999. - 347 с.

7. Фленов М.Е. Библия Delphi / М.Е. Фленов. - 2-е изд., перераб. и доп. - СПб.: БХВ-Петербург, 2008. - 800 с.

Размещено на Allbest.ru