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

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


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

 

 exercice récrussive

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


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

exercice récrussive Empty
مُساهمةموضوع: exercice récrussive   exercice récrussive Emptyالأربعاء مارس 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
المدير العام للمنتدى
المدير العام للمنتدى
sofiane


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

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

hott lektiba fil milieu
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://www.mahdia.yoo7.com
 
exercice récrussive
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» Exercice:calcul chifre de chance

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