Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Запустить программу можно нажав Run в главном меню Run, или клавишу F9, или пиктограмму . При этом происходит трансляция и, если нет ошибок, компоновка программы и создание единого загружаемого файла с расширением.exe. На экране появляется активная форма программы (рис.1.2).
Текст программы имеет вид:
unit tema1;
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:='3,4'; // Начальное значение X
Edit2.Text:='0,74'; // Начальное значение Y
Edit3.Text:='19,43'; // Начальное значение Z
Memo1.Clear; // Очистка окна редактора Memo1
// Вывод строки в многострочный редактор Memo1
Memo1.Lines.Add('Лаб. раб. N1. Ст. гр. 740102 Иванов А.А.');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,a,b,c,u: 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
// Вычисляем арифметическое выражение
a:=Sqr(Sin(x+y)/Cos(x+y));
b:=Exp(y-z);
c:=Sqrt(Cos(Sqr(x))+Sin(Sqr(z)));
u:=a-b*c;
// Выводим результат в окно Memo1
Memo1.Lines.Add(' Результат U = '+FloatToStrF(u,fffixed,8,3));
end;
end.
Дата публикования: 2014-11-04; Прочитано: 290 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!