Курсовые проекты / курса / бек / 1 / Ботва / Modelup_q / BHH

uses crt;
var e,q: real;
     i,c: integer;
     h,k: array[1..7] of real;
const
     x: array[1..5] of integer=(1, 2, 3, 4, 5);
     p: array[1..5] of real=(0.1, 0.25, 0.2, 0.4, 0.05);
begin
     clrscr;
     randomize;
     writeln('—Ёб«® нЄбЇҐаЁ¬Ґ­в®ў: 7');
     for i:=1 to 5 do h[i]:=0.0;
     for i:=1 to 7 do begin
         e:=random;
         c:=0; q:=0;
         repeat
               c:=c+1;
               q:=q+p[c];
         until q>=e;
         h[i]:=e;
         k[i]:=x[c];
     end;
     write('„ЁбЄа. б«. зЁб«®: ');
     for i:=1 to 5 do
         write(x[i]:4,'  ');
     writeln;
     write('€бе. ўҐа-вЁ:      ');
     for i:=1 to 5 do
         write(p[i]:3:2,'  ');
     writeln;
     writeln;
     write('ЌҐЇа. б«. зЁб«® (e):  ');
     for i:=1 to 7 do
         write(h[i]:3:2,' ');
     writeln;
     write('„ЁбЄа. б«. зЁб«® (е): ');
     for i:=1 to 7 do
         write(k[i]:3:2,' ');
     readln;
end.