ssages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Buttons, StdCtrls; = class (TForm): TMemo;: TMemo;: TMemo;: TMemo;: TMemo;: TMemo;: TMemo;: TButton;: TBitBtn;: TEdit;: TEdit;: TEdit;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TStaticText;: TMemo; : TMemo;: TMemo;: TMemo;: TMemo;: TStaticText;: TStaticText;: TStaticText; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Okno2;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject); = 0.001; = 0.01; = 9; = 10; = 0.1; = 1300; = 1.3;: array [1 .. 10] of longint ;: array [1 .. 10] of do begin: = 0;: = 0;: = 0;: = 0;: = 0; i: = 1 to k do begin: = 0;: = 0; f then Nk [i]: = 9 [i] : = round (ntreb * Pk * sqrt (Dk [i])/qk2); j: = 1 to Nk [i] do begin: = random * 0.4 +1;: = random * Pk * 0.2 +0.6 + Pk * (i-1) * 0.2;: = 1; jj: = 1 to kk do begin of
: begin
: begin
: begin
: begin//
: begin
: begin
: begin
: begin
: begin
: begin
//
