année bissextile

Aller en bas

année bissextile

Message  Admin le Lun 7 Mar - 0:38

ENONCE
Ecrire un programme qui détermine si une année donnée est bissextile ou non.
ANALYSE
Résultat = ANBIS
ANBIS= [ ] SI ANNEE MOD 4 = 0
ALORS
Ecrire (« l’année est bissextile »)
SINON
Ecrire (« l’année n’est pas bissextile »)
ANNEE = Donnée
Fin BISSEXTILE

ALGORITHME
0) Début BISSEXTILE
1) Ecrire (‘donnez l’année’)
Lire (ANNEE)
2) SI ANNEE MOD 4 = 0 ALORS
Ecrire (« l’année »,ANNEE, « est bissextile »)
SINON
Ecrire (« l’année »,ANNEE, « n’est
pas bissextile »)

3) Fin BISSEXTILE

PASCAL
PROGRAM BISSEXTILE;
USES Wincrt ;
VAR
ANNEE : integer ;
BEGIN
Write ('Donnez l année :') ; Readln(ANNEE) ;
IF ANNEE MOD 4 = 0 THEN
Writeln ('l année',ANNEE,' est bissextile')
ELSE
Writeln ('l année',ANNEE,' n"est pas bissextile');
END.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum