|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
18.03.2010, 20:33 | #1 (permalink) |
Новичок
Регистрация: 18.03.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сгенерировать последовательности на Delphi
Есть код, который надо переделать на эту задачу type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Chart1: TChart; Series1: TBarSeries; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x,r:array [1..30] of real; counts: array [1..10] of Integer; i,j:integer; lambda,min,max,d,sz,mx,width1,st:real; begin randomize; lambda:=0.8; For i:= 1 to 30 do begin x[i]:=-ln(random)/lambda; end; min:=x[1]; max:=x[1]; for i:= 1 to 29 do begin for j:=1 to 29 do begin if (x[j]>x[j+1]) then begin min:=x[j]; x[j]:=x[j+1]; x[j+1]:=min end; end; end; for i := 1 to 30-1 do begin r[i]:=x[i+1]-x[i]; end; //мат ожидание for i := 1 to 29 do mx:=mx+r[i]; mx:=(1/29)*mx; //дисперсия for i := 1 to 29 do d:=d+(sqr(r[i])-sqr(mx)); d:=(1/29)*d; Label1.Caption:=''; label1.Caption:='дисперсия = '+floattostr(d); //ср значение for i := 1 to 29 do sz:=sz+x[i]; sz:=sz/29; Label2.Caption:=''; label2.Caption:='среднее значение = '+floattostr(sz); min:=x[1]; max:=x[1]; for i:= 2 to 29 do begin if (r[i]<min) then min:=r[i]; if (r[i]>max) then max:=r[i]; end; width1:=(max-min)/10; st:=Min; for j:= 1 to 10 do begin counts[j]:=0; for i:=1 to 29 do if (r[i]>=St) and (r[i]<St+Width1) then Inc(counts[j]); St:=St+Width1; end; if r[29]=Max then Inc(counts[10]); Chart1.SeriesList[0].Clear; for i:= 1 to 10 do Chart1.SeriesList[0].AddXY(i,counts[i]/29); end; end. Заранее благодарен! |
18.03.2010, 20:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные топики, которые своим содержанием должны быть вам полезны DELPHI Последовательности в С++ Ввод последовательности Последовательности, Паскаль Паскаль. Задача о последовательности. |
22.03.2012, 17:20 | #3 (permalink) |
Новичок
Регистрация: 22.03.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
У меня такая же задача! помог7и пожалуйста!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|