الإعــلام الآلي والرياضيــات يشتمل على جميع مبادئ الإعلام الآلي والرياضيــات

قديم 11-05-2009, 05:41 PM
  #1
mimik
 الصورة الرمزية mimik
 
La spécialité: Autres
جامعة عبد الحق بن حمودة جيجل
تاريخ التسجيل: 12-05-2008
الدولة: الجزائر
المشاركات: 1,609
mimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداع
افتراضي تمارين محلولة في


Écrire la fonction factorielle exo1
let rec factorielle n = if n = 0 then 1 else n * factorielle(n-1);;factorielle : int -> int = <fun>factorielle 4;;- : int = 24
Exo2Définir une fonction calculant le produit de deux nombres suivant la méthode de la multiplication dite égyptienne.
let rec multiplication_egyptienne p q = if p = 0 then 0 else if (p mod 2) = 0 then multiplication_egyptienne (p/2) (2*q) else q + multiplication_egyptienne (p-1) q;;multiplication_egyptienne : int -> int -> int = <fun>multiplication_egyptienne 3 4;;- : int = 12multiplication_egyptienne 4 3;;- : int = 12
Exo3Définir une fonction calculant la puissance entière d'un entier selon le même principe que la multiplication égyptienne.
let rec puissance_egyptienne p q = if q = 0 then 1 else if q mod 2 = 0 then let r = puissance_egyptienne p (q/2) in r * r else p * puissance_egyptienne p (q-1);;puissance_egyptienne : int -> int -> int = <fun>puissance_egyptienne 4 5;;- : int = 1024puissance_egyptienne 5 4;;- : int = 625
exo2Définissez une fonction calculant le pgcd de deux nombres entiers.
let rec pgcd n m = if n > m then pgcd m n else if n = 0 then m else let p = m / n and r = m mod n in pgcd r n;;pgcd : int -> int -> int = <fun>pgcd 3 12;;- : int = 3Définir une fonction calculant le ppcm. On plet ppcm n m = (n*m)/(pgcd n m);;ppcm : int -> int -> int = <fun>ppcm 4 10;;- : int = 20


exo 6 Calculez les nombres de Catalan. On rappelle que: Catalan(0) = 1, Catalan(1) = 1, Catalan(n) = somme de Catalan(p)*Catalan(q) pour tout p+q = n-1. Voici les premiers nombres de
, 16796 Catalan: 1, 1, 2, 5, 14, 42, 132, 429, 1430, 486
let rec somme f = function 0 -> f(0)| n -> f(n) + somme f (n-1);;somme : (int -> int) -> int -> int = <fun>let rec catalan = function 0 -> 1| 1 -> 1| n -> let f p = catalan p * catalan (n-1-p) in somme f (n-1);;catalan : int -> int = <fun>

exo 7
Calculez les coefficients du binôme par la méthode récursive simple: Cnp = Cn-1p + Cn-1p-1
let rec nombre_de_pascal n p =
if p = 0 or p = n then 1
else nombre_de_pascal (n-1) (p-1) + nombre_de_pascal (n-1) p;;
nombre_de_pascal : int -> int -> int = <fun>
for i = 0 to 10 do
for j = 0 to i do
print_int (nombre_de_pascal i j);
print_string " "
done;
print_newline ()
done;;



__________________


التعديل الأخير تم بواسطة mimik ; 11-05-2009 الساعة 05:46 PM سبب آخر: خطا
mimik غير متواجد حالياً  
قديم 12-05-2009, 12:57 PM
  #2
GNX
 الصورة الرمزية GNX
 
تاريخ التسجيل: 05-05-2009
المشاركات: 37
GNX
افتراضي

شكرا لك و جزاك الله خيرا
GNX غير متواجد حالياً  
قديم 12-05-2009, 06:46 PM
  #3
mimik
 الصورة الرمزية mimik
 
La spécialité: Autres
جامعة عبد الحق بن حمودة جيجل
تاريخ التسجيل: 12-05-2008
الدولة: الجزائر
المشاركات: 1,609
mimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداعmimik عضو محترف الابداع
افتراضي

شكرا على المرور
__________________

mimik غير متواجد حالياً  

الكلمات الدلالية (Tags)
محلولة, تمارين

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
تمارين محلولة في باسكال نرمين* منتدى الإعلام الآلي 3 01-10-2016 01:56 PM
تمارين محلولة في bd lila88 منتدى الإعلام الآلي 11 10-07-2012 03:51 PM
تمارين محلولة radhwane قسم الإستفسارات و الطّلبات 1 28-11-2009 06:50 PM
تمارين محلولة -تفضلوا- achraf.mouni الإعــلام الآلي والرياضيــات 5 23-03-2009 09:21 PM
تمارين محلولة في السي بلس بلس achraf.mouni برمجة بلغة c و c++ و c# 1 21-03-2009 04:42 PM


الساعة الآن 12:44 PM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir