• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Then begin

Begin

Begin

Begin

Begin

LVidr:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

end;

procedure TForm1.ShowPoint(C : integer); // Опис

Label7.Caption:=FloatToStr(VA[x][C]);

Label8.Caption:=FloatToStr(VA[y][C]);

Label10.Caption:=FloatToStr(LVidr(VA[x][C],VA[y][C],0,0));

Button7.Enabled:=true;

Button8.Enabled:=true;

if C>=n then Button7.Enabled:=false;

if C<=1 then Button8.Enabled:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

n:=n+1;

LabeledEdit1.EditLabel.Caption:='Ax[' + inttostr(n+1) + ']';

LabeledEdit2.EditLabel.Caption:='Ay[' + inttostr(n+1) + ']';

LabeledEdit4.Text:=inttostr(n-1);

A[x][n]:=StrToFloat(LabeledEdit1.Text);

A[y][n]:=StrToFloat(LabeledEdit2.Text);

if n>1 then Button4.Enabled:=true;

Button5.Enabled:=false;

Button6.Enabled:=false;

Button7.Enabled:=false;

Button8.Enabled:=false;

LabeledEdit1.Text:=FloatToStr(A[y][n]/5-n/(n*n) - random(120) );

LabeledEdit2.Text:=FloatToStr(-A[x][n]/5-n/(n*n) +1000 - random(2000) );

end;

procedure TForm1.Button3Click(Sender: TObject);

var L:double;

i, n1, nn: Integer;

n1:=StrToInt(LabeledEdit3.Text);

nn:=StrToInt(LabeledEdit4.Text);

L:=0;

for i := n1 to nn do

L:=L+LVidr(A[x][i],A[y][i],A[x][i+1],A[y][i+1]);

Label2.Caption:=FloatToStr(L);

end;

procedure TForm1.Button4Click(Sender: TObject);

var i,j: Integer;

k: double;

//VA=A;

for i := 1 to n do

for j := 1 to 2 do

VA[j][i]:= A[j][i]; {Створення копії ламаної}

{Бульбашка}

for j := 1 to n-1 do

for i := 1 to n-j do

if LVidr(VA[x][i], VA[y][i], 0, 0)>LVidr(VA[x][i+1], VA[y][i+1], 0, 0)

{VA[x][i]<=>VA[x][i+1]}

k:=VA[x][i];VA[x][i]:=VA[x][i+1];VA[x][i+1]:=k; // замінв x

k:=VA[y][i];VA[y][i]:=VA[y][i+1];VA[y][i+1]:=k; // замінв y

end;

Button5.Enabled:=true;

Button6.Enabled:=true;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Curr:=1;

ShowPoint(Curr);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Curr:=n;

ShowPoint(Curr);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Curr:=Curr+1;

ShowPoint(Curr);

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Curr:=Curr-1;

ShowPoint(Curr);

end;

procedure TForm1.LabeledEdit4Change(Sender: TObject);

begin

if ((LabeledEdit4.Text='') or (LabeledEdit4.Text='-') or (LabeledEdit4.Text='0')) then LabeledEdit4.Text:='0'

else if StrToInt(LabeledEdit4.Text)>n-1 then LabeledEdit4.Text:=IntToStr(0);

end;

end.

№ 2

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Button2: TButton;

Label1: TLabel;

Button3: TButton;

Label2: TLabel;

Button4: TButton;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure LabeledEdit4Change(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure ShowPoint(C : integer); // Об'ява

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

A:array [1..10,1..200] of double;

// VA:array [1..10,1..200] of double;

x : integer=1;

y : integer=2;

n : integer=0;

Curr : integer=1;

Ind :array [1..200] of integer;

implementation

{$R *.dfm}

function LVidr(x1, y1, x2, y2:double): double;

begin

LVidr:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

end;

procedure TForm1.ShowPoint(C : integer); // Опис

begin

Label7.Caption:=FloatToStr(A[x][Ind[C]]);

Label8.Caption:=FloatToStr(A[y][Ind[C]]);

Label6.Caption:=IntToStr(Ind[C]);

Label10.Caption:=FloatToStr(LVidr(A[x][Ind[C]],A[y][Ind[C]],0,0));

Button7.Enabled:=true;

Button8.Enabled:=true;

if C>=n then Button7.Enabled:=false;

if C<=1 then Button8.Enabled:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

n:=n+1;

LabeledEdit1.EditLabel.Caption:='Ax[' + inttostr(n+1) + ']';

LabeledEdit2.EditLabel.Caption:='Ay[' + inttostr(n+1) + ']';

LabeledEdit4.Text:=inttostr(n-1);

A[x][n]:=StrToFloat(LabeledEdit1.Text);

A[y][n]:=StrToFloat(LabeledEdit2.Text);

if n>1 then Button4.Enabled:=true;

Button5.Enabled:=false;

Button6.Enabled:=false;

Button7.Enabled:=false;

Button8.Enabled:=false;

LabeledEdit1.Text:=FloatToStr(A[y][n]/5-n/(n*n) - random(120) );

LabeledEdit2.Text:=FloatToStr(-A[x][n]/5-n/(n*n) +1000 - random(2000) );

end;

procedure TForm1.Button3Click(Sender: TObject);

var L:double;

i, n1, nn: Integer;

begin

n1:=StrToInt(LabeledEdit3.Text);

nn:=StrToInt(LabeledEdit4.Text);

L:=0;

for i := n1 to nn do

L:=L+LVidr(A[x][i],A[y][i],A[x][i+1],A[y][i+1]);

Label2.Caption:=FloatToStr(L);

end;

procedure TForm1.Button4Click(Sender: TObject);

var i, j, ik: Integer;

k: double;

begin

//VA=A;

// for i := 1 to n do

// for j := 1 to 2 do

// VA[j][i]:= A[j][i]; {Створення копії ламаної}

for i := 1 to n do

Ind[i]:= i; {Початкове визначення Ind}

{Бульбашка}

for j := 1 to n-1 do

for i := 1 to n-j do

if LVidr(A[x][Ind[i]], A[y][Ind[i]], 0, 0)>LVidr(A[x][Ind[i+1]], A[y][Ind[i+1]], 0, 0)

then begin

{VA[x][i]<=>VA[x][i+1]}

// k:=VA[x][i];VA[x][i]:=VA[x][i+1];VA[x][i+1]:=k; // замінв x

// k:=VA[y][i];VA[y][i]:=VA[y][i+1];VA[y][i+1]:=k; // замінв y

ik:=Ind[i];Ind[i]:=Ind[i+1];Ind[i+1]:=ik; // замінв Ind

end;

Button5.Enabled:=true;

Button6.Enabled:=true;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Curr:=1;

ShowPoint(Curr);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Curr:=n;

ShowPoint(Curr);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Curr:=Curr+1;

ShowPoint(Curr);

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Curr:=Curr-1;

ShowPoint(Curr);

end;

procedure TForm1.LabeledEdit4Change(Sender: TObject);

begin

if ((LabeledEdit4.Text='') or (LabeledEdit4.Text='-') or (LabeledEdit4.Text='0')) then LabeledEdit4.Text:='0'

else if StrToInt(LabeledEdit4.Text)>n-1 then LabeledEdit4.Text:=IntToStr(0);

end;

end.

№ 3

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Button2: TButton;

Label1: TLabel;

Button3: TButton;

Label2: TLabel;

Button4: TButton;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Label11: TLabel;

Label12: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure LabeledEdit4Change(Sender: TObject);

procedure Button5Click(Sender: TObject);

// procedure ShowPointInd(C : integer); // Об'ява

procedure ShowPoint(); // Об'ява

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

A:array [1..10,1..200] of double;

// VA:array [1..10,1..200] of double;

x : integer=1;

y : integer=2;

n : integer=0;

Curr : integer=1;

Current : integer=1;

Ind :array [1..200] of integer;

Ind_1 :array [1..200] of integer;

implementation

{$R *.dfm}

function LVidr(x1, y1, x2, y2:double): double;

begin

LVidr:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

end;

{procedure TForm1.ShowPointInd(C : integer); // Опис

begin

Label7.Caption:=FloatToStr(A[x][Ind[C]]);

Label8.Caption:=FloatToStr(A[y][Ind[C]]);

Label6.Caption:=IntToStr(C);

Label10.Caption:=FloatToStr(LVidr(A[x][Ind[C]],A[y][Ind[C]],0,0));

Label12.Caption:=IntToStr(Curr);

//Current:=Ind[C];

Button11.Enabled:=true;

Button12.Enabled:=true;

Button7.Enabled:=true;

Button8.Enabled:=true;

if C>=n then Button7.Enabled:=false;

if C<=1 then Button8.Enabled:=false;

if Current>=n then Button11.Enabled:=false;

if Current<=1 then Button12.Enabled:=false;

end;

}

procedure TForm1.ShowPoint(); // Опис

begin

Label7.Caption:=FloatToStr(A[x][Current]);

Label8.Caption:=FloatToStr(A[y][Current]);

Label6.Caption:=IntToStr(Current);

Label10.Caption:=FloatToStr(LVidr(A[x][Current],A[y][Current],0,0));

Label12.Caption:=IntToStr(Curr);

Button7.Enabled:=true;

Button8.Enabled:=true;

Button11.Enabled:=true;

Button12.Enabled:=true;

// Curr:=Ind_1[Current];

if Current>=n then Button11.Enabled:=false;

if Current<=1 then Button12.Enabled:=false;

if Curr>=n then Button7.Enabled:=false;

if Curr<=1 then Button8.Enabled:=false;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

Current:=n;

// ShowPoint(Curr);

Curr:=Ind_1[Current];

ShowPoint({Current});

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

Current:=Current+1;

// ShowPoint(Curr);

Curr:=Ind_1[Current];

ShowPoint({Current});

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Current:=Current-1;

// ShowPoint(Curr);

Curr:=Ind_1[Current];

ShowPoint({Current});

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

Var i: integer;

begin

n:=n+1;

LabeledEdit1.EditLabel.Caption:='Ax[' + inttostr(n+1) + ']';

LabeledEdit2.EditLabel.Caption:='Ay[' + inttostr(n+1) + ']';

LabeledEdit4.Text:=inttostr(n-1);

A[x][n]:=StrToFloat(LabeledEdit1.Text);

A[y][n]:=StrToFloat(LabeledEdit2.Text);

for i := 1 to n do

begin

Ind[i]:= i; {Початкове визначення Ind}

Ind_1[i]:= i; {Початкове визначення Ind_1}

end;

if n>1 then Button4.Enabled:=true;

Button5.Enabled:=false;

Button6.Enabled:=false;

Button7.Enabled:=false;

Button8.Enabled:=false;

Button9.Enabled:=true;

Button10.Enabled:=true;

LabeledEdit1.Text:=FloatToStr(A[y][n]/5-n/(n*n) - random(120) );

LabeledEdit2.Text:=FloatToStr(-A[x][n]/5-n/(n*n) +1000 - random(2000) );

end;

procedure TForm1.Button3Click(Sender: TObject);

var L:double;

i, n1, nn: Integer;

begin

n1:=StrToInt(LabeledEdit3.Text);

nn:=StrToInt(LabeledEdit4.Text);

L:=0;

for i := n1 to nn do

L:=L+LVidr(A[x][i],A[y][i],A[x][i+1],A[y][i+1]);

Label2.Caption:=FloatToStr(L);

end;

procedure TForm1.Button4Click(Sender: TObject);

var i, j, ik: Integer;

k: double;

begin

//VA=A;

// for i := 1 to n do

// for j := 1 to 2 do

// VA[j][i]:= A[j][i]; {Створення копії ламаної}

{Бульбашка}

for j := 1 to n-1 do

for i := 1 to n-j do

if LVidr(A[x][Ind[i]], A[y][Ind[i]], 0, 0)>LVidr(A[x][Ind[i+1]], A[y][Ind[i+1]], 0, 0)

then begin

{VA[x][i]<=>VA[x][i+1]}

// k:=VA[x][i];VA[x][i]:=VA[x][i+1];VA[x][i+1]:=k; // замінв x

// k:=VA[y][i];VA[y][i]:=VA[y][i+1];VA[y][i+1]:=k; // замінв y

ik:=Ind[i];Ind[i]:=Ind[i+1];Ind[i+1]:=ik; // замінв Ind

Ind_1[i]:=Ind_1[i]+1; Ind_1[i+1]:=Ind_1[i+1]-1;

end;

Button5.Enabled:=true;

Button6.Enabled:=true;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Curr:=1;

// ShowPoint(Curr);

Current:=Ind[Curr];

ShowPoint({Current});

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Curr:=n;

// ShowPoint(Curr);

Current:=Ind[Curr];

ShowPoint({Current});

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Curr:=Curr+1;

// ShowPoint(Curr);

Current:=Ind[Curr];

ShowPoint({Current});

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Curr:=Curr-1;

// ShowPoint(Curr);

Current:=Ind[Curr];

ShowPoint({Current});

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Current:=1;

// ShowPoint(Curr);

Curr:=Ind_1[Current];

ShowPoint({Current});

// ShowMessage(IntToStr(Current)+IntToStr(Curr));

end;

procedure TForm1.LabeledEdit4Change(Sender: TObject);

begin

if ((LabeledEdit4.Text='') or (LabeledEdit4.Text='-') or (LabeledEdit4.Text='0')) then LabeledEdit4.Text:='0'

else if StrToInt(LabeledEdit4.Text)>n-1 then LabeledEdit4.Text:=IntToStr(0);

end;

end.

Читайте також:

1. While правда do begin

Переглядів: 714