Курсовая работа: Теория вероятности

Type mas=array[1..40] of real;

label 10;

const a:mas=(0.0008,0.0009,0.001,0.0011,0.0013,0.0015,0.0017,0.002,0.0024,

0.00287,0.0035,0.0043,0.0056,0.0074,0.01,0.015,0.024,0.045,0.102,0.25,0.25,

0.102, 0.045,0.024,0.015,0.01,0.0074,0.0056,0.0043,0.0035,0.00287,0.0024,0.002

0.0017,0.0015,0.0013,0.0011,0.001,0.0009,0.0008);

Xmax=20; Xmin=-20;

n=300; k=40; xn=70; xm=550; yn=180; ym=140;

Var i,j:integer;

q:boolean;

a1,y,x,e,dh,t,Mmax,hmax,t1,t2,b,Mxx,Dxx,Skx,Qxx,Exx:real;

r,d,x1,x2,y1,y2:integer;

m,xi,pix,hi,h:array[1..300] of real;

o,l:array[1..41] of real;

b1:array[0..300] of real;

st:string;

Begin

clrscr;

randomize;

o[1]:=0;

for i:=1 to 41 do begin

o[i+1]:=o[i]+a[i];

end;

x:=-20;

for i:=1 to 41 do begin

l[i]:=x;

x:=x+1;

end;

writeln(' Массив имеющий закон распределения Коши:')