Компьютерное моделирование. Тарасов В.Н - 114 стр.

 lamz:=0;
 dx1:=0;
 sum:=0;
 xi2:=0;
 sum1:=0;
 max:=0;
 min:=0;
 ddx:=0;
 s:='';
 for i:=1 to n do r[i]:=random;
 case ComboBox1.ItemIndex of
0: begin
    va:=strtoint(Frame21.Edit1.Text);
    vb:=strtoint(Frame21.Edit2.Text);
    for i:=1 to n do x[i]:=va+(vb-va)*r[i]; {равномерный}
   end;
1: begin                          {нормальный}
  xs:=strtofloat(Frame21.Edit1.Text);
  sig:=strtofloat(Frame21.Edit2.Text);
 for i:=1 to n do begin
 for j:=1 to 12 do x[i]:=x[i]+random;
 x[i]:=x[i]-6;
 x[i]:=xs+sig*x[i];
                  end;
   end;
2: for i:=1 to n do x[i]:=ln(r[i])/((-1)*strtoint(Frame21.Edit1.Text)); {экспоненциальный}
3: begin                             {Эрланга}
    ers:=strtoint(Frame21.Edit2.Text);
    for i:=1 to n do
    for j:=1 to ers-1 do r[i]:=r[i]+random;
    for i:=1 to n do x[i]:=ln(r[i])/((-1)*strtoint(Frame21.Edit1.Text));
   end;
4: begin                {гиперэкспоненциальный}
       ll:=0;
       tl:='';
   for i:=1 to n do lm[i]:=0;
   slam:=Frame21.Edit1.Text;
   spi:=Frame21.Edit2.Text;
   {Ввод вектора}
for i:=1 to length(slam) do
case slam[i] of
        ';',' ':begin
          ll:=ll+1;
          lm[ll]:=strtofloat(tl);
          tl:='';
                end;
'0'..'9',',','.':tl:=tl+slam[i];
   end;
 if tl<>'' then begin
                 ll:=ll+1;



                                                                                             4