Классы в делфи, хелп )))) Опции

[Катеришка]

Помогите пожалуйста написать к программке классы!!!!! И сделать меню через mainmenu.

Составить описание класса для объектов-векторов, задаваемых координатами концов в трехмерном пространстве. Обеспечить операции вычисления векторного произведения двух векторов, а также смешанного произведения трех векторов.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
type
Vector = record
X:Real;
Y:Real;
Z:Real;
end;

function VectProduct(a,b:Vector):Vector;
begin
VectProduct.X:=a.Y*b.Z-a.Z*b.Y;
VectProduct.Y := b.X*a.Z - a.X*b.Z;
VectProduct.Z := a.X*b.Y - b.X*a.Y;
end;

function MixedProduct(a,b,c:Vector):Real;
var
x:Vector;
begin
x:= VectProduct(a,;
MixedProduct:=x.X*c.X+x.Y*c.Y+x.Z*c.Z;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
VectA,VectB,VectC:Vector;
vp:Vector;
begin
vecta.X := StrToFloat(Edit1.Text);
vecta.Y := StrToFloat(Edit2.Text);
vecta.Z := StrToFloat(Edit3.Text);

vectb.X := StrToFloat(Edit4.Text);
vectb.Y := StrToFloat(Edit5.Text);
vectb.Z := StrToFloat(Edit6.Text);

vectc.X := StrToFloat(Edit7.Text);
vectc.Y := StrToFloat(Edit8.Text);
vectc.Z := StrToFloat(Edit9.Text);

vp := VectProduct(vectA,vectB);

Edit10.Text := FloatToStr(vp.X);
Edit11.Text := FloatToStr(vp.Y);
Edit12.Text := FloatToStr(vp.Z);

vp := VectProduct(vectA,vectC);

Edit13.Text := FloatToStr(vp.X);
Edit14.Text := FloatToStr(vp.Y);
Edit15.Text := FloatToStr(vp.Z);

vp := VectProduct(vectB,vectC);

Edit16.Text := FloatToStr(vp.X);
Edit17.Text := FloatToStr(vp.Y);
Edit18.Text := FloatToStr(vp.Z);

Label15.Caption :=FloatToStr(MixedProduct(vectA,vectB,vectC));
end;
end.
end.