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


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


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


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


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


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


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


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


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


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



Контакти
 


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






Код программы.


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.




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

<== попередня сторінка | наступна сторінка ==>
The redundancy factor is determined on such formula | 

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

 

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


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