Exercice 2 Procédures et Fonctions Corrigé
- Ecrire une AP Carre vérifiant si un nombre entier naturel est un carré parfait, en utilisant seulement les opérateurs de base, et renvoie sa racine dans le cas favorable. (Indication : X est un carré parfait s’il existe un entier i tel que X = i * i.)
- Ecrire un algorithme qui, parmi N entiers naturels, calcul la somme et le produit des racines carrées des entiers carrés parfaits. Ensuite il vérifie si la somme et le produit sont des carrés parfaits.
1- Procedure Carre(E/ A:entier ; S/ CP ::booleen; S/ RC:entier ) ;
Var I:entier ;
Debut
CP← Faux ; I ← 0 ;
Tantque (I<= A div 2)et(Non CP)
Faire Si A=I*I Alors CP← Vrai ; RC ← I Fsi ;
Fait ;
Fin ;
2- Algorithme Calcul ;
Var I,N,S,P,X,Rac :entier ; CParfiat:boolen;
Procedure Carre(E/ A:entier ; S/ CP ::booleen; S/ RC:entier ) ;
/ on reprend la déclaration de la procédure
- - - - -
Debut
Ecrire(‘Donner le nombre d’’élements N’) ;
Repeter Lire(N) Jusqu’à N>0 ; S← 0 ; P ← 1 ;
Pour I ← 1 à N
Faire Lire(X) ; Carre(X,Cparfait,Rac) ;
Si CParfait Alotrs
S← S+Rac ; P← P*Rac
Fsi ;
Fait ;
Carre(S,Cparfait,Rac) ;
Si CParfait Alors Ecrire(‘La somme S=’,S,’ est un carré parfait’) Fsi ; Carre(P,Cparfait,Rac) ;
Si CParfait Alors Ecrire(‘Le produit=’,P,’ est un carré parfait’) Fsi ;
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.