МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
|||||||
Then beginBegin 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. Читайте також:
|
||||||||
|