SeallerGhosT
Administrateur
Nombre de messages : 408
Date d'inscription : 19/10/2004
 |  Sujet: Quelques exemples  Lun 18 Avr - 18:08 | |
| Je vous montres un petit programme réalisé en pascal pour comprendre son fontionement. Ce programme est un petit jeu. L'utilisateur doit choisir un nombre entre 0 et 4, et pour gagner il faudra qu'il tombe sur la valeur choisit par le pc: - Code:
-
program jeudemo;
var a,S:integer;
begin
S:=1 or 2 or 3 or 4;
writeln ('Entrez un nombre compris entre 0 et 4');
readln (a);
if a=S
then writeln ('Bravo, vous avez gagné!')
else writeln ('Vous avez perdu !');
end. SeallerGhosT | |
|
