По программированию в среде Delphi

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

Российско-Таджикский (славянский) университет.

Кафедра «Информатика и информационные системы».

МЕТОДИЧЕСКОЕ ПОСОБИЕ

По программированию в среде Delphi

Абдувасиева З.С.,

Юнусов Н.И.

Душанбе 2013



УДК 004.43(075)

Абдувасиева З.С., Юнусов Н.И. Методическое пособие по выполнению лабораторных работ для студентов специальности «Прикладная информатика» высших учебных заведений. Часть I. Душанбе. Изд. РТСУ. 2011.

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

Рецензенты: Хабибуллин В.А.-.технический директор ООО «НЭЛТ» Нуров И.Д. - д.ф.- м.н., доцент.

Печатается на основании решения научно-методического совета РТСУ.



Общие положения

Настоящие указания составлены с целью оказания помощи студентам для получения ими практических навыков по технологии визуального проектирования собственных приложений под Windows в среде Delphi с использованием методологии объектно-ориентированного программирования. Лабораторные работы охватывают основные этапы разработки программ под Windows.

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



1. Основные понятия и определения Delphi

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

В главном окне находиться меню команд Delphi, панель инструментов и палитра компонентов.

Окно формы, его заголовок FORM1 представляет собой заготовку, макет одного из объектов разрабатываемого приложения.

Окно инспектора объектов, его заголовок Object Inspector позволяет видеть и менять свойства объектов проекта. После запуска Delphi в этом окне отображаются свойства формы FORM1.

Окно редактора кода предназначено для создания процедур обработки событий. В Delphi кодом называется текст программы.

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

Свойствами объекта являются, например, размер текста заголовка, цвет фона формы или текст на командной кнопке и многое другое, полный перечень свойств можно увидеть в окне Object Inspector для выделенного объекта. визуальный программирование delphi приложение

Событие - это то, что происходит во время работы созданного Вами приложения. В Delphi у каждого события есть имя, например, щелчок кнопкой мыши это событие OnClick, двойной щелчок - событие OnDblClick .

Проект- это набор файлов (программных единиц - модулей), используя которые компилятор создает файл исполняемой программы. Один из файлов проекта, который называется файлом проекта и имеет расширение dpr, содержит общее описание проекта. Файл проекта является главным модулем приложения, который формируется Delphi. Помимо главного модуля, проект включает в себя один или более модулей (Unit) . Файлы модулей проекта(Unit) содержат тексты процедур, функций, описание типов, а также всю информацию для создания исполняемой программы, и имеют расширение pas. Процедура - эта группа операторов в языке программирования, позволяющая выполнить конкретные действия (решить задачу). Так или иначе, весь составленный инициализации Вами исполняемый код обязательно помещается в какую-нибудь процедуру.

Модуль (Unit) состоит из трех разделов: интерфейса(начинается со слова interface), реализации(начинается со слова implementetion) и. Ниже приводится структура модуля.

unit ИмяМодуля;

interface

{ Здесь находятся описание процедур и функций этого модуля, которые могут использоваться другими модулями}

const

{Здесь находятся объявления глобальных констант модуля, которые могут использоваться процедурами и функциями модуля}

type

{Здесь находятся объявления глобальных типов модуля, которые могут использоваться процедурами и функциями модуля}

var

{Здесь находятся объявления глобальных переменных модуля, которые могут использоваться процедурами и функциями модуля}

implementation

{Здесь находятся описание процедур и функций модуля}

Begin {Здесь находятся инструкции раздела инициализации переменных модуля}

end.



Таким образом, раздел интерфейса сообщает компилятору, какая часть модуля является доступной для других модулей программы. Раздел реализации начинается директивой {$R*.DFM}, указывающей компилятору, что в процессе генерации выполняемого файла надо использовать описание формы. описание формы находится в файле с расширением dfm, имя которого совпадает с именем модуля. За директивой {$R*.DFM} следуют процедуры обработки событий для формы и ее компонентов. Сюда же программист может поместить разработанные процедуры и функции. Если раздел инициализации не содержит инструкций, то слово begin не указывается.

2. Состав проекта Delphi

Проект - это набор файлов, используя которые компилятор создает исполняемый файл программы (EXE-файл). В простейшем случае проект состоит из файла описания проекта (DOF-файл), файла главного модуля (DPR-файл), файла ресурсов (RES-файл), файла описания формы (DFM-файл), файла модуля формы, в котором находится основной код приложения (PAS-файл),файл конфигурации (CFG-файл).

Файла параметров проекта(dof) хранит все параметры среды разработчика, ориентированные на проект. При загрузке этого проекта они восстанавливаются.

Файл главного модуля или файл проекта(расширение dpr) - это программный код на языке Object Pascal, который генерируется автоматически и содержит ссылки на все модули проекта и инициализирует приложение.

Файлы всех модулей, входящих в проект, имеют расширение pas. Кроме модулей формы могут существовать чисто программные модули.

Файл ресурсов приложения (расширение RES) содержит ресурсы, не вошедшие в формы, например, значок приложения, который будет виден при его свертывании, или нестандартные курсоры, введенные программистом.

Файл конфигурации проекта(cfg) содержит команды компилятора.

При компиляции проекта и отдельных модулей создаются бинарные файлы: выполняемый файл проекта exe и файл dcu для каждого модуля с расширением pas.

3. Правила проведения лабораторных занятий и оформления отчета

Общий порядок выполнения лабораторных работ.

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

Выполнить пример, приведенный в методическом пособии на компьютере

Составить проект интерфейса(компонент приложения с которым будет работать пользователь) и требуемую программу согласно задания.

Оформить отчет по лабораторной работы, состоящий из текста кода и ответов на вопросы.

Получить результаты счета программы и при наличии ошибок устранить их и отладить программу.

Общие требования, предъявляемые к оформлению протоколов лабораторных работ.

Отчет должен содержать:

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

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

Ответы на контрольные вопросы и листинг программы.

Распечатку результатов выполнения приложения.

Выводы и заключения.



Лабораторная работа 1. Консольное приложение

Цель работы

Целью работы является практическое использование инструкций read, readln, write и writeln в Delphi.

Основные сведения

В конце 70-х годов, когда Н. Вирт разработал Pascal, операционная система Windows еще не существовала. Большинство программистов создавали свои программы для операционной системы MS DOS, в которой основным устройством ввода исходных данных была клавиатура, а устройством вывода -- монитор, работающий в режиме отображения символьной информации (буквы, цифры и специальные знаки). Поэтому в Pascal были введены инструкции, обеспечивающие ввод данных с клавиатуры (read и readln) и вывод информации на экран монитора (write и writeln). И по сей день эти инструкции остаются основными инструкциями ввода-вывода при программировании на Pascal, например, в Turbo Pascal 7.0.

Delphi позволяет создать приложение, в котором для ввода с клавиатуры можно использовать инструкции read и readln, а для вывода на экран монитора инструкция write и writeln. Такое приложение называется консольным. Консоль -- это монитор и клавиатура, рассматриваемые как единое устройство ввода-вывода.

Инструкции WRITE и WRITELN

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

Примеры:



write(Summa);

write('Результат вычислений');

write('Корни уравнения: xl=',xl,' х2=',х2);

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

Для переменной типа integer формат -- это целое число, определяющее ширину поля вывода (количество позиций на экране). Например, инструкция write(d:5); показывает, что для вывода значения переменной d используется 5 позиций. Если число такое, что его изображение занимает меньше позиций, чем указано в формате, то перед выводом числа добавляется такое количество пробелов, чтобы общее количество выведенных символов было равно указанному в формате.

Например, если значение переменной Kol типа integer равно 15, то в результате выполнения инструкции

write('Всего изделий:',Kol:5);

на экран будет выведено: Всего изделий: 15

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

Например, пусть переменные xi и х2 типа real имеют значения 13.25 и -0.3401, тогда в результате выполнения инструкции

Write('х1=',х1:5:2,' х2=',х2:12)

на экран будет выведено: xl=13.25 х2=-3.40100Е-01

Если ширины поля, указанной в формате, недостаточно для вывода значения переменной, то выводится число в формате с плавающей точкой и десятью цифрами после запятой (все поле вывода в этом случае занимает 17 позиций).

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

х:= -2.73;

write('Значение перем'); write('енной:'); write('х='); write(х:8:5);

на экран будет выведено: Значение переменной:х=2.73000

Инструкция writeln отличается от инструкции write только тем, что после вывода сообщения или значений переменных курсор переводится в начало следующей строки. Например, если значением переменной x1 является число -3.561, х2 -- число 10.345, то результатом выполнения следующих инструкций

writeln('Значения корней уравнения:');

writeln('xl=',x:7:3); writeln('x2=',x:7:3);

будет следующий текст на экране:

Значения корней уравнения:

х1=-3.5610

х2= 10.345

Инструкции READ и READLN

Инструкция read предназначена для ввода с клавиатуры значений переменных (исходных данных). В общем виде инструкция выглядит так:

read (Переменная1, Переменная2, ... ПеременнаяN)

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

Примеры:

read(а); read(Cena,Kol);

При выполнении инструкции read происходит следующее: программа приостанавливает свою работу и ждет пока на клавиатуре будут набраны нужные данные и нажата клавиша <Enter>. После нажатия <Enter> введенное значение присваивается переменной, имя которой указано в инструкции. Например, в результате выполнения инструкции read(Temperat) и набора на клавиатуре строки 21, значением переменной Temperat будет число 21.

Одна инструкция read позволяет получить значения нескольких переменных. В этом случае вводимые числа должны набираться в одной строке и разделяться пробелами. Например, если тип переменных а, b и с - real, то в результате выполнения инструкции read(а, b, с) и набора на клавиатуре строки 4.5 23 0.17

значение переменной a будет равно 4.5, b - 23.0, с - 0.17.

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

read(А,В); read(С); и набора на клавиатуре строки 10 25 18

как реакции на инструкцию read(A, B), переменная A получит значение 10, B -25. Инструкция read(С) присвоит переменной C значение 18.

Инструкция readln отличается от инструкции read тем, что после выделения очередного числа из набранной на клавиатуре строки и присваивания его последней переменной из списка инструкции readln, оставшаяся часть строки теряется и следующая инструкция read или readln будет требовать нового ввода. Например, в результате выполнения инструкций readln(А,В); read(С); при наборе пользователем строки 10 25 18

переменная A получит значение 10, B -25. После чего программа будет ожидать ввода нового числа, чтобы присвоить его переменной C.

Перед каждой инструкцией read или readln следует располагать инструкцию write, чтобы подсказать пользователю, какие данные ожидает от него программа. Например, фрагмент программы вычисления стоимости покупки может быть представлен:

writeln('Введите исходные данные.');

write('Цена изделия:');

readln(Cеnа);

write('Количество в партии:');

readln(Kol);

write('Скидка:');

readln(Skidka);

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

Задание

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

Порядок выполнения задания

Консольное приложение создается следующим образом. После выполнения команды File-New-Other на вкладке New появившегося диалогового окна New Items выбрать тип создаваемого приложения - Console Applcation. В результате этих действий на экране появится Project1.dpr, в котором находится шаблон главной процедуры консольного приложения. В этом окне можно набирать инструкции программы.

Пример программы, которая запрашивает у пользователя вес в фунтах, пересчитывает в килограммы и граммы и выводит результат, приведен в данной работе. Самая первая строка программы- это директива для компилятора, согласно этой директиве компилятор генерирует исполняемую программу, ориентированную на работу с консолью. Командой Project compile выполняется компиляция консольного приложения. Как обычно, для запуска используется RUN и появляется стандартное окно, в которое выводятся все сообщения, и на которое вводятся с клавиатуры данные. Консольное приложение создается в Delphi, следовательно, в Windows выполняется это приложение как программа Dos. В Dos используется кодировка ASCII, в Windows используется код ANSI. В этих кодах буквы русского алфавита кодируются по-разному, поэтому сообщения на русском языке должны записываться латинскими буквами. Для перекодировки из ANSI в ASCII необходимо составить соответствующую программу.

{$Apptype Console} {директива}

program arsindel;

uses

classes;

var f:real; {вес в фунтах}

w:real;

k,g:integer; {вес в килограммах и граммах}

begin

writeln('enter weigth');

write('-');

readln(f);

w:=f*409.5;

if w>1000 then

begin

k:=trunc(w/1000); {вес в килограммах}

g:=round(w-k*1000); {вес в граммах}

end

else

begin

k:=0;

g:=round(w);

end;

write(f:4:2,'pound is ');

if k>=1 then

writeln(k,'kg');

writeln(g,'gr');

write('to countinue press <enter>');

readln;

end.

Вопросы для самопроверки.

Назначение инструкции write?

Назначение инструкции writeln?

Назначение инструкции read?

Назначение инструкции readln?

Лабораторная работа 2. Создание простой формы

Цель работы

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

Основные сведения.

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

Задание к работе.

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

- Изучить интегрированную среду проектирования DELPHI, этапы создания диалогового окна и структуру простого проекта, состоящего из законченных программных модулей.

Порядок выполнения работы.

1.Разработка Формы приложения.

Работа над новым проектом начинается с создания стартовой формы. Стартовая форма создаётся путём изменения свойств типовой формы Form 1. Свойства формы определяет её внешний вид: размер, положение на экране, текст заголовка, вид рамки. Эти, а также ряд других свойств перечислены на вкладе Properties (свойства) окна Object Inspector. В левой колонке находятся имена свойств, в правой - их значения. Сначала изменим значение свойства caption (заголовок). Заменим на фунты - килограммы. Для этого надо щелкнуть мышью в поле Caption Form1. В результате этого в правой колонке, где находятся текущее значение свойства - текст Form1, появляется курсор. Используя клавишу <Backspace>, надо удалить Form1 и ввести Фунты-килограммы.

2. Компоненты формы

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

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

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

Компонент формы, окруженный восемью маркерами, называется выделенным. В окне Object Inspector отображаются свойства выделенного на этот момент компонента. Ниже в таблице приводятся основные свойства компонента, называемого полем редактирования EDIT.

Помимо полей редактирования окно формы должно содержать поясняющий текст: краткое информационное сообщение. Текст, находящийся в форме, называется меткой. Добавляется метка формы точно так же, как и поле редактирования. Пиктограмма метки Label (большая буква А) находится в палитре компонентов перед пиктограммой поля редактирования. После того как метка добавлена, можно, используя окно Object Inspector, изменить его свойства.

К форме разрабатываемого приложения надо добавить две метки. Первая метка будет отображать информационное сообщение. Вторая метка предназначена для вывода результата пересчета веса. Ниже в таблице приведены свойства меток Label1 и Label2.

Свойство WordWrap при значении True автоматически переносит на следующую строку слова, которые не помещаются в текущей строке. При этом свойство AutoSize должно иметь значение False.

Cвойство ParentFont метки Label2 имеет значение False, поэтому свойство Font этой метки не наследует значение свойства Font “ родителя”, в данном случае основной формы. Это дает возможность установить свойства шрифта метки иные, чем у формы. У метки Label1 значения свойства ParentFont оставлено без изменения.

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

3. Событие и процедура обработки события.

Вид созданной формы подсказывает, как работает приложение. Очевидно, что пользователь должен ввести значения веса в фунтах в поле редактирования, затем щелкнуть на кнопку Пересчет. Щелчок на изображении командной кнопки - это пример того, что в Windows называется событием. Щелчок кнопкой мыши событие onClink, двойной щелчок - событие onDblClick.

В Delphi реакция на событие реализуется как процедура обработки события. Таким образом, задача программиста состоит в написании необходимых процедур обработки событий. Сначала следует маркировать (выделить) объект, для которого создается процедура обработки события, в нашем случае это командная кнопка Пересчет. Затем выбрать вкладку Events (события) окна Object Inspector. В результате на экране появится вкладка со списком событий.

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

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

Вторая часть имени идентифицирует сам объект и события. В нашем случае имя формы это Form1, имя командной кнопки - Button1 , а имя события - Click.

В окне редактора кода между begin и end, можно печатать инструкции Object Pascal, реализующие процедуры обработки события.

Ниже приведен текст процедуры для события On Click на кнопке Пересчет.



Procedure TForm1.Button1Click (Sender: TObject);

Var

f: real; {вес в фунтах}

k: real; {вес в килограммах}

begin

f:= StrToFloat (Edit1.Text);

k:= f * 0.4059;

Label2.caption:= Edit1.Text +' фунт(а/oв) это `+

FloatToStrF(k, ffGeneral,4,2) +

`килограмм(а/ов)';

end;

Исходные данные программа получает из поля редактирования Edit1, обращением к свойству Text. Свойствo Text содержит строку символoв( текст), поэтому, для преобразования изображения цифр в число, в программе используется функция StrToFloatF.

Вывод вычисленного значения программа осуществляет в поле метки Label2, присвоением ее свойству Caption значения - текста сообщения.

4. Сохранения проекта

Чтобы сохранить проект, надо из меню File выбрать команду Save Project As. Если проект еще ни разу не был сохранен, то в ответ на команду сохранения проекта Save Project As Delphi сначала выводит диалоговое окно Save Unit1 As. В этом окне следует выбрать папку, предназначенную для хранения всех проектов Delphi. В папке проектов Delphi следует создать новую, отдельную папку для файлов сохраняемого проекта. Для этого надо щелкнуть на кнопке Создание новой папки.

Рядом с появившемся значком новой папки, в рамке, следует напечатать имя папки проекта, например, Фунты - килограммы, и нажать <Enter>, после чего двойным щелчком на значке созданной папки раскрыть ее. Затем в поле Имя файла надо ввести имя программного модуля, например, FuntToKg1, и щелкнуть на кнопке Сохранить. Именем файла проекта может быть, например: FuntToKg. Имена программного модуля(имеющего расширение pas) и файла проекта(имеющего расширение dpr) должны различаться.

5. Компиляция.

После ввода текста процедуры обработки события и сохранения проекта можно, выбрать команду Compile из меню Project, откомпилировать приложение. Если в программе нет синтаксических ошибок, то на экране появляется окно Compiling, информирующее о результатах компиляции.

Запуск приложения из среды программирования.

Пробный запуск приложения можно выполнить непосредственно из среды программирования, не завершая работу с Delphi, с помощью команды Run из меню Run.

6. Окончательная настройка приложения.

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

Чтобы назначить приложению название и значок, надо из меню Project выбрать команду Option, затем в открывшемся диалоговом окне Project Option вкладку Application.

В поле Title (заголовок) следует ввести названия приложения и щелкнуть на командной кнопке Load Icon (загрузить значок). Название приложения во время его работы выводится на панель задач Windows рядом со значком, отображающим это приложение. Чтобы назначить приложению значок, отличный от стандартного, надо щелкнуть мышью на кнопке Load Icon. Затем, используя стандартное окно просмотра папок, найти подходящий значок в (значки хранятся в файлах с расширением ico).

ЗАМЕЧАНИЕ

Главный модуль приложения хранится в файле с расширением dpr. Чтобы увидеть его текст, надо из меню View выбрать команду Project Source.

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

program FuntToKg;

uses

Forms,

FunToKg1 in `FuntToKg1.pas' {Form1};

{$R*.RES}

begin

Application.Initialize;

Application.Title:='Фунты->Килограммы;

Application.CreateForm(Tform1,Form1);

Aplication.Run;

end.

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

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

ЗАМЕЧАНИЕ

Файл ресурсов не является текстовым файлом и просмотреть его с помощью редактора текста нельзя. Для работы с файлами ресурсов можно использовать входящую в состав Delphi утилиту Image Editor, доступ к которой можно получить, выбрав команду Image Editor из меню Tools.

Выполняемая часть главного модуля находится между инструкциями begin и end. Инструкции исполняемой части обеспечивают инициализацию приложения и вывод на экран стартового окна.

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

Ниже приведен текст модуля формы программы пересчета веса из фунтов в килограммы.

Unit FuntToKg1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

type

Tform1=class(TForm)

Label1: Tlabel;

Edit1: TEdit;

Button1: TButton;

Label2: TLabel;

procedure Button1Click (Sender: TObject);

private

{Private declarations }

public

{Public declarations }

end;

var

Form1: Tform1;

implementation

{$R*.DFM}

procedure TForm1.Button1Click (Sender: TObject);

var

f: real; {вес в фунтах}

k: real; {вес в килограммах}

begin

f:=StrToFloat(Edit1.Text); {ввод исходных данных}

k:=f*0.4095; {вычисление}

Label2.caption:=Edit1.text+'фунт(а/ов) это'+ FloatToStrF(k,ffGeneral,4,2)+

` килограмм (а/ов)'; {вывод результата}

end;

end.

Следует отметить, что значительное количество инструкций модуля формируются самим Delphi. Например, Delphi, анализируя действия программиста по созданию формы, формирует описание класса формы.

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

1.Спроектировать приложение, которое даст возможность определить объем помещения Вашей лаборатории.

2.Написать программу и выполнить проект с помощью которого можно определить диаметр провода по заданной площади его поперечного сечения.

3.Найти необходимое количество асфальта для покрытия заданной площади, если известно что на один квадратный метр расходуется 130 кг асфальта при толщине укладываемого слоя 5 см. Задачу оформить в виде диалогового окна.

4.Спроектировать интерфейс пользователя для решения следующей задачи: определить время кипения воды объемом 1.5 литра в электрическом чайнике мощностью 1 квт.

5. Выполнить приложение с помощью, которого можно будет определить время падения предмета сброшенного с третьего этажа здания. Трудно ли решить обратную задачу - определить высоту третьего этажа, если известно время падения предмета?

6.Определить вес арбуза по его объему, если его плотность принять равным 0.98 г/см. куб. Попробуйте произвести расчеты при другом значении плотности, например , 1.1 г/ см. куб.

7. Составьте программу перевода сомони в доллары, взяв курс доллара на день составления данной программы. Работу оформить как приложение Windows.

8.Составьте программу перевода углов из градусов в радианы. Задачу оформить как Windows приложение.

9.Напишите программу перевода температуры из градусов по шкале Цельсия (С) в градусы шкалы Фаренгейта (F). Перевод осуществить по формуле F=1.8*C + 32.

10.Напишите программу определения размера месячной заработной платы рабочего, если его часовая ставка составляет 25 дирамов. Оформите работу в виде проекта в среде Delphi.

11.Оформите законченное Windows приложение для перевода дюймов в сантиметры

12.Какое количество хлопка можно собрать с площади 234 га, если известно, что урожайность с этого поля, предположительно, составляет 25 ц/ га. Задачу оформить в виде законченного программного продукта.

ВОПРОСЫ ДЛЯ САМОПРОВЕРКИ.

Что подразумевается в Delphi под формой?

Что подразумевается под событием?

Что подразумевается под свойствами объекта?

Что такое проект?

Как создается компонента на форме?

Как создаются процедуры обработки событий?

Расскажите о процессе компиляции и запуска приложения.

Что нужно сделать, чтобы назначить значок и имя приложению?

Что с собой представляет модуль программы?

Что можно делать в поле редактирования?

Лабораторная работа 3. Задача с использованием инструкции case

Цель работы

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

Краткие теоретические сведения.

Инструкция Case позволяет реализовать множественный выбор (селекцию) и в общем виде записывается так:

case выражение (селектор) of

список1 констант: begin

{ последовательность инструкций }

end;

список2 констант : begin

{ последовательность инструкций }

end;

списокN констант : begin

{ последовательность инструкций }

end;

else

begin

{ последовательность инструкций }

end;

end;

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

Список констант - константы разделенные запятыми. Если константы представляют упорядоченную последовательность чисел, то вместо списка можно указать их диапазон, разделив их двумя точками. Например, список 1,2,3,4,5,6,7 может быть заменен диапазоном 1..7.

Пример.

case n_day of

1..5: d :=`Рабочий день';

6 : d := `Суббота';

d := `Воскресенье';

else

d:= `Неправильный ввод'

end;

В лабораторной работе для выбора значения выражения используется компонента или объект ListBox. Компонента список (ListBox) добавляется к форме приложения точно так же, как и другие объекты, например, командная кнопка или поле редактирования. Главными свойствами ListBox являются - Items и ItemIndex .

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

Свойство ItemIndex во время работы программы содержит номер выбранного элемента списка. Если ни один элемент не выбран из списка, то его значение равно минус единице.

Задание к работе.

Создать проект в Delphi, используя инструкции case и компоненту ListBox для пересчета веса из фунтов в килограммы с учетом отличия «веса» фунта в разных странах.

Порядок выполнения работы.

В качестве примера использования инструкции case рассмотрим программу, которая пересчитывает вес из фунтов в килограммы, но в отличие от ранее рассмотренной подобной программы, она учитывает, что в разных странах фунт «весит» по-разному. Например, в России фунт равен 405,9 грамма, в Англии 453,592 грамма, а в Германии, Дании и Исландии фунт весит 500 грамм.

Задание для самостоятельного выполнения

1.Разработать проект на Delhpi, который позволит по заданному местному времени определить время в Москве, Париже, Тегеране, Сирии и Анкаре. Если известно, что разница во времени с Москвой составляет 2 часа с Парижем.

2.Написать программу, которая по Вашему выбору сможет вычислить: длину окружности, площадь круга, объем шара, либо площадь поверхности шара при заданном диаметре окружности. Работу оформить в виде приложения к Windows.

3.Определить, сколько времени потребуется для того чтобы преодолеть заданное расстояние различными транспортными средствами. Известно, что легковая машина в среднем едет со скоростью 60 км./ час., пассажирский состав со средней скоростью 40 км./ час., самолет 750 км./ час., а велосипедист за час проезжает в среднем 12 км. Задачу представить как проект Delhpi .

4.Определить необходимое количество стройматериалов: алебастра, извести, водоемульсионной краски, обой и клея для обой для ремонта квартиры с заданным количеством комнат. Расход материалов для каждой комнаты принять произвольно.

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

6.Составленный Вами проект должен определить количество краски необходимое для покрытия заданной площади в квадратных метрах, если известно расход краски на один квадратный метр площади составляет около 100 гр. В приведенном списке проекта должен быть отражен: Первая покраска по дереву после олифы (1.2), вторая покраска по дереву после олифы, покраска по старой краске, покраска металлической поверхности (0.9), а также покраска стен после стяжки и покраски олифой (1.4). В скобках указаны принятые для расчетов поправочные коэффициенты .

7.Определить сумму подписки на периодические издания для заданного срока, если известна цена месячного срока подписки каждого издания. Наименование газет и журналов привести в окне списка. Расчетные данные взять приблизительными.

8.Составить программу, подсчитывающую число посещений в клинике врачей - специалистов (окулиста, хирурга, терапевта, невропотолога и аллерголога). После работы выдать итоговое сообщение.

9.В сборе хлопка участвуют 5 бригад. Учет ведется на компьютере. Составить программу, которая определяет, сколько хлопка собрала каждая бригада сборщиков к концу дня.

10.Напишите программу обработки результатов конкурса. В нем участвуют пять претендентов на призовые места. Конкурс проводится по пяти номинациям. Проект должен суммировать баллы, полученные каждым участником по всем номинациям.

Вопросы для самопроверки.

1.Назначение и структура инструкции Case .

2.Короткая и полная форма инструкции Case.

3.Особенности ввода информации в поле списка ListBox.

4.Расскажите о назначении свойства Items компоненты ListBox.

5.Назначение и применение свойства ItemIndex компоненты ListBox.

6.Расскажите о назначении окна инспектора объектов Object Inspector.

7.Как открывается диалоговое окно редактор списка строк - String list editor .

8.Расскажите порядок добавления компоненты ListBox к форме.

Лабораторная работа 4. Ввод массива и инструкции цикла

Цель работы

Целью работы является практическое ознакомление с компонентом Memo при работе с массивами данных и инструкциями For , While , Repeat .

Краткие теоретические сведения.

Если надо ввести символьный массив, причем каждый элемент массива может состоять из нескольких слов, то вместо компонента Edit удобнее использовать компонент Memo.Ниже приведены свойства компонента Memo.

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

Function Getline (st:string; //- строка

n:integer) //- номер подстроки

:string; //-результат работы функции- подстрока или ` `

var

p:integer;

begin

{если в начале строки есть пробелы,то они удаляются}

while (pos(' ',st)=1) and (length(st)>0) do

delete (st,1,1);

if n>1

then

repeat

p:=pos(#13,st);

if p<>0

then

begin

st:=copy(st,p+2,length(st)-p);{разделитель-два символа с кодом 13 и10}

{если в начале оставшейся части строки есть пробелы, то они удаляются}

while (pos(' ',st)=1) and (length(st)>0) do delete(st,1,1);

n:=n-1;

end;

until (n=1) or (p=0);

{ st начинается с нужной подстроки }

if n>1

then result:=' '

else

begin

p:=pos(#13,st);

if p<>0

then result := copy(st,1,p-1)

else result := st;

end;

end;



Для проверки работы функции необходимо создать диалоговое окно, содержащее три компонента: поле Memo, командную кнопку Ввод и метку Label1. Ниже приведен текст программы обработки события OnClick кнопки Ввод.

procedure TForm1.Button1Click(Sender: TObject);

const

size=5;

var a:array[1..size] of string[20];

i:integer;

st:string;

begin

for i:=1 to size do

a[i]:=Getline(Memo1.text,i);

{ отображение введенного массива в окно сообщения}

st:=' ';

for i:=1 to size do

st:= st + IntToStr(i)+' ' + a[i] + #13;

ShowMessage(st);

end;

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

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



for <параметр цикла>:= <нач_знач > to <кон_знач> do

begin

{ последовательность инструкций}

end;

где:

<параметр цикла> - имя основной переменной - счетчика числа повторений цикла;

<нач_знач>- выражение, определяющее начальное значение параметра цикла .

<кон_знач>- выражение, определяющее конечное значение параметра цикла.

Пример:

for i := 1 to 10 do write(i); {печать чисел от 1 до 10}

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

While <условие> do

begin

{последовательность инструкций}

end;

где:

<условие>- выражение логического типа.

Инструкции, находяшиеся между begin и end, выполняются до тех пор, пока <условие> истинно (true).

Пример:

i:=1;

while i < 10

begin

write(i); {печатается строка чисел от 1 до 10}

i:=i+1

end;

Инструкция repeat until, как и инструкция While, используется в программе, если надо провести некоторые повторные вычисления, причем, необходимое число повторений во время разработки программы неизвестно и может быть определено только во время работы программы. В общем виде инструкция repeat … until записывается следующим образом:

repeat

{последовательность инструкций}

until <условие>

где: <условие> - выражения логического типа, определяющее условие завершения цикла, т. е. при выполнении условия цикл заканчивает свою работу.

Пример:

i:= 1;

repeat

write (i); {печатается строка чисел от 1 до 10}

i:=i+1;

until i=10;

Задание к работе

Создать проект в Delphi , используя компоненту Memo для ввода массива строковых данных. В диалоговом окне вывести значения элементов массива в алфавитном порядке. Для этого перепишем процедуру обработки события командной кнопки Ввод

procedure TForm1. Button1Click (Sender: Tobject);

const

size=5; {размер массива}

var

a: array[1..saze] of string [20];

i: integer;

st:string;

buf: string[20];

chan: boolean;

begin

{ввод массива}

for i:=1 to size do

a[i] := GetLine(Memo1.text,i);

{сортировка массива}

repeat

chan:= FALSE;

for k:=1 to size-1 do

begin

if a[k] > a[k+1]

then begin

buf := a[k];

a[k] := a[k+1];

a[k] := buf;

chan := TRUE;

end;

end;

{вывод массива}

st:='';

for i:=1 to size do

st:= st+ IntToStr(i) + ` ` + a[i] + #13;

ShowMessage(st);

Until not chan;

Задания для самостоятльного выполнения.

1. Создать проект, который определить минимальный элемент одномерного массива целых чисел.

2. Найти сумму диагональных эементов двумерного массива вещественных чисел размером 3 х 3. Процедуру оформить как событие нажатия кнопки Пуск.

3. Создать проект,который определит строку с наибольшей суммой элементов заданного двумерного массива целых чисел размерности 3 х 3.

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

5. Три предприятия выпускают по четыре вида продукции. Годовая производительность предприятий составляет массив чисел размерности 3 х 4. Составьте проект, по которому можно будет определить выпуск j- го изделия i-м предприятием.

6. Напечатайте только положительные элементы одномерного массива целых чисел места отрицательных элементов оставьте свободными. Выберете необходимые компоненты и напишите процедуры обработки событий.

7. Упорядочить заданную последовательность чисел в порядке возрастания их значений.

8. В символьном массиве выделить слова, начинающиеся на букву “ и “

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

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

Вопросы для самопроверки.

1.Для каких целей можно использовать поле Memo?

2.Как можно прочитать информацию из поля Memo?

3.Каким образом можно вводить информацию в поле Memo?

4.Чем отличается поле Edit от поля Memo?

5.Расскажите об особенностях инструкции For.

6.Какие особенности имеет инструкция While?

7.Приведите структуру инструкции Repeat … Until . Как работает эта инструкция?

8.Как объявляется одномерный и двухмерный массивы?

9.Приведите примеры на одномерные и двухмерные массивы?

Лабораторная работа 5. Обработка массивов и компонента StringGrid

Цель работы.

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

Общие сведения.

Исходные данные для решения многих задач удобно представлять в табличной форме. Колонки и строки таблицы, как правило, состоят из однородной информации, поэтому в программе для хранения и обработки табличных данных имеет смысл использовать массивы. Таблица может быть представлена как совокупность одномерных массивов строк или столбцов, а также как двумерный массив.

В общем виде описание одномерного массива имеет вид:

array[<индекс начала> .. <индекс конца>] of <тип>;

где:

<индекс начала> - целое число, номер первого элемента массива; -

<индекс конца> - целое число, номер последнего элемента массива;

<тип> - тип элементов массива.

В общем виде описание двумерного массива имеет вид:

array[<индекс начала1> .. <индекс конца1> , <индекс начала2> .. <индекс конца2> ] of <тип>;

где:

<индекс начала1>,<индекс конца1>,<индекс начала2>,<индекс конца2> - целые константы, определяющие диапазон изменения индексов и, следовательно, число элементов массива.

<тип> - тип элементов массива.

Массив может быть описан как в области описания типов type, так и в области описания переменных var.

Пример 1:

type

aa = array [1..5] of integer; {aa- имя типа массив целых чисел}

var

a, b : aa; {переменные a, b объявлены как массивы типа -аа}

Пример2:



var

a, b : array [1..5] of integer; {переменные a, b объявлены как массив целых чисел}

Пример3:

type

xx = array [1..5 , 1..4] of real ; {объявлен тип - двумерный массив вещественных чисел , размерности 5 х 4}

var

c,d : xx; {переменные c,d объявлены как массив типа хх}.

Компонент StringGrid (строковая таблица) добавляется к форме также как и другие, известные нам по предыдущим работам, компоненты. Его значок находится на дополнительной (Additional) странице палитры компонентов. Ниже перечислены некоторые свойства компонента StringGrid .

Задание на работу.

Создать проект, обрабатывающий результаты спортивных соревнований. Исходные данные представлены в таблице.

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

Для решения задачи используем компонент StringGrid.

В таблице StringGrid, ячейки первой зафиксированной, строки используются в качестве заголовок колонок таблицы. Значение элементов массива Cells, соответствующих первой строке таблицы, устанавливает процедура обработки события OnActivate, которая запускается автоматически при запуске программы. С помощью этой же процедуры в первую колонку таблицы вписывается и названия стран - участниц соревнований.

procedure TForm1.FormActivate(Sender: TObject);

begin

tabl.cells[0,0]:= `Страна';

tabl.cells[1,0]:= `Золотых';

tabl.cells[2,0]:= `Серебряных';

tabl.cells[3,0]:= `Бронзовых';

tabl.cells[4,0]:= `Всего';

tabl.cells[5,0]:= `Очков';

tabl.cells[0,1]:= `Австрия';

tabl.cells[0,2]:= `Германия';

tabl.cells[0,3]:= `Италия';

tabl.cells[0,4]:= `Канада';

tabl.cells[0,5]:= `Нидерланды';

tabl.cells[0,6]:= `Норвегия';

tabl.cells[0,7]:= `Россия';

tabl.cells[0,8]:= `США';

tabl.cells[0,9]:= `Финляндия';

tabl.cells[0,10]:= `Швейцария';

tabl.cells[0,11]:= `Япония';

end;

Программа обработки исходной таблицы, текст которой приведен ниже, запускается в результате Щелчка на командной кнопке Итоги(Button1).

procedure TForm1.Button1Click(Sender: TObject);

var

c, r: integer;

s: integer;

p: integer;

m: integer;

buf:array[0..6] of string;

i: integer;

begin

for r:= 1 to tabl.rowcount do

begin

s:=0;

{}

for c:=1 to 3 do

if tabl,cells[c,r] <> ` `

then s:= s + StrToInt(tabl.cells[c,r])

else tabl.cells[c,r]:= ` `;

{}

p:= 7*StrToInt(tabl.cells[1,r] ) + 6*StrToInt(tabl.cells[2,r]) +

5*StrToInt(tabl.cells[3,r]);

{}

tabl.cells[4,r]:= IntToStr(s);

tabl.cells[5,r]:= IntToStr(p);

end;

{}

for r:=1 to tabl.rowcount - 1 do

begin

m:= r; {}

for i:= r to tabl.rowcount - 1 do

if StrToInt(tabl.cells[5,i]) > StrToInt(tabl.cells[5,m])

then m:= i;

if r <> m then

begin {}

for c:= 0 to 5 do

begin

buf[c] := tabl.cells[c,r];

tabl.cells[c,r] := tabl.cells[c,m];

tabl.cells[c,m] := buf[c];

end;

end;

end;

end;

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

Задания для самостоятельного выполнения.

1.Определить общее количество вносимых удобрений на 1 га площади посева сельхоз культур и суммарную стоимость удобрений если известно, что стоимость 1 кг фосфорных удобрений равна 0.85 сомони, 1 кг калийных удобрений равно 0.40 сомони, 1 кг азотных удобрений равна 0,25 сомони. Количество внесенных удобрений (в кг хозяйствами за сезон) сведено в таблицу.

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

3.В таблице приведен результат месячной работы нескольких бригад токарного цеха, выпускающих четыре вида деталей. Необходимо составить проект для ввода данных, реакцию на нажатие клавиши «результат» по которой происходит вычисление общего количества деталей и суммарная выработка изделий, если известно, что первый вид деталей оценивается в 4.0 дирам, второй вид - 3 дирама, третий вид - 21дирам и 4 вид изделий оценивается в 9 дирам.

4.Расчитать средний балл и сумму баллов полученных при вступительных экзаменах. Известно, что для энергетического факультета при расчете баллов каждый правильный ответ умножается на два, по физике на 1,5 а баллы по остальным дисциплинам суммируются с коэффициентом 1.0. Фрагмент результатов вступительных экзаменов приведен ниже.

5.Расчитать сумму платежей за год компании, если известны расходы газа, электроэнергии и воды отдельных его предприятий. Оплата производится согласно следующему тарифу: за 1куб.м. газа 0.08 центов, за 1квт.час электроэнергии - 0.02 цента и за 1 куб.м. воды - 0.001центов.

6.Определить площадь поперечного сечения (S в мм.кв), диаметр (d в мм.) и вес(G в кг.) одного метра провода круглого сечения, используемого в электрической цепи при различных токах (в a) нагрузки, приняв допустимую плотность тока для алюминиевого провода 3.5 а/мм.кв. В расчетах используйте формулы

d=( 4*S/ 3.14)^(1/ 2) и G = S/g ,

g - удельный вес алюминия принять равным 0.86 г/ см.куб.

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

8.Расчитать стоимость каждого вида кормов, а также общую стоимость отдельного вида кормов с учетом стоимости переработки и стоимости их доставки. Расчеты свести в таблицу.

9.Расчитать рентабельность производства продукции животноводства.

Вопросы для самопроверки.

1.Для каких целей можно использовать компонент StringGrid?

2.Как записать информацию в поля заголовка колонок строковой таблицы?

3.Каким образом можно вводить информацию в поля компоненты StringGrid?

...