Simulation en turbo-pascal by yqs46995

VIEWS: 32 PAGES: 1

									                                 Simulation en turbo-pascal
   Lancer de d´ ` 6 faces ´quilibr´ :
              ea          e       e                     Simulation d’une loi g´om´trique : G(p)
                                                                              e   e
lancer := random(6)+1 ;                              PROGRAM geometrique ;
                                                     VAR i,lancer,rang :INTEGER ; p :REAL ;
                  e e         e
   Lancer d’une pi`ce ´quilibr´e :                   BEGIN
lancer := random(2) ;                                randomize ;
                                                                              e
                                                     writeln(’Entrer le param`tre p’) ; readln(p) ;
                      e        e
    Lancer d’une pi`ce non ´quilibr´e :  e           rang :=0 ;
       e
on repr´sente (par exemple) face par 1, pile par 0   REPEAT rang :=rang +1 ;
et p=P(’obtenir face’)                               UNTIL random<p ;
if random <p then lancer :=1 else lancer :=0 ;       writeln(rang) ;
                                                     END.
   Simulation d’une loi binomiale : B(n, p)
PROGRAM binomiale ;                                  ou sans FUNCTION
VAR i,n,nbface :INTEGER ; p :REAL ;
FUNCTION piece :integer ;                            PROGRAM binomiale ;
BEGIN                                                VAR i,n,nbface :INTEGER ;
IF random<p THEN piece :=1 ELSE piece :=0 ;              p :REAL ;
END ;
BEGIN
randomize ;                                          BEGIN
writeln(’Entrer le param`tre n’) ;readln(n) ;
                         e                           randomize ;
                                                                             e
                                                     writeln(’Entrer le param`tre n’) ;readln(n) ;
                         e
writeln(’Entrer le param`tre p’) ;readln(p) ;
                                                                             e
                                                     writeln(’Entrer le param`tre p’) ;readln(p) ;
nbface :=0 ;
FOR i :=1 TO n DO                                    nbface :=0 ;
IF piece=1 THEN nbface :=nbface+1 ;                  FOR i :=1 TO n DO
     { ou nbface :=nbface + piece ;}                 IF random < p THEN nbface := nbface +1 ;
writeln(nbface) ;                                    writeln(nbface) ;
                                                     END.
END.




                                 Simulation en turbo-pascal
   Lancer de d´ ` 6 faces ´quilibr´ :
              ea          e       e                     Simulation d’une loi g´om´trique : G(p)
                                                                              e   e
lancer := random(6)+1 ;                              PROGRAM geometrique ;
                                                     VAR i,lancer,rang :INTEGER ; p :REAL ;
                  e e         e
   Lancer d’une pi`ce ´quilibr´e :                   BEGIN
lancer := random(2) ;                                randomize ;
                                                                              e
                                                     writeln(’Entrer le param`tre p’) ; readln(p) ;
                      e        e
    Lancer d’une pi`ce non ´quilibr´e :  e           rang :=0 ;
       e
on repr´sente (par exemple) face par 1, pile par 0   REPEAT rang :=rang +1 ;
et p=P(’obtenir face’)                               UNTIL random<p ;
if random <p then lancer :=1 else lancer :=0 ;       writeln(rang) ;
                                                     END.
   Simulation d’une loi binomiale : B(n, p)
PROGRAM binomiale ;                                  ou sans FUNCTION
VAR i,n,nbface :INTEGER ; p :REAL ;
FUNCTION piece :integer ;                            PROGRAM binomiale ;
BEGIN                                                VAR i,n,nbface :INTEGER ;
IF random<p THEN piece :=1 ELSE piece :=0 ;              p :REAL ;
END ;
BEGIN
randomize ;                                          BEGIN
                                                     randomize ;
                        e
writeln(’Entrer le param`tre n’) ;readln(n) ;
                                                                             e
                                                     writeln(’Entrer le param`tre n’) ;readln(n) ;
                        e
writeln(’Entrer le param`tre p’) ;readln(p) ;
nbface :=0 ;                                                                 e
                                                     writeln(’Entrer le param`tre p’) ;readln(p) ;
FOR i :=1 TO n DO                                    nbface :=0 ;
IF piece=1 THEN nbface :=nbface+1 ;                  FOR i :=1 TO n DO
     { ou nbface :=nbface +piece ;}                  IF random < p THEN nbface := nbface +1 ;
                                                     writeln(nbface) ;
writeln(nbface) ;
                                                     END.
END.

								
To top