Доделать эту программу по блок схеме. На блок схеме продолжение. - Pascal ABC

Формулировка задачи:

Помогите пожалуйста доделать эту программу по блок схеме. На блок схеме продолжение.

const
m=5;
sigma=1;
lam=5;
var
y:array[1..100] of real;
aa,bb,R,summ:real;
i:byte;
begin
writeln('massiv Y');
for i:=1 to 100 do begin
                   summ:=0;
                   for J:=1 to 12 do begin
                                    R:=random(101)/100;
                                    summ:=summ+r;
                                    end;
                   aa:=m+sigma+summ;
                   summ:=0;
                   k:=0;
                   while summ<=1 do begin
                                   R:=random(100)/100;
                                   summ:=summ+(1/lam*ln(1-R));
                                   k:=k+1;
                                   end;
bb:=k-1;
Y[i]:=aa+bb;
write(y[i]:7:2);
end;

Решение задачи: «Доделать эту программу по блок схеме. На блок схеме продолжение.»

textual
                            Листинг программы 
                        

                            if y[i] < min then min:=y[i]
else if y[i] > max then max:=y[i];
 
h:=(max-min)/20;
write(min, max, h);
x1:=min;
x2:=x1+h;
 
for n:=1 to 20 do 
  for i:=1 to 100 do begin
    if (x1 <= y[i])  and (x2>= y[i]) then write('*');
    writeln;
    x1:=x1+h;
    x2:=x2+h;
end;
                        

Оцени полезность:

12 голосов , оценка 3.917 из 5

Похожие ответы