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

                                   Приложение В
                                    (рекомендуемое)

Исходный текст программы к заданию №1
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
type
  TFrame2 = class(TFrame)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
implementation
uses Unit1;
{$R *.dfm}
procedure TFrame2.Button1Click(Sender: TObject);var
    x,fx,r:array[1..10000]of real;
    pjk,pj,lm,pm:array[1..30]of real;
    i,ll,lp,n,j,gd,gm,x0:integer;
    col:array[1..30] of integer;
    ep,sig,mm2,mm3,m2,m3,m4,ass,ast,eks,ekt,dx,xs,lamz,dx1,sum,xi2,sum1,max,min,ddx:real;
    va,vb,ers,lam:integer;
    s,tl,slam,spi,tp:string;
begin
with Form1 do begin
 randomize;
 n:=strtoint(edit1.Text);
for i:=1 to n do begin
   x[i]:=0;
   fx[i]:=0;
   r[i]:=0;
              end;
for i:=1 to 30 do begin
 pjk[i]:=0;
 pj[i]:=0;
 col[i]:=0
               end;
 dx:=0;
 xs:=0;



                                                                                            3