Программирование на Object Pascal в среде Delphi
Для вывода результатов используем компонент Memo. Выберите в Палитре
Компонентов на странице Standard пиктограмму [pic], поместите компонент
Memo на Форму и откорректируйте его местоположение и размеры.
1.2.5. Написание процедуры обработки события создания Формы (FormCreate)
Если программист желает, чтобы при появлении панели интерфейса на
экране в соответствующих полях находились начальные значения данных, он
должен учесть, что при запуске приложения возникает событие - создание
Формы (OnCreate). Создадим процедуру обработки этого события, которая
занесет начальные значения переменных x, y, z в поля Edit1, Edit2 и Edit3
соответственно, а в поле Memo1 поместит строку Лабораторная работа №1 –
Линейный алгоритм. Для этого дважды щелкните мышью на любом свободном месте
Формы. На экране появится текст модуля UnLinAlg, в котором DELPHI
автоматически создает заготовку процедуры-обработчика события создания
Формы: Procedure TForm1.FormCreate(Sender:TObject). Между операторами begin
и end этой процедуры вставьте операторы, которые выполняют необходимые
действия (текст модуля приведен в п.1.2.7).
1.2.6. Написание процедуры обработки события нажатия кнопки Button1
(Button1Click)
Поместим на Форму кнопку, нажатие которой приведет к вычислению
выражения. Выберите в Палитре Компонентов на странице Standart пиктограмму
[pic] компонента Button. В свойстве Caption Инспектора Объектов замените
надпись на кнопке Button1 на Вычислить. В свойстве Font подберите шрифт.
Отрегулируйте положение и размер кнопки. Затем дважды щелкните “мышью” на
кнопке, после чего курсор установится в тексте процедуры-обработчика
события нажатия кнопки Button1 : Procedure
TForm1.Button1Click(Sender:TObject). Внимательно наберите операторы этой
процедуры, используя текст модуля UnLinAlg.
1.2.7. Текст модуля UnLinAlg
Unit UnLinAlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(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
Edit1.Text:='0.4'; // начальное значение X
Edit2.Text:='8.75e-2'; // начальное значение Y
Edit3.Text:='-19.63'; // начальное значение Z
Memo1.Clear; // очистка Memo1
// Вывод строки в Memo1:
Memo1.Lines.Add('Лабораторная работа №1 - Линейный алгоритм');
end;
// Процедура обработки события нажатия кнопки Button1:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,a,b,c,u : extended; // объявление локальных переменных
begin
x:=StrToFloat(Edit1.Text); // X присваивается содержимое Edit1
y:=StrToFloat(Edit2.Text); // Y присваивается содержимое Edit2
z:=StrToFloat(Edit3.Text); // Z присваивается содержимое Edit3
// Вычисляется выражение
a:=sqrt(x)-y*y*y;
b:=sin(a)/cos(a);
c:=Exp(5*Ln(b));
u:=c+exp(y/z)*sin(z*z);
Memo1.Lines.Add('X = '+Edit1.Text+' Y = '+Edit2.Text+
' Z = '+Edit3.Text); // контрольный вывод X, Y, Z в Memo1
// Вывод результата в Memo1:
Memo1.Lines.Add(' U = '+FloatToStrF(u,ffFixed,8,3));
end;
end.
Данные, с которыми работают компоненты Edit и Memo, имеют тип String.
Поэтому в процедуре TForm1.Button1Click при присваивании содержимого полей
Edit1,Edit2,Edit3 переменным X,Y,Z c помощью функции StrToFloat
осуществляется преобразование данных типа String в действительные значения
с плавающей точкой типа Extended. Если необходимо работать с данными
целого типа, используется функция StrToInt.
При выводе данных в Memo1 используется метод Add свойства Lines,
причем для преобразования данных из действительного значения в строковое и
управления формой представления выводимого результата используется функция
FloatToStrF.
1.2.8. Работа с приложением
Для запуска созданного приложения нажмите пиктограмму [pic] главного
меню или клавишу F9. При этом происходит компиляция модулей и, если нет
ошибок, компоновка проекта и создание выполняемого файла PrLinAlg.exe. На
экране появляется панель интерфейса приложения (рис.1.2).
Щелкните “мышью” на кнопке “Вычислить” и в поле Memo1 появляется
результат. Измените исходные значения x, y, z в полях Edit и снова нажмите
кнопку ”Вычислить”. Убедитесь, что в поле Memo1 отображаются новые
результаты. Завершить работу приложения можно нажатием кнопки [pic] в
правом верхнем углу панели интерфейса.
В случае нештатного функционирования приложения восстановить
первоначальный режим работы с проектом можно путем выбора в меню Run опции
ProgramReset или нажать клавиши Ctrl+F2.
1.3. Выполнение индивидуального задания
По указанию преподавателя выберите свое индивидуальное задание.
Уточните условие задания, количество и типы исходных данных. В соответствии
с этим оформите дизайн панели интерфейса проектируемого приложения,
установите необходимое количество полей Edit, тексты заголовков на Форме,
размеры шрифтов, а также типы переменных и функции преобразования при вводе
и выводе результатов.
Индивидуальные задания
1. [pic]
При x=14.26, y=-1.22, z=3.5([pic] t=0.564849.
2. [pic]
При x=-4.5, y=0.75([pic],z=0.845[pic] u=-55.6848.
3. [pic]
При x=3.74[pic], y=-0.825, z=0.16[pic] v=1.0553.
4. [pic]
При x=0.4[pic] ,y=-0.875, z=-0.475[pic] w=1.9873.
5. [pic]
При x=-15.246, y=4.642[pic], z=20.001[pic] [pic]=-182.036.
| |  скачать работу |
Программирование на Object Pascal в среде Delphi |
