ФГБОУ ВО Брянский Государственный Технический Университет
Цель лабораторной работы: научиться составлять каркас простейшей программы в среде DELPHI. Написать и отладить программу линейного алгоритма.
Интегрированная среда разработчика DELPHI
Среда DELPHI визуально реализуется в виде нескольких одновременно раскрытых на экране монитора окон. Количество, расположение, размер и вид окон может меняться программистом в зависимости от его текущих нужд, что значительно повышает производительность работы. При запуске DELPHI вы можете увидеть на экране картинку, подобную представленной на рис. 1.1.
3 |
6 |
4 |
5 |
Рис.1.1. 1- главное окно; 2 – основное меню; 3 – пиктограммы основного меню; 4 - окно инспектора объектов; 5 – окно текста программы; 6- окно пустой формы; 7 – меню компонентов |
1 |
2 |
7 |
Главное окно всегда присутствует на экране и предназначено для управления процессом создания программы. Основное меню (прил.1)содержит все необходимые средства для управления проектом. Пиктограммы облегчают доступ к наиболее часто применяемым командам основного меню. Через меню компонентов (прил. 2) осуществляется доступ к набору стандартных сервисных программ среды DELPHI, которые описывают некоторый визуальный элемент (компонент), помещенный программистом в окно формы. Каждый компонент имеет определенный набор свойств (параметров), которые программист может задавать. Например, цвет, заголовок окна, надпись на кнопке, размер и тип шрифта и др.
|
|
Окно инспектора объектов (вызывается c помощью клавиши F11) предназначено для изменения свойств выбранных компонентов и состоит из двух страниц. Страница Properties (Свойства) предназначена для изменения необходимых свойств компонента, страница Events (События) – для определения реакции компонента на то или иное событие (например, нажатие определенной клавиши или щелчок “мышью ” по кнопке).
Окно формы представляет собой проект Windows-окна программы. В это окно в процессе написания программы помещаются необходимые компоненты. Причем при выполнении программы помещенные компоненты будут иметь тот же вид, что и на этапе проектирования.
Окно текста программы предназначено для просмотра, написания и редактирования текста программы. В системе DELPHI используется язык программирования ObjectPascal. При первоначальной загрузке в окне текста программы находится текст, содержащий минимальный набор операторов для нормального функционирования пустой формы в качестве Windows-окна. При помещении некоторого компонента в окно формы текст программы автоматически дополняется описанием необходимых для его работы библиотек стандартных программ (раздел uses) и типов переменных (раздел type).
|
|
Программа в среде DELPHI составляется как описание алгоритмов, которые необходимо выполнить, если возникает определенное событие, связанное с формой (например щелчок “мыши” на кнопке – событие OnClick, создание формы – OnCreate). Для каждого обрабатываемого в форме события, с помощью страницы Events инспектора объектов в тексте программы организуется процедура (procedure), между ключевыми словами begin и end которой программист записывает на языке ObjectPascal требуемый алгоритм.
Переключение между окном формы и окном текста программы осуществляется с помощью клавиши F12.
Структура программ DELPHI
Программа в DELPHI состоит из файла проекта (файл с расширением .dpr), одного или нескольких файлов исходного текста (с расширением .pas), файлов с описанием окон формы (с расширением .dfm).
В файле проекта находится информация о модулях, составляющих
данный проект. Файл проекта автоматически создается и редактируется средой DELPHI и не предназначен для редактирования.
Файл исходного текста – программный модуль (Unit) предназначен для размещения текстов программ. В этом файле программист размещает текст программы, написанный на языке PASCAL.
|
|
В разделе объявлений описываются типы, переменные, заголовки процедур и функции, которые могут быть использованы другими модулями, черезоператоры подключения библиотек (Uses). В разделе реализации располагаются тела процедур и функций, описанных в разделе объявлений, а также типы переменных, процедуры и функции, которые будут функционировать только в пределах данного модуля. Раздел инициализации используется редко и его можно пропустить. Модуль имеет следующую структуру:
unitUnit1;
interface
// Разделобъявлений
implementation
// Разделреализации
begin
// Раздел инициализации
End.
При компиляции программы DELPHI создает файл с расширением .dcu, содержащий в себе результат перевода в машинные коды содержимого файлов с расширением .pas и .dfm. Компоновщик преобразует файлы с расширением .dcu в единый загружаемый файл с расширением .exe. В файлах, имеющих расширение .~df, .~dp, .~pa, хранятся резервные копии файлов с образом формы, проекта и исходного текста соответственно.
|
|
Практическая часть
Вариант 3
3.
При x=3.74 , y=-0.825, z=0.16 , v=1.0553.
Кодпрограммы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Math,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Memo1: TMemo;
Button1: TButton;
procedureFormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear; // Очисткаокнаредактора Memo1
// Вывод строки в многострочный редактор Memo1
Memo1.Lines.Add('Лаб. раб. N1. Ст. гр. 13-БИ Гавриков В.С.');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,b,c,d,f,u,h,g,t,v,n,a : extended;
begin
x:=StrToFloat(Edit1.Text); // Считываетсязначение X
Memo1.Lines.Add(' X = '+Edit1.Text); // Вывод X вокно Memo1
y:=StrToFloat(Edit2.Text); // Считывается значение Y
Memo1.Lines.Add(' Y = '+Edit2.Text); // Вывод Y вокно Memo1
z:=StrToFloat(Edit3.Text); // Считывается значение Z
Memo1.Lines.Add(' Z = '+Edit3.Text); // Вывод Z вокно Memo1
// Вычисляем арифметическое выражение
b:=x+y;
d:=sin(b);
f:=1+sqr(d);
c:=x-((2*y)/(1+(Sqr(x)*sqr(y))));
u:=abs(c);
h:=f/u;
v:=Power(x, (Abs(y)));
g:=ArcTanh(1/z);
t:=Cos(g);
n:=Sqr(t);
a:=h*v+n ;
// Выводим результат в окно Memo1
Memo1.Lines.Add(' Результат A = '+FloatToStrF(a,fffixed,8,3));
end;
end.
Результат:
ФГБОУ ВО Брянский Государственный Технический Университет
Дата добавления: 2018-04-04; просмотров: 58; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!