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

                 lm[ll]:=strtofloat(tl);
                end;
       lp:=0;
       tp:='';
for i:=1 to length(spi) do
case spi[i] of
        ';',' ':begin
          lp:=lp+1;
          pm[lp]:=strtofloat(tp);
          tp:='';
                end;
'0'..'9',',','.':tp:=tp+spi[i];
   end;
 if tp<>'' then begin
                 lp:=lp+1;
                 pm[lp]:=strtofloat(tp);
                end;
   {____________}
    for i:=1 to n do
    for j:=1 to ll do
    x[i]:=x[i]+pm[j]*ln(random)/((-1)*lm[j]);
 end;
 end;
 xs:=0;
 m2:=0;
 m3:=0;
 m4:=0;
  case ComboBox1.ItemIndex of
0: begin
    LamT.Caption:='a1: '+floattostrf((va+vb)/2,ffGeneral,3,3);
    M2T.Caption:='m2: '+ floattostrf(sqr(vb-va)/12,ffGeneral,3,3);
    M3T.Caption:='m3: 0';
    M4T.Caption:='m4: '+ floattostrf(power((vb-va),4)/80,ffGeneral,3,3);
    Label10.Caption:='as: 0';
    Label11.Caption:='ek: -1,2';
   end;
1: begin
    LamT.Caption:='a1: '+Frame21.Edit1.Text;
    M2T.Caption:='m2: '+Frame21.Edit2.Text;
    M3T.Caption:='m3: 0';
    M4T.Caption:='m4: '+ floattostrf(3*power(sig,4)/80,ffGeneral,3,3);
    Label10.Caption:='as: 0';
    Label11.Caption:='ek: 0';
   end;
2: begin
    LamT.Caption:='a1: '+ floattostrf(1/strtoint(Frame21.Edit1.Text),ffGeneral,3,3);
    M2T.Caption:='m2: '+ floattostrf(1/sqr(strtoint(Frame21.Edit1.Text)),ffGeneral,3,3);
    M3T.Caption:='m3: '+ floattostrf(2/(power(strtoint(Frame21.Edit1.Text),3)),ffGeneral,3,3);
    M4T.Caption:='m4: '+ floattostrf(9/(power(strtoint(Frame21.Edit1.Text),4)),ffGeneral,3,3);
    Label10.Caption:='as: 2';


                                                                                                 5