لو لم أكن معموري لتمنيت أن أكون معموري
 
الرئيسيةالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 {********Remplissage d’un tableau- Récursif********}

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

avatar

عدد الرسائل : 155
العمر : 30
الوصف الشخصى : sqw
تعيين الادارة :
تاريخ التسجيل : 29/10/2008

مُساهمةموضوع: {********Remplissage d’un tableau- Récursif********}   الجمعة 28 نوفمبر - 1:29

{********Remplissage d’un tableau- Récursif********}
procedure saisie_tab(var v:tab; d,x:integer);
begin
if(d<=x) then
begin
read(v[d]);
saisie_tab(v,d+1,x)
end;
end;
{**************Affichage d’un tableau- Récursif***********}
procedure affich (v:tab ; d,x: integer);
begin
if(d<=x) then
begin
write(v[d], ' ');
affich(v,d+1,x)
end;
end;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
mohamedhk2



عدد الرسائل : 103
العمر : 29
الوصف الشخصى : maamouri 7or
تعيين الادارة :
تاريخ التسجيل : 18/11/2008

مُساهمةموضوع: رد: {********Remplissage d’un tableau- Récursif********}   السبت 29 نوفمبر - 23:21

MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIII
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://3w.sartimes2.com#3w.tunisia-sat.com
 
{********Remplissage d’un tableau- Récursif********}
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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