Algorithme Calcul_Aire_Perimetre_Carre_Rectangle_Cercle
{
        variable lc, Pca, Sca, Lr, lr, Pr, Sr, r, Pce, Sce  : reel
                 choix : entier
       
         constante reel PI <-- 3.1416 
        
        Afficher("Cet algorithme calcule l'aire et le périmetre d'un carre ou d'un rectangle ou d'un cercle.\n")
        
        Afficher("Si vous voulez calculer l'aire et le périmètre pour :\n" 
        Afficher("un carré, tapez 1.\n")
        Afficher("un cercle, tapez 2.\n")
        Afficher("un rectangle, tapez 3.\n")
        saisir(choix)
        
        Selon (choix)
        {
                1 : 
                                        
                        Afficher("Veuillez saisir la longueur du cote du carre : ")
                        Saisir(lc)
                        Pca <-- 4*lc
                        Sca <-- lc*lc
                        Afficher("L'aire et le perimetre d'un carre sont respectivement", Sca, " et ", Pca,".\n")

                      
                2 :
                        Afficher("Veuillez saisir la longueur du rayon du cercle : ")
                        Saisir(r)
                        Pce <-- 2*PI*r
                        Sce <-- PI*r*r
                        Afficher("L'aire et le perimetre d'un cercle sont respectivement", Sce, " et ", Pce,".\n")


                3 : 
                        Afficher("Veuillez saisir la longueur du rectangle : ")
                        Saisir(Lr)
                        Afficher("Veuillez saisir la largeur du rectangle : ")
                        Saisir(lr)
        
                        Pr <-- 2*Lr+2*lr
                        Sr <-- Lr*lr
                        Afficher("L'aire et le perimetre d'un rectangle sont respectivement", Sr, " et ", Pr,".\n")
                sinon : Afficher("Vous vous êtes trompé.\n")
        }
}