طلب اخواتي لو سمحتم عاجل وأكيد

الموضوع في 'لغات البرمجة' بواسطة Waelboumaiza, بتاريخ ‏1 جوان 2007.

حالة الموضوع:
مغلق
  1. Waelboumaiza

    Waelboumaiza نجم المنتدى

    إنضم إلينا في:
    ‏19 جوان 2006
    المشاركات:
    2.225
    الإعجابات المتلقاة:
    1.565
      01-06-2007 19:47
    :besmellah1:

    :ahlan:
    طلب اخواتي لو سمحتم عاجل وأكيد
    ممكن 2 من البرامج بالباسكال
    ex1: Fusion de 2 Tableaux
    ex2 : union de 2 Tableaux
    شكرا للجميع و أرجوا الشرح ان أمكن

     
  2. chaker171089

    chaker171089 عضو فعال

    إنضم إلينا في:
    ‏29 سبتمبر 2006
    المشاركات:
    313
    الإعجابات المتلقاة:
    9
      01-06-2007 21:54
    pour le premier explique un peu et donne un exemple pour le deuxième t'as besoin d'une fonction existe :
    كود (text):
    function existe(T:TTab;n:integer;v:integer):boolean;
    var i:integer;
    begin
    i:=0;
    repeat
    inc(i);
    until (T[i]=v) OR (i>=n);
    existe := T[i] = v;
    end;
     
    puis voici la procedure union :
    كود (text):

    procedure untion(T1,T2:TTab;var T3:TTab;n1,n2:integer;var n3);
    var i:integer;
    begin
    n3:=0;
    for i:=1 to n1 do
    if not existe(T2,n2,T1[i]) then
    begin
    inc(n3);
    T3[n3]:=T1[i];
    end;

    for i:=1 to n2 do
    if not existe(T1,n1,T2[i]) then begin
    inc(n3);
    T3[n3]:=T2[i];
    end;
    end;
     
    voilà c'est l'union, il reste la fusion, donne moi un exemple de deux tableaux pour mieux comprendre
     
  3. Waelboumaiza

    Waelboumaiza نجم المنتدى

    إنضم إلينا في:
    ‏19 جوان 2006
    المشاركات:
    2.225
    الإعجابات المتلقاة:
    1.565
      02-06-2007 13:31
    شكرا أخي الغالي ليس هذا مأبحث عنه و على العموم خالص خلص الامتحان و ألف شكر .
     
  4. programmeur

    programmeur كبار الشخصيات

    إنضم إلينا في:
    ‏21 ماي 2006
    المشاركات:
    2.831
    الإعجابات المتلقاة:
    332
      02-06-2007 22:37
    slt mon ami

    je sui desoler pour le retard
    explique le principe de ce ke tu veux et tu l'aura enchalah
     
جاري تحميل الصفحة...
مواضيع مشابهة التاريخ
Kmz dans windev طلب ‏12 أكتوبر 2017
طلب حول برنامج الوينديف 20 L'EXECUTABLE ‏9 نوفمبر 2017
طلب مساعدة ‏14 مارس 2017
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...