Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 4

program devine;
var
c, x, m, coup: integer;

begin
GetDateTime(UInt32(qd.randSeed));
{ Uniquement sur Mac, pour ne pas avoir le meme nombre aléatoire a chaque fois. }
writeln('Devinette par: http://www.Software-DS.com');
writeln;
c := Random;
coup := 0;

repeat
writeln('Votre nombre ? ');
readln(x);
coup := coup + 1;
if x > c then
writeln('Trop grand !')
else if x < c then
writeln('Trop petit !');
until x = c;

writeln('Bravo, vous avez gagnez en ', coup : 0, ' coups');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 02/10/01 }
end.





Haut de la page - Page précédente - Page générée en 0.00213 sec.
Recherche personnalisée
 

1845018 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité