مرحبا بكم في منتديات المهدية yoo7

مرحبا بكم في منتديات المهدية yoo7


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

شاطر | 
 

 exercice récrussive

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
moriss
المشرف العام للمنتدى
المشرف العام للمنتدى
avatar

عدد الرسائل : 100
العمر : 32
تاريخ التسجيل : 27/02/2008

مُساهمةموضوع: exercice récrussive   الأربعاء مارس 05, 2008 3:21 pm

Exercice 1
Ecrire une procédure qui affiche les entiers par ordre décroissant, de n jusqu’à 1. Proposer une solution itérative et une autre récursive.










voici une procedure iterative de cette exercice
program ex1;
uses wincrt;
var
n,i:integer;
procedure ordre (var n:integer);
begin
readln (n);
for i:= n downto 1 do
writeln (i);
end;
begin
ordre(n);
end.







voila un procedure recursive de cette exercice mais je crois ilya une faute dans la procedure Wink procedure ordre (var n:integer);
begin
readln (n);
if n=1 then
writeln (n)
else
writeln (n);
ordre (n-1);
end;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
sofiane
المدير العام للمنتدى
المدير العام للمنتدى
avatar

عدد الرسائل : 376
العمر : 27
المدينة : Mahdia
الهواية : internet
المهنة : élève
تاريخ التسجيل : 26/02/2008

مُساهمةموضوع: رد: exercice récrussive   الأربعاء مارس 05, 2008 3:28 pm

hott lektiba fil milieu
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.mahdia.yoo7.com
 
exercice récrussive
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» Exemples d'exercices de sport pour femmes

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
مرحبا بكم في منتديات المهدية yoo7 :: Science informatique :: Programmation-
انتقل الى: