zedson

rem PROGRAMME DESTINE A CALCULER LES SURFACES
rem Programme écrit par Frère Roger Zadi
rem ++++ PROGRAMME PRINCIPAL DEVANT APPELER DES SOUS-PROGRAMMES

Debut:
cls

CHOIX as integer    rem déclaration de la variable et de son type
rem ON CREE LE MENU QUI AIDE L'UTILISATEUR DU PROGRAMME
rem ------- MENU PRINCIPAL  ---------------------------
print "CALCUL DE SURFACES"
print "Calculer la surface soit d'un rectangle, soit d'un carré, soit d'un triangle."
print "Pour un Rectangle, tapez 1:"
print "Pour un Carré, tapez 2 "
print "Pour un Triangle, tapez 3"
rem ----- FIN DU MENU ---------------------------------
print                                rem on saute une ligne sur l'écran
print "Quelle figure ? ";            rem ce texte s'affiche à l'écran
input CHOIX                          rem l'ordinateur attend qu'on tape  un chiffre
IF CHOIX = 1                         rem si on tape 1, on va au sous-programme Rectangle
   gosub Rectangle                   rem appel du sous-programme Rectangle

ELSE                                 rem Sinon
   IF CHOIX = 2                      rem si on tape 2
      gosub Carre                    rem appel du sous-programme Carre

ELSE                                 rem Sinon
   IF CHOIX = 3                      rem si on tape 3
      gosub Triangle                 rem appel du sous-programme Triangle

ELSE                                 rem Si on tape tout autre chiffre, on a une erreur
      gosub Erreur                   rem appel du sous-programme Erreur
ENDIF                                rem comme il y a trois IF, il y a trois ENDIF
ENDIF
ENDIF
goto Continuer                      rem appel du sous-programme Continuer
rem +++++++++++  FIN DU PROGRAMME PRINCIPAL
rem ------------------------------------------------------------

rem DEBUT DES SOUS-PROGRAMMES APPELES PAR LE PROGRAMME PRINCIPAL
rem ------------------------------------------------------------

rem Sous-Programme traitant du Rectangle
Rectangle:
cls
rem déclaration de variables et de leur type (float = réel ou décimal)
Lon as float
Lar as float
Surf as float
print "CALCUL DE LA SURFACE D'UN RECTANGLE"
print "Longueur : ";
input Lon
print "Largeur : ";
input Lar
IF Lon <= Lar
   print "Erreur... ! La longueur doit être supérieure à la largeur ! "
   wait key
   goto Rectangle
else
   Surf = Lon * Lar
   print "La surface du rectangle est : "; Surf
endif
wait key
return rem Fin du sous-programme Rectangle
rem ------------------------------------------------------

rem Sous-Programme traitant du Carré
Carre:
cls
rem déclaration de variables et de leur type (float = réel ou décimal)
C as float
Surf as float
print "CALCUL DE LA SURFACE D'UN CARRE"
print "Côté: ";
input C
Surf = C * C
print "La surface du Carré est : "; Surf
wait key
return rem Fin du sous-programme Carré
rem -------------------------------------------------------

rem Sous-Programme traitant du triangle
Triangle:
cls
rem déclaration de variables et de leur type (float = réel ou décimal)
B as float
H as float
Surf as float
print "CALCUL DE LA SURFACE D'UN TRIANGLE"
print "Base: ";
input B
print "Hauteur : ";
input H
Surf = (B * H)/2
print "La surface du Triangle est : "; Surf
wait key
return rem Fin du sous-programme Triangle
rem ------------------------------------------------------

rem sous-programme pour capturer les erreurs
Erreur:
print "ERREUR....!"
print "Veuillez saisir entre 1 et 3 ! "
wait key
return rem Fin sous-programme Erreur
rem -----------------------------------------------------

rem sous-Programme permettant de continuer ou non
Continuer:
rem déclaration de variables et de leur type
Rep as integer
print
print "Voulez-vous continuer ? (1 pour continuer) ";
input Rep
IF Rep = 1
   goto Debut      rem Si on tape 1 on recommence au début sinon on  va à la FIN
ENDIF
print
print "FIN ... MERCI ET A BIENTOT !"
wait key
END