РАЗРАБОТКА ПРОСТЕЙШЕЙ ПРОГРАММЫ В СРЕДЕ DELPHI  

РАЗРАБОТКА ПРОСТЕЙШЕЙ ПРОГРАММЫ В СРЕДЕ DELPHI

О Т Ч Е Т

ПО ЛАБОРАТОРНЫМ РАБОТАМ

по курсу:

Quot;КОНСТРУИРОВАНИЕ ПРОГРАММ И

ЯЗЫКИ ПРОГРАММИРОВАНИЯ"

Выполнили: Студенты: Мазаник А. А. Шитов С. А. Гр. 107226, бригада №6
Проверил, доцент: Гурский Н.Н.

Минск - 2007


Лабораторная работа №1

РАЗРАБОТКА ПРОСТЕЙШЕЙ ПРОГРАММЫ В СРЕДЕ DELPHI

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

Задание: считая заданными значения переменных x, y, z, составить программу вычисления значения арифметического выражения:

.

При х=16.55 10 , у=-2,75, z=0,15 -38.902.

Листинг программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z,b:real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

b:=sqrt(10*(exp(1/3*ln(x))+exp((y+2)*ln(x))))*(sqr(arctan(sqrt(z/(1-sqr(z)))))-abs(x-y));

Memo1.Lines.Add('Результат B='+FloatToStrF(b,fffixed,8,3));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Лаб.раб.N1, гр. 107226, бригада №6');

end;

end.

Результат выполнения программы:

Выводы:

Мы изучили основы среды DELPHI и составили простейшую программу для линейного алгоритма. Использовали компоненты: Label, Memo, Edit, Button. Изучили их основные свойства такие как: Caption, Name, Font.


9573974314535507.html
9574061840347358.html

9573974314535507.html
9574061840347358.html
    PR.RU™