МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
|||||||
Код программы.unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Math;
type TForm1 = class(TForm) btn1: TButton; img1: TImage; lst1: TListBox; lst2: TListBox; btn2: TButton; lbl1: TLabel; lbl2: TLabel; btn3: TButton; lbl3: TLabel; lst3: TListBox; btn4: TButton; lst4: TListBox; lbl4: TLabel; btn5: TButton; lbl5: TLabel; lst5: TListBox; btn6: TButton; lbl6: TLabel; lst6: TListBox; btn7: TButton; lbl7: TLabel; lst7: TListBox; btn8: TButton; lbl8: TLabel; lst8: TListBox; btn9: TButton; lbl9: TLabel; lbl10: TLabel; mmo1: TMemo; lbl11: TLabel; mmo2: TMemo; btn10: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn10Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure btn5Click(Sender: TObject); procedure btn6Click(Sender: TObject); procedure btn8Click(Sender: TObject); procedure btn7Click(Sender: TObject); procedure btn9Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; x: array[0..200] of real; list1,list2,list3,list4,list5,list6,list7,list8:array[0..35] of Real; implementation
{$R *.dfm}
procedure Stat (hList:array of real; var D,M:Real; mmo1,mmo2:TMemo); var S,Sr:Real; i,n,k:Integer;
begin S:=0; D:=0; M:=0; Sr:=0; n:=35;
for i:=0 to n-1 do Sr:=Sr+hList[i];
M:=Sr/n; for k:=0 to n-1 do S:=S+SQR(M-hList[k]);
D:=S/n;
mmo1.Text:=FloatToStrF(M,ffGeneral,2,2); mmo2.Text:=FloatToStrF(D,ffGeneral,2,2); end;
procedure Graph1 (x2,y2:Real; hList:array of real; img:TImage); var i,j: integer; x1,y1,k:real; l,b:integer; w,h:integer; mx,my:real; x0,y0:integer; px1,py1: integer; begin img.Canvas.Rectangle(0,0,img.ClientWidth,img.ClientHeight); l:=10; b:=img.ClientHeight-20; h:=img.ClientHeight-40; w:=img.Width-40;
for i:=0 to 35 do x[i]:=i; y1:=0; x1:=0; my:=h/abs(y2-y1); mx:=w/abs(x2-x1); x0:=l+10; y0:=b-3;
with img.Canvas do begin MoveTo(x0,b);LineTo(x0,b-h); // ось Y MoveTo(l,y0);LineTo(l+w,y0); // ось X MoveTo(x0,y0); i:=0; while i<=34 do begin px1 := x0+Round(x[i+1]*mx); py1 := y0-Round((hList[i])*my); img.Canvas.Pen.Color:= clRed; Rectangle(px1-2,py1-2,px1+2,py1+2); LineTo(px1,py1);
i:=i+1;
img.Canvas.Pen.Color := clBlack; j:=0; while j<=x2 do begin
TextOut(Round((j+1)*mx),y0+2, FloatToStrF(j,ffGeneral,2,2)); MoveTo(px1,py1);
j:=j+2; end;
k:=y2; while k>0 do begin
TextOut(x0-18,b-Round((k)*my)-8, FloatToStrF(k,ffGeneral,2,2)); MoveTo(px1,py1);
k:=k-0.2; end;
end; end; end;
procedure Graph2 (x2,y2:Real; hList:array of real; img:TImage); var i,j: integer; x1:real; y1,k:real; l,b:integer; w,h:integer; mx,my:real; x0,y0:integer; px1,py1,px2,py2,px3,py3,px4,py4,px5,py5: integer; img.Canvas.Rectangle(0,0,img.ClientWidth,img.ClientHeight); l:=10; b:=img.ClientHeight-20; h:=img.ClientHeight-40; w:=img.Width-40;
for i:= 0 to 35 do x[i]:=i; y1:=0; x1:=0;
my:=h/abs(y2-y1); mx:=w/abs(x2-x1); x0:=l+10; y0:=b-3;
with img.Canvas do begin MoveTo(x0,b);LineTo(x0,b-h); // ось Y MoveTo(l,y0);LineTo(l+w,y0); // ось X MoveTo(x0,y0-Round((hList[0])*my));
i:=2; while i<35 do begin px1 := x0+Round(x[i-2]*mx); py1 := y0-Round((hList[i-2])*my); img.Canvas.Pen.Color:= clRed; Rectangle(px1-2,py1-2,px1+2,py1+2); LineTo(px1,py1);
px2 := x0+Round(x[i]*mx); py2 := y0-Round((hList[i-1])*my); img.Canvas.Pen.Color:= clRed; Rectangle(px2-2,py2-2,px2+2,py2+2); LineTo(px2,py2);
px3 := x0+Round(x[i+2]*mx); py3 := y0-Round((hList[i])*my); img.Canvas.Pen.Color:= clRed; Rectangle(px3-2,py3-2,px3+2,py3+2);
LineTo(px3,py3);
LineTo(px1,py1);
i:=i+3;
img.Canvas.Pen.Color := clBlack; j:=0; while j<=x2 do begin
TextOut(Round((j+1)*mx),y0+2, FloatToStr(j)); MoveTo(px1,py1); j:=j+2; end;
k:=y2; while k>0 do begin
TextOut(x0-10,b-Round((k)*my)-8, FloatToStr(k)); MoveTo(px1,py1); k:=k-1; end; end; px4 := x0+Round(x[33]*mx); py4 := y0-Round((hList[33])*my); img.Canvas.Pen.Color:= clRed; Rectangle(px4-2,py4-2,px4+2,py4+2); px5 := x0+Round(x[35]*mx); py5 := y0-Round((hList[34])*my); img.Canvas.Pen.Color:= clRed; Rectangle(px5-2,py5-2,px5+2,py5+2); LineTo(px4,py4); LineTo(px5,py5); img.Canvas.Pen.Color := clBlack; end; end;
procedure TForm1.btn1Click(Sender: TObject); var x1,x2,x3,x4,x8,y1,y2,y3:Real; i,j,k,l,x5,x6,x7:Integer; begin Randomize;
for i:=0 to 34 do begin x1:=Random; x8:=Random; y1:=sqrt((-2)*ln(x1))*abs(cos(2*pi*x8)); lst1.AddItem(FloatToStrF(y1,ffGeneral,2,2),lst1); list1[i]:=y1; end;
for j:=0 to 34 do begin x2:=Random; x3:=Random; y2:=Sqrt(Sqr(x3)+sqr(x2)); lst2.AddItem(FloatToStrF(y2,ffGeneral,2,2),lst2); list2[j]:=y2; end;
for k:=0 to 34 do begin x4:=Random; y3:=Power(Ln(1/(1-x4)),1/3); lst3.AddItem(FloatToStrF(y3,ffGeneral,2,2),lst3); list3[k]:=y3; end;
l:=2; x5:=0; x6:=1; x7:=0; while l<=35 do begin lst4.AddItem(FloatToStr(x5),lst4); list4[l-2]:=x5; lst4.AddItem(FloatToStr(x6),lst4); list4[l-1]:=x6; lst4.AddItem(FloatToStr(x7),lst4); list4[l]:=x7; l:=l+3; end; list4[35]:=1; lst4.AddItem(FloatToStr(x5),lst4); lst4.AddItem(FloatToStr(x6),lst4);
end;
procedure TForm1.btn2Click(Sender: TObject); var D,M:real; begin Stat(list1,D,M,mmo1,mmo2); Graph1(36,2.5,list1,img1); end;
procedure TForm1.btn10Click(Sender: TObject); var i:Integer; v1,v2,v3,u1:Real; begin for i:=0 to 34 do begin u1:=StrToFloat(lst4.Items[i]); v1:=StrToFloat(lst1.Items[i]); lst5.AddItem(FloatToStr(v1+u1),lst5); list5[i]:=list4[i]+list1[i];
v2:=StrToFloat(lst2.Items[i]); lst6.AddItem(FloatToStr(v2+u1),lst6); list6[i]:=list2[i]+list1[i];
v3:=StrToFloat(lst3.Items[i]); lst7.AddItem(FloatToStr(v3+u1),lst7); list7[i]:=list1[i]+list3[i];
lst8.AddItem(FloatToStr(u1+v1+v2+v3),lst8); list8[i]:=list1[i]+list2[i]+list3[i]+list4[i]; end;
end;
procedure TForm1.btn3Click(Sender: TObject); var D,M:Real; begin Stat(list2,D,M,mmo1,mmo2); Graph1(36,2,list2,img1); end;
procedure TForm1.btn4Click(Sender: TObject); var M,D:Real; begin Graph1(36,2,list3,img1); Stat(list3,D,M,mmo1,mmo2); end;
procedure TForm1.btn5Click(Sender: TObject); var D,M:Real; begin Stat(list4,D,M,mmo1,mmo2); Graph2(36,2,list4,img1); end;
procedure TForm1.btn6Click(Sender: TObject); var D,M:Real; begin Stat(list5,D,M,mmo1,mmo2); Graph1(36,4,list5,img1); end;
procedure TForm1.btn8Click(Sender: TObject); var D,M:Real; begin Stat(list6,D,M,mmo1,mmo2); Graph1(36,4,list6,img1); end;
procedure TForm1.btn7Click(Sender: TObject); var D,M:Real; begin Stat(list7,D,M,mmo1,mmo2); Graph1(36,4,list7,img1); end;
procedure TForm1.btn9Click(Sender: TObject); var D,M:Real; begin Stat(list8,D,M,mmo1,mmo2); Graph1(36,6,list8,img1); end;
end.
|
||||||||
|