1-
ALGO: Nombre impair _ pair
VAR Nbr: entier
DÉBUT
Afficher (" entrer un nombre");
Saisir Nbr;
Si mod (Nbr=0 ) alors
Afficher("pair");
Si non
Afficher ("impair")
Fin Si
Fin
2-
ALGO: Nombre
VAR Nbr ,max : Réel
i=entier
DÉBUT
i <- 1
RÉPÉTER
Afficher ("Entrer les nombres");
Saisir (Nbr);
Si i=1 alors
max <- Nbr
SINON
Si Nbr > max alors
Max <-Nbr
FIN SI
FIN SI
Afficher (" Le plus grand nombre est max ")
FIN
3-
ALGO : Somme
VAR Nbre ,S: RÉEL
i : ENTIER
Début
i <- 0
S <- 0
Tant que ( i < Nbr ) Faire ;
AFFICHER ("Entrer un nombre") ;
SAISIR (Nbr );
i <- i+1
S <- S+ Nbr
FIN Tant que
AFFICHER ("La somme est", S ) ;
FIN
4-
ALGO : Nombre
VAR Nbr, i : ENTIER
i <- 0
DÉBUT
Répeter Répéter
Afficher (" Entrer un nombre entier positif")
Saisir (Nbr );
Jusqu'à ( Nbr >0)
Afficher (i)
i <- i+1
Jusqu'à (i=Nbr +1 )
FIN
5-
ALGO :Note
Var :i, Nbr : Entier
DÉBUT
AFFICHER ("Entrer un nombre compris entre 0 et 20 ");
Saisir (Nbr) ;
Tant que ( Nbr<0 et Nbr > 20 ) Faire Afficher (" Erreur,entrer un nombre compris entre 0 et 20");
Saisir (Nbr);
Fin Tant que
Tant que (Nbr > 0 ou Nbr < 20 ), Faire Afficher (" la note est validé ");
Fin Tant que
FIN
6-
ALGO: Devinette
VAR Nbr : Entier
DEBUT
AFFICHER ("Entrer un nombre secret entre 1 et 20");
Saisir(nbr);
TANT QUE ( Nbr <1 ou Nbr >20) Faire
AFFICHER ("Erreur, Veuillez saisir un nombre secret entre 1 et 20");
Saisir (Nbr) ;
FINTANQUE
TANQUE (Nbr >1 ou Nbr < 20) FAIRE
AFFICHER ( " Le nombre secret est ", Nbr);
FINTANTQUE
FIN
7-
ALGO: