منتديات معمورة لوف --- forum maamoura love
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


لو لم أكن معموري لتمنيت أن أكون معموري
 
الرئيسيةأحدث الصورالتسجيلدخول

 

 PGCD_récrusive(bac informatique)

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
marouene

marouene


عدد الرسائل : 155
العمر : 35
الوصف الشخصى : sqw
تعيين الادارة : PGCD_récrusive(bac informatique) Nachit10
تاريخ التسجيل : 29/10/2008

PGCD_récrusive(bac informatique) Empty
مُساهمةموضوع: PGCD_récrusive(bac informatique)   PGCD_récrusive(bac informatique) I_icon_minitimeالسبت 1 نوفمبر - 1:06

L’énoncé :
Soit B une boite en forme de pavé droit de hauteur L. à base rectangle de longueur lo et largeur la, ou lo,la et L sont des entiers naturels non nuls tels que laOn veut remplir la boite B avec des cubes tous identiques dont l’arête a est un entier naturel non nul (Les cubes devant remplir complètement la boite B sans laisser l’espace vide)
Question1 :
Ecrire un programme qui permet de déterminer la plus grand valeur possible pour a

NB : Utiliser la formulation récursive pour résoudre ce problème
Solution :


Nom : pgcd_récursive
S L.D.E OU
2

1


3

Résultat : écrire (‘’la plus grand valeur possible de a est :’’, fn pgcd(lo,fn pgcd(la,l))
(lo, la, l)= [] répéter
lo=données ("donner la longueur de base : ")
la = données (" donner la largeur de base : ")
l = données (" donner l’hauteur de boite : ")
jusqu’ a (lo>la) et ( lo>l)
fin pgcd_récursive Pgcd
Lo
La
L




Objet Type / Nature
Pgcd
Lo, la, l Fonction
entier
debut pgcd_récursive
1) répéter
Écrire ("donner la longueur de base : ") lire (lo)
Écrire (" donner la largeur de base : ") lire (la)
Ecrire (" donner l’hauteur de boite : ") lire(l)
jusqu’ à (lo>la) et ( lo>l)
2) écrire (‘’la plus grand valeur possible de a est :’’, fn pgcd (lo,fn pgcd(la,l))
3) fin pgcd_récursive







Deffn pgcd(x,y :entier) :entier
S L.D.E OU
1




2

Résultat : pgcd
Pgcd= [] si x=y alors pgcdßx
Sinon si x>y alors pgcdß pgcd(x-y, y)
Sinon pgcdß pgcd(x,y-x)
Fin si

Fin pgcd



début deffn pgcd(x,y :entier) :enter
si x=y alors pgcdß x
si non si x>y alors pgcdß pgcd(x-y,y)
Sinon pgcdß pgcd(x,y-x)
Fin si
2) fin pgcd
الرجوع الى أعلى الصفحة اذهب الى الأسفل
mohamedhk2




عدد الرسائل : 103
العمر : 35
الوصف الشخصى : maamouri 7or
تعيين الادارة : PGCD_récrusive(bac informatique) Nachit10
تاريخ التسجيل : 18/11/2008

PGCD_récrusive(bac informatique) Empty
مُساهمةموضوع: رد: PGCD_récrusive(bac informatique)   PGCD_récrusive(bac informatique) I_icon_minitimeالأربعاء 26 نوفمبر - 23:55

MERCIIIIIIIIIIIIIIIIIIII
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://3w.sartimes2.com#3w.tunisia-sat.com
 
PGCD_récrusive(bac informatique)
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» TIC(1ere chapitre)bac informatique
» chapitre 2 TIC (bac informatique)
» (EXERCICE ENREGISTREMENT (BAC INFORMATIQUE°
» base de donnee1.1 bac informatique
» base de donnee1.2 bac informatique

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات معمورة لوف --- forum maamoura love :: الأقسام العامة :: Special BAC 2008/2009-
انتقل الى: