Содержание
Лабораторная работа № 1
Цель работы
Изучить компоненты Label, Edit, Button.
Используя компоненты Label, Edit, Button, написать программу для соответствующего варианта (номер определяется преподавателем).
Программа работы
Выполнить задание, используя компоненты Label, Edit, Button.
Задание
Найти длину окружности, площадь круга и объем шара одного и того же радиуса R. При вычислении использовать формулы: , , .
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
p=3.14;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
R,L,S,V:Real;
begin
R:=StrToFloat(Edit1.Text);
L:=2*p*R;
S:=p*sqr(R);
V:=(4/3)*p*(R*R*R);
Edit2.Text:=FloatToStr(L);
Edit3.Text:=FloatToStr(S);
Edit4.Text:=FloatToStr(V);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
end.
Результаты
Блок-схема
Procedure Tform1.Button1Click(sender:TObject)
Начало
R
L:=2*p*R;
S:=p*sqr(R);
V:=(4/3)*p*(R*R*R);
L,S,V
конец
Лабораторная работа № 2
Цель работы
Изучить компоненты RadioGroup, ComboBox.
Программа работы
Используя компоненты RadioGroup, ComboBox, написать программу для соответствующего варианта (номер определяется преподавателем).
Задание
Даны координаты трех точек. Определить:
а) коэффициенты в уравнении прямой, проходящей через 1-ю и 2-ю точку;
б) коэффициенты в уравнении прямой, проходящей через 2-ю и 3-ю точку.
Текст программы
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit7: TEdit;
Label7: TLabel;
Edit8: TEdit;
Label8: TLabel;
Edit9: TEdit;
Label9: TLabel;
Edit10: TEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,x3,y1,y2,y3,a,b:real;
begin
Case ComboBox1.ItemIndex of
0:begin
x1:=StrToFloat(Edit1.Text);
x2:=StrToFloat(Edit3.Text);
y1:=StrToFloat(Edit2.Text);
y2:=StrToFloat(Edit4.Text);
a:=(y2 - y1)/(x2 - x1);
b:=y2-a*x2;
Edit7.Text:=FloatToStr(a);
Edit8.Text:=FloatToStr(b);
end;
1:begin
x2:=StrToFloat(Edit3.Text);
x3:=StrToFloat(Edit5.Text);
y2:=StrToFloat(Edit4.Text);
y3:=StrToFloat(Edit6.Text);
a:=(y3 - y2)/(x3 - x2);
b:=y3-a*x3;
Edit9.Text:=FloatToStr(a);
Edit10.Text:=FloatToStr(b);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
end.
Результаты
Блок-схема
Procedure Tform1.Button1Click(Sender:TObject)
Начало
If Combobox1.ItemIndex of 0
m
If Combobox1.ItemIndex of 1
I
Конец
x1,x2,y1,y2
a:=(y2 - y1)/(x2 - x1);
b:=y2-a*x2;
x2,x3, y2,y3
a:=(y3 - y2)/(x3 - x2);
b:=y3-a*x3;
Лабораторная работа № 3
Цель работы
Изучить компонент StringGrid.
Программа работы
Используя компонент StringGrid, написать программу для соответствующего варианта (номер определяется преподавателем).
Задание
Дан массив размера 4 x 6 с элементами целого типа. Написать программу для вычисления суммы элементов массива.
Текст программы
unit Unit1;