Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Разработка простейшей программы в среде 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.
|