Информационно-вычислительная сеть коллективного пользования

inherited create;

x:=a;y:=b;

end;

procedure point.draw;

begin

form1.Image1.Canvas.Pixels[x,y]:=clblue;

end; 

constructor line.create(a2,b2,c2:integer);

begin

inherited create;

  lx:=a2;ly:=b2;lc:=c2;

end;

procedure line.draw;

begin

  lx:=110;ly:=250;

  form1.Image1.canvas.pen.color:=clblack;

  form1.Image1.Canvas.MoveTo(lx-lc,ly);

  form1.Image1.Canvas.LineTo(lx+lc+100,ly);//lx:=z+200;ly:=q+200;

  lx1:=150;ly1:=10;

  form1.Image1.canvas.pen.color:=clblack;

  form1.Image1.Canvas.MoveTo(ly1-lc1,lx1-100);

  form1.Image1.Canvas.LineTo(ly1+lc1,lx1+100);

  end; 

constructor setl.create;

  begin

  inherited create;

  end; 

constructor abevm.create;

  begin            

  inherited create;

  end; 

procedure abevm.ochered;

  begin

  nomvh:=nomvh+1;

  mm:=mm+1;

  tvh[nomvh]:=kanal1.tvh[kanal1.nomvh];

  tv[nomvh]:=tvip[mm];

  end; 

procedure abevm.obrab(i:integer);

  begin

  tv[i]:=tv[i]-0.02;

  t:=t+0.02;

  end; 

procedure abevm.finish(i:integer);

  begin

  if tv[i]<=0 then

    begin

    nomoz:=nomoz+1;   

    toz[nomoz]:=t-tvh[i];

    ind:=1;

    end

    else ind:=0;

  end; 

constructor monitor.create;

  begin

  inherited create;

  end; 

procedure monitor.dosoob(i:integer);

  begin

    nn:=nn+1;

    nomvh:=nomvh+1;

    tvh[nomvh]:=t+tobd[nn];

  end; 

constructor kanal.create;

  begin

  inherited create;

  end; 

procedure kanal.sendtoabevm(i:integer);

  begin

  abevm1.nomvh:=abevm1.nomvh+1;

  abevm1.tvh[i]:= m[i].tvh[m[i].nomvh];

  mm:=mm+1;

  abevm1.tv[i]:=tvip[mm];

  end; 
 

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

    u:real;

    tvhoda,tvhoda1:array[1..2160] of real;

begin

for i:=1 to 2160 do

begin

u:=random;

tvhoda1[i]:=-ln(u);

end;

tvhoda[1]:=0;

for i:=2 to 2160 do

tvhoda[i]:=tvhoda[i-1]-100*ln(tvhoda1[i-1]);

abevm1:=abevm.create;

kanal1:=kanal.create;

aline:=line.create(200,50,100);

end; 

procedure TForm1.Button1Click(Sender: TObject);

var  tobrab0,tobrab1,tobrab2,tobrab3,tobrab4,tobrab5:real;

     tobrab6,tobrab8,tobrab7,tobrab,t0,t1,t2,t3,t4,t5,t6,t7,t8:real;

     razm,u,i,n0,n1,n2,n3,n4,n5,n6,n7,n8:integer;

     psr1,psr,mx,dx,ta:real;

     nn,mm,nk,t00,t11,t22,t33,t44,t55,t66,t77,t88:integer;

begin

nn:=1;mm:=0;nk:=0;

repeat

t0:=0;t1:=0;

t2:=0;t3:=0;

t4:=0;t5:=0;

t6:=0;t7:=0;

t8:=0;

n0:=0;n1:=0;

n2:=0;n3:=0;n4:=0;

n5:=0;n6:=0;n7:=0;n8:=0;

for i:=1 to 2160 do

begin

u:=random(8);//режим работы эвм

razm:=random(15360);//размер сообщения

if u=0 then

begin

tobrab:=razm/100000;

t0:=t0+tobrab;

n0:=n0+1;

end

else

  if u=1 then

begin

tobrab:=razm/150000;

t1:=t1+tobrab;

n1:=n1+1;

end

else if u=2 then

begin

tobrab:=razm/200000;

t2:=t2+tobrab;

n2:=n2+1;

end

else if u=3 then

begin

tobrab:=razm/250000;

t3:=t3+tobrab;

n3:=n3+1;

end

else if u=4 then

begin

tobrab:=razm/300000;

t4:=t4+tobrab;

n4:=n4+1;

end

else if u=5 then

begin

tobrab:=razm/350000;

t5:=t5+tobrab;

n5:=n5+1;

end

else if u=6 then

begin

tobrab:=razm/400000;

t6:=t6+tobrab;

n6:=n6+1;

end

else if u=7 then

begin

tobrab:=razm/450000;

t7:=t7+tobrab;

n7:=n7+1;

end

else if u=8 then

begin

tobrab:=razm/500000;

t8:=t8+tobrab;

n8:=n8+1;

end;

end; 

mx:=(tobrab0+tobrab1+tobrab2+tobrab3+tobrab4+tobrab5+tobrab6+tobrab8+tobrab7);

mx:=mx/8;

psr:=0.99;

ta:=0.01/sqrt(psr*(1-psr)/500);

dx:=0.0001*8/(ta*ta);

if (tobrab<0.15) or (tobrab>0.03) then

mm:=mm+1;

nn:=nn+1;

psr1:=mm/nn;

if psr1=psr then

psr1:=psr

else nk:=nk+1 ;

until (nk>10000) and (ta*sqrt((psr*(1-psr)/500))>0.01);

tobrab0:=t0/n0;

tobrab1:=t1/n1;tobrab2:=t2/n2;

tobrab3:=t3/n3;tobrab4:=t4/n4;

tobrab5:=t5/n5;tobrab6:=t6/n6;

tobrab7:=t7/n7;tobrab8:=t8/n8;

aline.draw;

t00:=round(tobrab0*1000);

t11:=round(tobrab1*1000);

t22:=round(tobrab2*1000);

t33:=round(tobrab3*1000);

t44:=round(tobrab4*1000);

t55:=round(tobrab5*1000);

t66:=round(tobrab6*1000);

t77:=round(tobrab7*1000);

t88:=round(tobrab8*1000); 

form1.Image1.canvas.pen.color:=clblue;

form1.Image1.Canvas.MoveTo(20,t00);

form1.Image1.Canvas.LineTo(55,75+t11); 

form1.Image1.canvas.pen.color:=clred;

form1.Image1.Canvas.MoveTo(55,75+t11);

form1.Image1.Canvas.LineTo(90,115+t22); 

form1.Image1.canvas.pen.color:=clpurple;

form1.Image1.Canvas.MoveTo(90,115+t22);

form1.Image1.Canvas.LineTo(125,145+t33); 

form1.Image1.canvas.pen.color:=claqua;

form1.Image1.Canvas.MoveTo(125,145+t33);

form1.Image1.Canvas.LineTo(155,160+t44); 

form1.Image1.canvas.pen.color:=clgreen;

form1.Image1.Canvas.MoveTo(155,160+t44);

form1.Image1.Canvas.LineTo(185,170+t55); 

form1.Image1.canvas.pen.color:=clblack;

form1.Image1.Canvas.MoveTo(185,170+t55);

form1.Image1.Canvas.LineTo(215,172+t66); 

form1.Image1.canvas.pen.color:=clyellow;

form1.Image1.Canvas.MoveTo(215,172+t66);

form1.Image1.Canvas.LineTo(245,195+t77); 

form1.Image1.canvas.pen.color:=clfuchsia;

form1.Image1.Canvas.MoveTo(245,195+t77);

form1.Image1.Canvas.LineTo(275,196+t88); 

listbox1.Items.Add('t0='+floattostr(tobrab0));

listbox1.Items.Add('t1='+floattostr(tobrab1));

listbox1.Items.Add('t2='+floattostr(tobrab2));

listbox1.Items.Add('t3='+floattostr(tobrab3));

listbox1.Items.Add('t4='+floattostr(tobrab4));

listbox1.Items.Add('t5='+floattostr(tobrab5));

listbox1.Items.Add('t6='+floattostr(tobrab6));

listbox1.Items.Add('t7='+floattostr(tobrab7));

listbox1.Items.Add('t8='+floattostr(tobrab8));

end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

abevm1.Free;

kanal1.Free;

monitor.Free;

end;

end.