Построить доверительный интеграл

[ИвановБ]

Сообщение от type_Oleg

const
T_LAPLACE=2.576; // t для доверительной вероятности 0.99
var dp:Double;
function fDp(t,w:Double;n:Integer):Double; // упрощенная формула, для больших n
begin
fDp:=t*Sqrt(w*(1-w)/n);
end;

Никак не выходит добавить правильно.

[type_Oleg]

Держите, аттракцион невиданной щедрости.

program Prop;

var p1,p2,p3,dp,w,pMin,pMax:double;
    i,n,hits:integer;
    hit1,hit2:boolean;
const
 T_LAPLACE=2.576; //
 
function fDp(t,w:Double;n:Integer):Double; // 
begin
 fDp:=t*Sqrt(w*(1-w)/n);
end;
      
begin
 Randomize;
 write('p1 p2 p3 = :');
 read(p1,p2,p3);
 write('n = :');
 read(n);    
 hits:=0;
 for i:=1 to n do
  begin
   if Random>p1 then Continue;     // не  вышел  в такое положение - до свидания 
   hit1:=(Random<p2)and(Random<p3); // попала 1-я ракета
   hit2:=(Random<p2)and(Random<p3); // попала 2-я ракета
   if hit1 or hit2 then Inc(hits);
  end;
 w:=hits/n;
 Writeln('P=',w:6:4);
 dp:=fDp(T_LAPLACE,w,n);
 pMin:=w-dp;
 if pMin<0 then pMin:=0;
 pMax:=w+dp;
 if pMax>1 then pMax:=1;
 WriteLn('int: ',pMin:6:4,' .. ',pMax:6:4);
 ReadLn;
end.

вероятность я тогда неправильно посчитал, условия не разглядел.
На самом деле P=p1*(1-(1-p2*p3)^2)

[ИвановБ]

Если "аттракцион" еще в силе, такая просьба не могли бы нарисовать алгоритм (блок-схему) к вашей программке?

Моя то уже не подходит.) И спасибо за помощь !!!

[type_Oleg]

Ну это уж сами. Элементарно же.

[ИвановБ]

Да все нарисовал, спасибо за помощь!!!