Algorithme Calcul_Aire_Perimetre_Carre_Rectangle_Cercle
{
        variable lc, Pca, Sca, Lr, lr, Pr, Sr, r, Pce, Sce  : reel
       
         constante reel PI <-- 3.1416 
        
        Afficher("Cet algorithme calcule l'aire et le périmetre d'un carre, d'un rectangle et d'un cercle.\n")
        Afficher("Veuillez saisir la longueur du cote du carre : ")
        Saisir(lc)
                
        Afficher("Veuillez saisir la longueur du rectangle : ")
        Saisir(Lr)
        Afficher("Veuillez saisir la largeur du rectangle : ")
        Saisir(lr)

        Afficher("Veuillez saisir la longueur du rayon du cercle : ")
        Saisir(r)

        Pca <-- 4*lc
        Sca <-- lc*lc
        
        Pr <-- 2*Lr+2*lr
        Sr <-- Lr*lr
        
        Pce <-- 2*PI*r
        Sce <-- PI*r*r
        
        Afficher("L'aire et le perimetre d'un carre sont respectivement", Sca, " et ", Pca,".\n")
        Afficher("L'aire et le perimetre d'un rectangle sont respectivement", Sr, " et ", Pr,".\n")
        Afficher("L'aire et le perimetre d'un cercle sont respectivement", Sce, " et ", Pce,".\n")
}