Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



Контакти
 


Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция






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




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

<== попередня сторінка | наступна сторінка ==>
АТЕНЮАТОРИ НОЖОВОГО ТИПУ | Підприємство – первинна ланка ринкової економіки. Основні функції та види підприємств.

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

 

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.029 сек.