procedure TFPoisson.btnCalculClick(Sender: TObject); var i: Integer; // <- Variable locale begin val(edNombre.Text, nombre, code1); val(edProbabiliteessai.Text, probabiliteessai, code2); val(edPrecision.Text, precision, codeP); if ((code1<>0) or (edNombre.Text='')) then begin ShowMessage('Veuillez rentrer un nombre d''essai.'); edNombre.Text:=''; edNombre.SetFocus; end; if ((code2<>0) or (edProbabiliteessai.Text='')) then begin ShowMessage('Veuillez rentrer une valeur pour la probabilité de l''essai.'); edProbabiliteessai.Text:=''; edProbabiliteessai.SetFocus; end; if ((codeP<>0) or (edPrecision.Text='')) then begin ShowMessage('Veuillez renseigner un chiffre pour la précision.'); edPrecision.Text:=''; edPrecision.SetFocus; end; if ((precision<0) or (precision>9)) then begin ShowMessage('La précision doit être comprise entre 0 et 9'); edPrecision.Text:=''; edPrecision.SetFocus; end; if (code1+code2+codeP=0) then begin if nombre<11 then for i:=0 to Round(nombre) do begin if i=1 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat1.Caption:='P(X=1)='+FloatToStr(probabilite); end else lbResultat1.Caption:=''; //end; <- supprime tous les "end" qui ne correspondent à aucun "begin" !!!!! if i=2 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat2.Caption:='P(X=2)='+FloatToStr(probabilite); end else lbResultat2.Caption:=''; //end; if i=3 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat3.Caption:='P(X=3)='+FloatToStr(probabilite); end else lbResultat3.Caption:=''; //end; if i=4 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat4.Caption:='P(X=4)='+FloatToStr(probabilite); end else lbResultat4.Caption:=''; //end; if i=5 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat5.Caption:='P(X=5)='+FloatToStr(probabilite); end else lbResultat5.Caption:=''; //end; if i=6 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat6.Caption:='P(X=6)='+FloatToStr(probabilite); end else lbResultat6.Caption:=''; //end; if i=7 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat7.Caption:='P(X=7)='+FloatToStr(probabilite); end else lbResultat7.Caption:=''; //end; if i=8 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat8.Caption:='P(X=8)='+FloatToStr(probabilite); end else lbResultat8.Caption:=''; //end; if i=9 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat9.Caption:='P(X=9)='+FloatToStr(probabilite); end else lbResultat9.Caption:=''; //end; if i=10 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultat10.Caption:='P(X=10)='+FloatToStr(probabilite); end else lbResultat10.Caption:=''; //end; end; if nombre>11 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultatSup.Caption:='P(X='+FloatToStr(nombre)+')='+FloatToStr(probabilite); end else lbResultatSup.Caption:=''; //end; end
end; end; // <----- celui-ci !!!!! if nombre>11 then begin probabilite := (power(probabiliteessai,nombre)*exp(-probabiliteessai))/(nombre); lbResultatSup.Caption:=FloatToStr(probabilite); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question