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

قديم 25-12-2009, 12:46 PM
  #31
شذى الروح
مشرفة سابقة
 الصورة الرمزية شذى الروح
 
La spécialité: Autres
جامعة العربي التبسي تبسة
تاريخ التسجيل: 15-07-2008
الدولة: اتمنى ان تكون الجنة
المشاركات: 3,501
شذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

هذا برنامج في الباسكال مهمته le tri d'un liste ou tableau a l'aide de tas
كود:
 uses wincrt;
        const Max = 100;
        type tab= array[1..Max] of integer;
 
        procedure Fill(var T : tab; n : integer);
        var i : integer;
        begin
        randomize;
                  for i:=1 to n do
                  t[i] := random(n);
        end;
 
        procedure Show(var T : tab; n : integer);
        var i : integer;
        begin
             for i:=1 to n do
             write(t[i],' ');
        writeln;
        end;
 
        procedure Permut(var x : integer; var y : integer);
        var inter : integer;
        begin
        inter := x;
        x := y;
        y := inter;
        end; 
 
        procedure TriTasCroissant(var t : tab; n : integer);
        var i , j , HeapSize : integer;
        begin
             for i:=1 to n do
             begin
             j := i;
             {la séquence t[1], ... t[i-1] est considéré comme un tas
             remonter t[i] dans sa bonne place ==> t[1],..t[i] }
                      while((j div 2> 0)and(t[j div 2] < t[j]))do
                      begin
                      Permut(t[j], t[j div 2]);
                      j := j div 2;
                      end;
             end;
             for i:=1 to n do
             begin
             HeapSize := n-i+1;
             Permut(t[1],t[HeapSize]);
             j := 1;
                    while( (2*j < HeapSize)and ( (t[2*j]  > t[j])or((2*j+1 < HeapSize)and(t[2*j+1] > t[j]))))do
                    begin
                         if((2*j+1 < HeapSize)and(t[2*j] < t[2*j+1]))then
                         begin
                         Permut(t[j],t[2*j+1]);
                         j := 2*j+1;
                         end
                         else
                         begin
                         Permut(t[j], t[2*j]);
                         j := 2*j;
                         end;
                    end;
             end;
    end;
 
    var t : tab;
 
    begin
    Fill(T,20);
    Show(T,20);
    TriTasCroissant(T,20);
    Show(T,20);
    end.


ارجوا من ذوي الاختصاص في الباسكال تحويله الى السي او الى الخوارزميات و سأقوم بشرحه لكم و شرح كيفية عمله و شرح ما هو le tas و كيف يعمل و ما عمل هذا البرنامج
__________________





°°if we say we do°°

التعديل الأخير تم بواسطة شذى الروح ; 25-12-2009 الساعة 01:01 PM
شذى الروح غير متواجد حالياً  
قديم 25-12-2009, 03:11 PM
  #32
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,337
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

اقتباس:
المشاركة الأصلية كتبت بواسطة شذى الروح مشاهدة المشاركة
هذا برنامج في الباسكال مهمته le tri d'un liste ou tableau a l'aide de tas
كود:
 uses wincrt;
        const Max = 100;
        type tab= array[1..Max] of integer;
 
        procedure Fill(var T : tab; n : integer);
        var i : integer;
        begin
        randomize;
                  for i:=1 to n do
                  t[i] := random(n);
        end;
 
        procedure Show(var T : tab; n : integer);
        var i : integer;
        begin
             for i:=1 to n do
             write(t[i],' ');
        writeln;
        end;
 
        procedure Permut(var x : integer; var y : integer);
        var inter : integer;
        begin
        inter := x;
        x := y;
        y := inter;
        end; 
 
        procedure TriTasCroissant(var t : tab; n : integer);
        var i , j , HeapSize : integer;
        begin
             for i:=1 to n do
             begin
             j := i;
             {la séquence t[1], ... t[i-1] est considéré comme un tas
             remonter t[i] dans sa bonne place ==> t[1],..t[i] }
                      while((j div 2> 0)and(t[j div 2] < t[j]))do
                      begin
                      Permut(t[j], t[j div 2]);
                      j := j div 2;
                      end;
             end;
             for i:=1 to n do
             begin
             HeapSize := n-i+1;
             Permut(t[1],t[HeapSize]);
             j := 1;
                    while( (2*j < HeapSize)and ( (t[2*j]  > t[j])or((2*j+1 < HeapSize)and(t[2*j+1] > t[j]))))do
                    begin
                         if((2*j+1 < HeapSize)and(t[2*j] < t[2*j+1]))then
                         begin
                         Permut(t[j],t[2*j+1]);
                         j := 2*j+1;
                         end
                         else
                         begin
                         Permut(t[j], t[2*j]);
                         j := 2*j;
                         end;
                    end;
             end;
    end;
 
    var t : tab;
 
    begin
    Fill(T,20);
    Show(T,20);
    TriTasCroissant(T,20);
    Show(T,20);
    end.


ارجوا من ذوي الاختصاص في الباسكال تحويله الى السي او الى الخوارزميات و سأقوم بشرحه لكم و شرح كيفية عمله و شرح ما هو le tas و كيف يعمل و ما عمل هذا البرنامج

وهذا تنفيذ البرنامج

اتمنى يكون الشرح وافي
على فكرة اول مرة اشرح برنامج
ليس من عادتي هههههههههههه
__________________
يوسف الضادي غير متواجد حالياً  
قديم 25-12-2009, 03:46 PM
  #33
شذى الروح
مشرفة سابقة
 الصورة الرمزية شذى الروح
 
La spécialité: Autres
جامعة العربي التبسي تبسة
تاريخ التسجيل: 15-07-2008
الدولة: اتمنى ان تكون الجنة
المشاركات: 3,501
شذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

شكرا لك يوسف على الشرح قبل ان اناقشك فيه اود ان اشرح ما هو المطلوب بالضبط من البرنامج

المطلوب هو ترتيب عناصر مضفوفة ما بواسطة شجرة arbre تسمى le tas


و موضوع les arbres من المفروض ان طلاب السنة الثانية اعلام آلي قد تطرقوا اليه لكن هذا لن يمنعني من وضع شرح للدرس

و سأركز على les arbres binaire


كي لا اعيد اليكم رابط الموضوع على موسوعة الويكيبيديا ادرسوه او راجعوا منه

http://fr.wikipedia.org/wiki/Arbre_binaire

هناك نوع من les arbres يسمى arbre de tas


و هو عبارة عن arbre بالاضافة الى خصائص اخرى تخص les elements

اول شئ يجب ان تكون عناصر هذه الشجرة من نفس النوع مثلا اعداد او حروف ...الخ حتى يسهل انشاء علاقات بينها

العلاقة في arbres de tas هي انو الابناء اكبر من الاب او الجذر
les fils sont plus que le pére ou bien le racine


و الآن سأكتب شرح لخطوات البرنامج بخط يدي كعادتي و هذا لضيق الوقت

كونوا في الانتظار


__________________





°°if we say we do°°
شذى الروح غير متواجد حالياً  
قديم 25-12-2009, 03:50 PM
  #34
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,337
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

اه الان فهمت المقصود من البرنامج ساعمل له مثال
و نرى طريقة الشجرة
__________________
يوسف الضادي غير متواجد حالياً  
قديم 25-12-2009, 04:26 PM
  #35
يوسف الضادي
VIP_MEMBRE
 الصورة الرمزية يوسف الضادي
 
La spécialité: Informatique
جامعة ابن خلدون تيارت
تاريخ التسجيل: 17-08-2008
الدولة: تيارت/الرحوية
المشاركات: 5,337
يوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداعيوسف الضادي عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

الصور المرفقة
نوع الملف: jpg ABCD0001.jpg‏ (47.1 كيلوبايت, المشاهدات 24)
__________________
يوسف الضادي غير متواجد حالياً  
قديم 25-12-2009, 04:55 PM
  #36
شذى الروح
مشرفة سابقة
 الصورة الرمزية شذى الروح
 
La spécialité: Autres
جامعة العربي التبسي تبسة
تاريخ التسجيل: 15-07-2008
الدولة: اتمنى ان تكون الجنة
المشاركات: 3,501
شذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

حسنا اخي يوسف سأقوم بشرح الطريقة



تفضل هذا شرح لـ arbre de tas


http://fr.wikipedia.org/wiki/Tas_(informatique)


الأن طريقة الشجرة ما هي :

نأخذ المصفوفة المراد ترتيبها و نرتب عناصرها في arbre de tas

سيكون بطبيعة الحال اصغر عنصر فيها هو الجذر

ننشأ مصفوفة جديدة (و هي المصفوفة المرتبة تصاعديا) نضع فيها الجذر كأول عنصر


بعد هذا نأخذ آخر عنصر في الشجرة و الذي هو اخر عنصر في المستوى الاخير من الشجرة اي الاقصى يمينا و نرجعه هو الجذر اي ننزع الجذر الرئيسي الذي هو الآن في المصفوفة المرتبة و نعيد ترتيب هذه الشجرة من جديد حتى نتحصل على arbre de tas و ذلك بمقارنة الأب مع الابناء و اجراء التحويلات المناسبة و الطريقة موظحة اكثر في الرابط الموضوع اعلاه

عند انتهاء ترتيب الشجرة من جديد نأخذ الجذر الجديد نضعه كثاني عنصر في المصفوفة الجديدة و هكذا دواليك حتى تفرغ الشجرة و تكتمل المصفوفة بكل العناصر

فهمتني يا يوسف؟؟؟؟؟؟؟؟

الآن اعود الى شرحك حيث انك أخطأت فهو لا يقصد العناصر الزوجية بل هو يقصد ترتيب العناصر في الجدول حيث اننا اذا اردنا تمثيل الشجرة بطريقة المصفوفات سيكون الترتيب العناصر كتالي

le fils في t[i]xxxxxx
le frere في t[i+1]xxxxxxxx
le pére في t[i dive 2]xxxxxxx

و هذا المقصود
__________________





°°if we say we do°°
شذى الروح غير متواجد حالياً  
قديم 25-12-2009, 06:45 PM
  #37
zinamimi
 
تاريخ التسجيل: 23-01-2009
الدولة: الجزائر
المشاركات: 115
zinamimi عضو يستحق التميزzinamimi عضو يستحق التميز
افتراضي رد: Club intellectuals *** نادي المثقفين

السلام عليكم عندي بعض التامارين حاولت فيها ولكن حبيت تساعدوني او تصححولي ان امكن انا كتتبت بالاحمر

ارجو النظر في هداارجوكم

Exercice1

Expliquer le rôle de chacune des lignes des deux programmes C donnés dans les sections suivantes :

1. Tableaux multi- dimensionnels
Pour créer avec ‘un pointeur de pointeurs’ une matrice à k lignes et n colonnes à coefficients entiers, on procède ainsi :
1. #include <stdio.h> fpnction dentree/sorties
2. #include <stdlib.h>
3. void main() comenter pour le programe
4. {
5. int k, n,i,j; declaration des variable
6. int** tab;/*tab est un pointeur de pointeurs*/ afichage des nombre
7. printf ("Nombre de lignes= ");
8. scanf("%d", &k); lire la var k de type (int)
9. printf ("Nombre de colones= ");
10. scanf("%d", &n);lire n
11. tab = (int**)malloc(k * sizeof(int*));
12. for (i = 0; i < k; i++)
13. tab[i] = (int*)malloc(n * sizeof(int));
14. printf("Veuillez introduire les elements de la matrice\n");
15. for (i = 0; i <k ; i++)
16. for (j = 0; j < n; j++)
17. {
18. printf("tab[%d,%d]=", i, j); afiche I et j
19. scanf("%d",&tab[i][j]); lire la matrice
20. }
21. printf("Afichage de la matrice\n");
22. for (i = 0; i <k ; i++)
23. for (j = 0; j < n; j++)
24. printf("tab[%d,%d]=%d\n", i, j, tab[i][j]);
25. for (i = 0; i <k ; i++)
26. free(tab[i]);
27. free(tab);
28. }

Exemple d’éxecution


2. Structures et pointeurs

1. #include <stdlib.h> fpnction dentree/sorties
2. #include <stdio.h> les fonction dentree/sorties
3. struct eleve{
4. char nom[20]; declaration du tableau
5. int date;
6. };
7. typedef struct eleve* classe;
8. main()
9. {
10. int n, i; declaratino des variable
11. classe tab;
12. printf("nombre d'eleves de la classe = ");
13. scanf("%d",&n); lire (n) declare de type int
14. tab = (classe)malloc(n * sizeof(struct eleve));
15. /*remarquer la conversion en un pointeur sur eleve*/
16. for (i =0 ; i < n; i++)
17. {
18. printf("\n saisie de l'eleve numero %d\n",i);
19. printf("nom de l'eleve = "); ecrire non
20. scanf("%s",&tab[i].nom); lire tab[i]
21. printf("\n date de naissance JJMMAA = ");
22. scanf("%d",&tab[i].date); liretab[i]
23. }
24. printf("\n Entrez un numero ");
25. scanf("%d",&i); lire i
26. printf("\n Eleve numero %d:",i); ecrire (i)
27. printf("\n nom = %s",tab[i].nom); ecrire le non dans le tab[i]
28. printf("\n date de naissance = %d\n",tab[i].date); afiche la dat et le non
29. free(tab);
30. }
__________________
zinamimi غير متواجد حالياً  
قديم 25-12-2009, 08:04 PM
  #38
شذى الروح
مشرفة سابقة
 الصورة الرمزية شذى الروح
 
La spécialité: Autres
جامعة العربي التبسي تبسة
تاريخ التسجيل: 15-07-2008
الدولة: اتمنى ان تكون الجنة
المشاركات: 3,501
شذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

اختي زينة لقد وضعت الحل قبل قليل و لكنه لم يصل بسبب النت غدا ان شاء الله سأعيد وضع الحل من جديد

الى حين قدوم آخرين
__________________





°°if we say we do°°
شذى الروح غير متواجد حالياً  
قديم 26-12-2009, 11:59 AM
  #39
شذى الروح
مشرفة سابقة
 الصورة الرمزية شذى الروح
 
La spécialité: Autres
جامعة العربي التبسي تبسة
تاريخ التسجيل: 15-07-2008
الدولة: اتمنى ان تكون الجنة
المشاركات: 3,501
شذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداعشذى الروح عضو محترف الابداع
افتراضي رد: Club intellectuals *** نادي المثقفين

1. #include <stdio.h> fpnction dentree/sorties
2. #include <stdlib.h>
// deux bébliotheque
3. void main() comenter pour le programe
// c'est un fonction principale
4. {
5. int k, n,i,j; declaration des variable de type entier
6. int** tab;/*tab est un pointeur de pointeurs*/
// est un pointeur qui pointe sur un tableau des élément de type entier
afichage des nombre

7. printf ("Nombre de lignes= ");
// afficher le message entre les " "

8. scanf("%d", &k); lire la var k de type (int)
reserver un espace mémoire pour un variable de type entier (%d)
9. printf ("Nombre de colones= ");
10. scanf("%d", &n);lire n
11. tab = (int**)malloc(k * sizeof(int*));
allouer un espace mémoire pour la strecture tab
12. for (i = 0; i < k; i++)
boucle qui marche de 0 jusqua k-1 et marche un par un
13. tab[i] = (int*)malloc(n * sizeof(int));
14. printf("Veuillez introduire les elements de la matrice\n");
15. for (i = 0; i <k ; i++)
16. for (j = 0; j < n; j++)
17. {
18. printf("tab[%d,%d]=", i, j); afiche I et j
19. scanf("%d",&tab[i][j]); lire la matrice
20. }
21. printf("Afichage de la matrice\n");
22. for (i = 0; i <k ; i++)
23. for (j = 0; j < n; j++)
24. printf("tab[%d,%d]=%d\n", i, j, tab[i][j]);
25. for (i = 0; i <k ; i++)
26. free(tab[i]);
27. free(tab);
28. }

Exemple d’éxecution


2. Structures et pointeurs

1. #include <stdlib.h> fpnction dentree/sorties
2. #include <stdio.h> les fonction dentree/sorties
3. struct eleve{
4. char nom[20]; declaration du tableau
5. int date;
6. };
7. typedef struct eleve* classe;
8. main()
9. {
10. int n, i; declaratino des variable
11. classe tab;
12. printf("nombre d'eleves de la classe = ");
13. scanf("%d",&n); lire (n) declare de type int
14. tab = (classe)malloc(n * sizeof(struct eleve));
15. /*remarquer la conversion en un pointeur sur eleve*/
16. for (i =0 ; i < n; i++)
17. {
18. printf("\n saisie de l'eleve numero %d\n",i);
19. printf("nom de l'eleve = "); ecrire non
20. scanf("%s",&tab[i].nom); lire tab[i]
21. printf("\n date de naissance JJMMAA = ");
22. scanf("%d",&tab[i].date); liretab[i]
23. }
24. printf("\n Entrez un numero ");
25. scanf("%d",&i); lire i
26. printf("\n Eleve numero %d:",i); ecrire (i)
27. printf("\n nom = %s",tab[i].nom); ecrire le non dans le tab[i]
28. printf("\n date de naissance = %d\n",tab[i].date); afiche la dat et le non
29. free(tab);
30

.
}





باقي الأسطر تقريبا تم ذكرها

free لم افهم مهمتها ممكن الي بعدي يعرف يوصل لشئ و اذا في شئ خطأ في حلي اتشرف بالنقد
__________________





°°if we say we do°°
شذى الروح غير متواجد حالياً  
قديم 26-12-2009, 03:01 PM
  #40
منة الرحمن
 الصورة الرمزية منة الرحمن
 
La spécialité: Informatique
جامعة عبد الحق بن حمودة جيجل
تاريخ التسجيل: 21-10-2009
المشاركات: 186
منة الرحمن عضو يستحق التميزمنة الرحمن عضو يستحق التميزمنة الرحمن عضو يستحق التميز
افتراضي رد: Club intellectuals *** نادي المثقفين

السلام عليكم ورحمة الله تعالى وبركاته

ماشاء الله عليكم بارك الله فيكم

بالنسبة لل instruction free فمهمتها هي تحرير ال espace memoire المحجوز لل tab
اي liberer l'espace memoire
منة الرحمن غير متواجد حالياً  

الكلمات الدلالية (Tags)
المثقفين, club, intellectuals, نادي

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
هدية لكل المثقفين @عبدالحليم@ منتدى الثقافـــــة والتـراث 10 17-11-2010 01:10 PM
scrabble 2009 الى المثقفين chadliannabi الألعاب Games 1 01-06-2010 10:57 AM
DownUp Utilities 2009 --> logiciel 100% marocain<-- (Hi-sooft club)i simorifi-rif1 الإعــلام الآلي والرياضيــات 0 24-03-2009 09:53 PM
Club Dj Pro v2.1 لمحبي ديجي و تحرير صوت. شنفرى منتدى البرامج العام 4 05-01-2009 09:13 PM
Alex Dj'S Club DJ-Devil دليل المواقع و الانترنت 2 23-08-2008 05:26 AM


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