Линейные программы с графическим интерфейсом в среде Lazarus
..pdf10
При создании программы для решения сложной задачи возникают те же проблемы, что и при разработке больших и сложных систем. Пути решения этих проблем для систем хорошо известны. Это, прежде всего, декомпозиция (разделение) сложной задачи на отдельные подзадачи, подзадач – на ещё более мелкие подзадачи и так далее, пока подзадача не станет понятной и легко доступной для реализации небольшим числом простейших операторов. Каждая функционально законченная подзадача может и должна быть реализована подпрограммой.
Подпрограммы, используемые в языке Lazarus, как раз и служат для разделения логики большой программы на обозримые и управляемые фрагменты. Любая подпрограмма может в свою очередь обращаться как к другим подпрограммам, так и к самой себе (рекурсия).
Программы, состоящие из процедур и функций, называют модульными. Они имеют отчётливую иерархическую структуру. Опытные программисты обоснованно считают, что модульные программы гораздо легче для разработки и проще для понимания и тестиро-
вания, чем монолитные.
Как обращаться к подпрограмме-функции в выражениях Вы уже знаете. Подпро-
грамма-процедура активизируется с помощью оператора процедуры, в котором содержатся имя процедуры, после которого в круглых скобках приводят список необходимых (фактических) параметров. Некоторые процедуры списка параметров могут и не иметь.
В языке Lazarus существует возможность хранить хорошо зарекомендовавшие себя процедуры и функции в модулях-библиотеках (unit). При необходимости Вы можете подключать к разрабатываемой программе на Lazarus описания данных и подпрограммы как из своих собственных библиотек-модулей, так и из библиотек-модулей, разработанных другими программистами.
Для подключения одного или более модулей с нужными подпрограммами необходимо в раздел описаний любой программы на Lazarus ввести предложение
Uses
<список модулей-библиотек>;
6 Линейные программы
6.1 Решение задач на компьютере
Решение любой задачи достигается обработкой информации или данных. Поэтому, как программисту, Вам необходимо знать, как:
осуществить ввод данных - т.е. ввести информацию (данные) в программу с клавиатуры, диска или из порта ввода/вывода;
сохранить данные (информацию) во внутренней (оперативной) или внешней (экран, магнитные и оптические диски и другие устройства ввода-вывода) памяти. Это достигается использованием констант, переменных и структур, содержащих числа (целые и вещественные), текст (символы и строки) или указатели - адреса переменных и структур;
11
правильно задать команды обработки данных (операторы, инструкции). С их по-
мощью осуществляют присваивание значений, вычисление выражений, сравнение значений (равно, не равно, больше и т.д.);
получить данные из программы (вывод данных) на экран, на диск или в порт
Вы можете написать и упорядочить операторы так, чтобы:
•некоторые из них выполнялись при выполнении определённогоо условия или ряда условий (условное выполнение);
•другие выполнялись определённое число раз (циклы), пока истинно некоторое условие, или пока условие не станет истинным;
•другие собирались в отдельные части, объединённые именем
(подпрограммы), которые могут быть выполнены в нескольких местах
программы, где есть вызов их по имени.
6.2 Линейные программы
При любых значениях исходных |
|
|
|
|
|
|
|
|
|
|
данных в линейном алгоритме все дей- |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ствия A1, A2, …. AN выполняются одно- |
|
|
|
|
|
|
|
|
|
|
|
|
А1 |
|
|
|
|
|
|
||
кратно, строго последовательно, одно |
|
|
Ввод |
|
|
|
||||
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
||||
за другим (Рис. 6.1). Такой порядок вы- |
|
|
исходных |
|
|
С клавиатуры |
||||
полнения действий называется есте- |
|
|
|
данных |
|
|
|
|||
ственным. |
|
|
|
|
|
|
|
|
|
|
|
А2 |
|
|
|
|
|
|
|
||
Программы с линейной структу- |
|
|
|
|
|
|
||||
|
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
Обработка |
|
|
|
|||||
рой являются простейшими и исполь- |
|
|
|
|
|
|||||
|
(вычисления) |
|
|
|
||||||
зуются в чистом виде на практике до- |
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
|
|
статочно редко: при расчёте обычных |
|
|
|
|
|
|
|
|
|
|
арифметических и алгебраических вы- |
|
|
АN |
Вывод |
|
|
|
|||
|
|
|
|
|
||||||
ражений и решении ряда простейших |
|
|
|
|
|
|
На экран |
|||
|
|
|
исходных |
|
|
|||||
|
|
|
|
|
|
|||||
задач. |
|
|
|
|
|
монитора |
||||
|
|
|
данных |
|
|
|||||
|
|
|
|
|
|
|||||
Алгоритм линейной структуры |
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
представляет собой последователь- |
|
|
|
|
|
|
|
|
|
|
ность действий и не содержит каких- |
|
|
|
|
|
|
|
|
|
|
либо условий. |
|
|
|
|
|
|
|
|
|
|
В линейных программах могут |
|
|
|
|
|
Рис. 6.1 – Линейный алгоритм |
||||
применяться только: |
|
|
|
|
|
|
|
|
|
|
операторы (процедуры) ввода,
операторы (процедуры) вывода,
операторы присваивания (изменения значения переменных),
операторы обращения к подпрограммам.
12
Рассмотрим важнейшие элементы программы на языке Lazarus, используемые при создании линейных программ.
6.3 Оператор присваивания
Оператор присваивания является основным вычислительным оператором. Если в программе надо выполнить вычисление, то нужно использовать оператор присваивания.
Врезультате выполнения оператора присваивания значение переменной меняется, ей присваивается новое значение.
Вобщем виде инструкция присваивания выглядит так:
<Имя > := <выражение>
где:
Имя – имя переменной, значение которой изменяется в результате выполнения оператора присваивания;
: = - символ присваивания.
Выражение - выражение, значение которого присваивается переменной, имя которой указано слева от символа оператора присваивания.
1)Оператор присваивания выполняется следующим образом:
2)Сначала вычисляется значение выражения, которое находится справа от символа присваивания (: =).
3)Затем вычисленное значение записывается в переменную, имя которой стоит слева от символа присваивания3.
Например, в результате выполнения операторов:
I = 0; {значение переменной i становится равным нулю}
a = b + c; {значением переменной а будет суммf значений переменных b и с}
j = j + 1; {значение переменной увеличивается на единицу}
Выражение должно быть совместимо по присваиванию с типом переменной. Опе-
ратор присваивания считается верным, если тип выражения соответствует или может быть приведён к типу переменной, получающей значение. Например, переменной типа real можно присвоить значение выражения, тип которого real или integer, а переменной типа integer можно присвоить значение выражения только типа integer.
Так, например, если переменные i и n имеют тип integer, а переменная d - тип real,
то
I := n / 10; i := 1.0; {операторы неправильные}
d := i +1; |
{операторы записаны правильно} |
|
|
|
|
3 Старое значение переменной слева от символа присваивания будет при этом не сохранится.
13
6.4 Организация ввода и вывода данных
Любая программа в своей работе использует какие-то исходные данные.
Для организации ввода можно использовать компонент TEdit (Поле ввода), для вывода результатов – компонент TLabel (Поле вывода).
6.4.1Использование компонент TEdit и Tlabel
Компонент ( ) представляет из себя поле ввода (редактирования) строки сим-
волов.
|
Место в палитре |
|
Вид |
|
|
|
|
||
|
|
|
|
|
Таблица 6.1 представляет основные свойства компонента TEdit.
Таблица 6.1 - Основные свойства компонента TEdit (поле ввода строки символов.)
|
Свойство |
|
|
Описание |
|
|
|
|
|
||
|
Name |
|
|
Имя компонента. Используется в программе для доступа к компоненту и |
|
|
|
|
|
его свойствам, в частности для доступа к тексту, введённому в поле ре- |
|
|
|
|
|
дактирования. |
|
|
Text |
|
|
Текст, находящийся в поле ввода и редактирования. |
|
|
Left |
|
|
Расстояние от левой границы компонента до левой границы формы. |
|
|
Top |
|
|
Расстояние от верхней границы компонента до верхней границы формы. |
|
|
Width, |
|
|
Ширина, высота поля. |
|
|
Height |
|
|
|
|
|
Font |
|
|
Шрифт, используемый для отображения вводимого текста. |
|
|
ParentFont |
|
|
Признак наследования компонентом характеристик шрифта формы, на |
|
|
|
|
|
которой находиться компонент. Если значение свойства равно True, то |
|
|
|
|
|
при изменении свойства Font формы автоматически меняется значение |
|
|
|
|
|
свойства Font компонента. |
|
|
Enabled |
|
|
Используется для ограничения возможности изменить текст в поле ре- |
|
|
|
|
|
дактирования. Если значение свойства равно False, то текст в поле редак- |
|
|
|
|
|
тирования изменить нельзя. |
|
|
Visible |
|
|
Позволяет скрыть текст (False) или сделать его видимым (True). |
Чтобы ввести численные данные с помощью компонент TEdit (Поле ввода), а для вывода численных результатов – компонент TLabel (Поле вывода) следует подключить специальные функции перевода из символьного представления в численное (Таблица 6.2) и наоборот (Таблица 6.3).
14
Таблица 6.2 - Преобразование строк в другие типы
|
Обозначение |
|
|
|
|
Тип |
|
|
|
|
Тип |
|
|
|
|
Действие |
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||
|
|
|
аргументов |
|
|
результата |
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
|
|
|
|
|||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
StrToDateTame(S) |
|
|
Строка |
|
Дата и время |
|
Преобразует символы из строки S в |
||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
дату и время |
||
|
StrToFloat(S) |
|
|
Строка |
|
Веществен- |
|
Преобразует символы из строки S в ве- |
||||||||||
|
|
|
|
|
|
|
|
|
ное число |
|
щественное число |
|||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
|
StrToInt(S) |
|
|
Строка |
|
Целое число |
|
Преобразует символы из строки S в ве- |
||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
щественное число |
||
|
Val(S, X, Kod) |
|
|
Строка |
|
Число |
|
Преобразует троку символов S во внут- |
||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
реннее представление числовой пере- |
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
менной X. Если преобразование про- |
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
шло успешно, Kod = 0. |
||
|
Таблица 6.3 - Обратное преобразование |
|
|
|
|
|||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Тип |
|
|
|
|
Тип |
|
|
|
|
|
||
|
Обозначение |
|
|
|
|
|
|
|
результ |
|
|
|
Действие |
|
||||
|
|
|
|
аргументов |
|
|
|
|
|
|
||||||||
|
|
|
|
|
|
|
|
ата |
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
DataTimeToStr(V) |
|
|
|
Дата и время |
|
Строка |
|
|
Преобразует дату и время в строку S |
||||||||
|
FloatToStr(V) |
|
|
|
Вещественное |
|
Строка |
|
|
Преобразует вещественное число в |
||||||||
|
|
|
|
|
|
число |
|
|
|
|
|
|
|
|
|
строку S |
||
|
IntToStr(V) |
|
|
|
Целое число |
|
Строка |
|
|
Преобразует целое число в строку S |
||||||||
|
FloatToStrF(V, F, P, D) |
|
Вещественное |
|
Строка |
|
|
Преобразует вещественное число V в |
||||||||||
|
|
|
|
|
|
число |
|
|
|
|
|
|
|
|
|
строку символов с учётом формата F и |
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
параметров P, D. |
6.5 Пример разработки программы
Последовательность стандартных шагов: ввести, сохранить, отредактировать и выполнить - определяет общий сценарий разработки практически любой программы. Рассмотрим, как можно выполнить любой из этих шагов.
ЗАДАЧА. Известны длины сторон треугольника , и с. Вычислить площадь , периметр и величины углов , и треугольника.
Прежде чем приступить к написанию программы, вспомним математические формулы, необходимые для решения задачи.
Для вычисления площади треугольника применим теорему Герона:
где полупериметр:
15
один из углов найдём по теореме косинусов:
;
второй — по теореме синусов:
третий — по формуле:
Решение задачи можно разбить на следующие этапы:
1.Определение значений , и с (ввод величин a, b и с в память компьютера).
2.Расчёт значений S, P, α, β и
по приведённым формулам.
3. Вывод значений , , , и .
Внешний вид программы каждый может разработать самостоятельно. Например, разместить на форме десять меток, три поля ввода и одну кнопку (Рис. 6.2).
Рис. 6.2 - Вид формы с компонентами
Потребуется изменить заголовки компонентов (свойство Caption) в соответствии с Рис. 6.3. Как это делать – мы уже знаем из предыдущей лабораторной работы.
16
Рис. 6.3 - Интерфейс программы
Двойной щелчок по кнопке Вычислить приведёт к созданию процедуры
. .
Задача программиста заполнить шаблон описаниями и операторами. Все команды, указанные в процедуре между словами и , будут выполнены при щелчке по кнопке Выполнить.
В нашем случае процедура . может иметь вид:
procedure TForm1.Button1Click(Sender: TObject);
//Описание переменных (все переменные вещественного типа): var
a, b, c, {стороны треугольника}
alfa, betta, gamma, {углы треугольника} S, площадь {треугольника}
p: real; {полупериметр треугольника} begin
//Из полей ввода Edit1, Edit2, Edit3 считываются введенные строки,
//с помощью функции StrToFloat(х) преобразовываются в вещественные числа
//и записываются в переменные а, b, c. a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
p := (a + b + c) / 2; //Вычисление значения полупериметра
//При вычислении значения площади применяется
// функция sqrt(х) – корень квадратный из х.
S := sqrt(p * (p-a) * (p-b) * (p-c));
//При вычислении значения угла alfa в радианах применяем функции: // arccos(х) - арккосинус x и sqr(х) – возведение х в квадрат
alfa := arccos((sqr(b) + sqr(c) - sqr(a)) / 2 / b / c);
17
//При вычислении значения угла betta в радианах применяем функцию:
//arcsin(х) - арксинус x;
betta := arcsin(b / a * sin(alfa));
//Вычисление значения угла gamma в радианах.
//Математическая постоянная определена функцией без аргумента pi. gamma := pi - (alfa + betta);
//Перевод радиан в радусы alfa := alfa * 180 / pi;
betta := betta * 180 / pi; gamma := gamma *180 / pi;
//Для вывода результатов вычислений используем
//операцию слияния строк + и функцию FloatToStrF(х), которая
//преобразовывает вещественную переменную х в строку
//и выводит ее в указанном формате.
//В нашем случае под переменную отводится три позиции,
//включая точку и ноль позиций после точки. //Величины углов в градусах выводятся на форму
//в соответствующие объекты типа надпись.
Label6.Caption := 'alfa = ' + FloatToStrF(alfa, ffFixed, 3,0); Label7.Caption := 'betta = ' + FloatToStrF(betta,ffFixed,3,0); Label8.Caption:='gamma='+FloatToStrF(gamma,ffFixed,3,0);
//Используем функцию FloatToStrF(х) для форматированного вывода. //В нашем случае под все число отводится пять позиций, //включая точку, и две позиций после точки.
//Значения площади и периметра выводятся на форму.
Label9.Caption := 'Периметр P = ' + FloatToStrF(2 * p, ffFixed, 5, 2); Label10.Caption := 'Площадь S = ' + FloatToStrF(S, ffFixed, 5, 2);
end;
Обратите внимание, что было написано всего десять команд, предназначенных для решения поставленной задачи, все остальное комментарий, который писать необязательно.
18
7Подводя итог
1.Объектно-ориентированное программирование (ООП) – это технология созда-
ния сложного программного обеспечения, основанная на представлении программы в виде совокупности объектов, каждый из которых является экземпляром определённого типа (класса), а классы образуют иерархию с наследованием свойств. Взаимодействие программных объектов в такой программе осуществляется путём передачи сообщений.
2.Основными понятиями ООП являются:
–класс – способ описания сущности, определяющий состояние и поведение, зависящее от этого состояния, а также правила для взаимодействия с данной сущностью;
–объект – это отдельный представитель класса, имеющий конкретное состояние и поведение, полностью определяемое классом; описывается совокупностью свойств и методов, а также событий, на которые он может реагировать;
–интерфейс – набор методов класса, доступных для использования другими
классами;
–инкапсуляция – свойство системы, позволяющее объединить данные и методы, работающие с ними, в классе и скрыть детали реализации от пользователя;
–абстрагирование – способ выделить набор значимых характеристик объекта, исключая из рассмотрения незначимые; абстракция – набор всех таких характеристик;
–полиморфизм (многообразие) – свойство системы использовать объекты с одинаковым интерфейсом без информации о типе и внутренней структуре объекта;
–наследование – свойство системы, позволяющее описать новый класс на основе уже существующего с частично или полностью заимствующейся функциональностью; класс, от которого производится наследование, называется базовым или родительским, а новый класс – потомком, наследником или производным классом.
3.В основу ООП положены следующие принципы:
–абстрагирование – процесс выделения существенных характеристик некоторого объекта, которые отличают его от всех других видов объектов;
–ограничение доступа – сокрытие отдельных элементов реализации абстракции, не затрагивающих существенных характеристик ее как целого;
–модульность – принцип разработки программной системы, предполагающий реализацию ее в виде отдельных частей (модулей);
–иерархия – ранжированная или упорядоченная система абстракций;
–типизация – ограничение, накладываемое на свойства объектов и препятствующее взаимозаменяемости абстракций различных типов;
–параллелизм – свойство нескольких абстракций одновременно находиться в активном состоянии, т.е. выполнять некоторые операции;
–устойчивость – свойство абстракции существовать во времени независимо от процесса, породившего данный программный объект, и/или в пространстве, перемещаясь из адресного пространства, в котором он был создан.
19
4. Интегрированная Среда Разработки (ИСР или Integrated Development Environment — IDE) — это система программных средств, используемых программистами для разработки программного обеспечения. Обычно среда разработки включает в себя текстовый редактор, компилятор и/или интерпретатор, средства автоматизации сборки, отладчик.
8 Индивидуальные задания
8.1.1 Использование встроенных диалоговых окон InputBox, ShowMessage
Другой способ организации ввода и вывода данных – использование встроенных диалоговых окон InputBox, ShowMessage. Эти диалоговые окна не устанавливаются программистом на форму во время разработки. Операторы их активации нужно вставлять в программный код.
Функция InputBox() выводит на экран диалоговое окно, в котором можно ввести данные.
Аргументами этой функции являются три строки, а значением функции – строка введённая пользователем.
В общем виде строка программного кода с использованием функции InputBox выглядит так:
Переменная := InputBox(‘Заголовок’, ‘Подсказка’, ‘Значение по умолчанию’);
где:
Переменная – переменная строкового типа, значение которой должно быть получено от пользователя;
Заголовок – текст заголовка окна; Подсказка – текст поясняющего сообщения;
Значение по умолчанию – текст, который будет находиться в поле ввода, когда окно появиться на экране.
Например,
n := InputBox(‘Ввод числа’, ‘Введите число:’, ‘ ‘);
Результат показан на рисунке:
Если пользователь щёлкнет по кнопке ОК, то значением функции станет строка, введённая пользователем в текстовое поле. Если пользователь щёлкнет по кнопке Cancel, то значением функции станет строка «Значение по умолчанию».