hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Pseudo-hasard
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Mon 26 Jul - 11:38 (2010)    Post subject: Pseudo-hasard Reply with quote

Dans ce programme exemple22 (programme Chance typique des calculettes), on a génération d'un nombre aléatoire compris entre 0 et une borne max définie comme constante dans la partie délarative du programme, ici, on prendra la valeur 100. Le programme saisie un nombre entré par l'utilisateur, effectue un test et donne la valeur true à une variable boolean nommée test si le nombre du joueur est correct, sinon, affiche les messages d'erreurs correspondants. Le programme fonctionne à l'aide d'une boucle conditionnelle Repeat...Until.

Syntaxe : Randomize ;
On peut générer un nombre réel aléatoire compris entre 0 et 1 grace à la fonction Random.
Syntaxe :   
X := Random ;
On peut générer un nombre entier aléatoire compris entre 0 et Y-1 grace à la fonction Random(Y).
Syntaxe :   
X := Random(Y) ;

Program exemple22;
Uses crt ;
Const max = 100 ;
Var test : Boolean ;
    x, y : Integer ;
BEGIN
ClrScr ;
Randomize ;
y := Random(max) ;
Repeat
Write('Entrez un nombre : ') ;
ReadLn(x) ;
test := (x=y) ;
If test Then WriteLn('Ok, en plein dans le mille.')
        Else If x>y Then WriteLn('Trop grand.')
                    Else writeln('Trop petit.') ;
Until test ;
ReadLn ;
END.


 
Revenir en haut
Publicité






Posted: Mon 26 Jul - 11:38 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
r.nsiri
recent membre
recent membre

Offline

Joined: 09 Jan 2009
Posts: 231
Masculin
Point(s): 273
Moyenne de points: 0

Posted: Mon 2 Aug - 09:23 (2010)    Post subject: Pseudo-hasard Reply with quote

merci bien
_________________
Cordialement


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Sun 26 Dec - 20:58 (2010)    Post subject: Pseudo-hasard Reply with quote

Okay

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation