le tri en pascal

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

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

    chennaoui_lotfi عضو نشيط

    إنضم إلينا في:
    ‏13 جانفي 2007
    المشاركات:
    252
    الإعجابات المتلقاة:
    11
      28-02-2007 11:51
    Tri par insertion en Pascal en ordre croissant.
    const MAX = 100;
    type tab = array [1..MAX] of integer;

    Procedure TriInsertion(n : integer ; var t : tab);
    var i, j, k : integer;
    begin
    for i:=2 to n do
    begin
    k := t; (* k est la valeur à insérer *)
    (* dans l'endroit approprié du tableau *)
    (* On décale toutes les valeurs du tableau < k *)
    (* à droite pour vider une place pour k *)
    j := i - 1;
    while (j >= 1) and (t[j] > k) do
    begin
    t[j + 1] := t[j];
    j := j - 1;
    end;

    (* finalement la valeur k est insérée à son emplacement adéquat *)
    t[j + 1] := k;
    end;
    end;
     
  2. chennaoui_lotfi

    chennaoui_lotfi عضو نشيط

    إنضم إلينا في:
    ‏13 جانفي 2007
    المشاركات:
    252
    الإعجابات المتلقاة:
    11
      28-02-2007 11:53
    Le tri par sélection en Pascal (en ordre croissant)
    procedure TriSelection(n : integer ; var t : tab);
    var i, j, min, tmp : integer;
    begin

    for i:=1 to n-1 do
    begin

    min := i;

    for j:=i+1 to n do
    if (t[j] < t[min]) then min:=j;

    if (i <> min) then
    begin
    tmp := t;
    t := t[min];
    t[min] := tmp;
    end;
    end;
    end;
     
  3. chennaoui_lotfi

    chennaoui_lotfi عضو نشيط

    إنضم إلينا في:
    ‏13 جانفي 2007
    المشاركات:
    252
    الإعجابات المتلقاة:
    11
      28-02-2007 11:55
    Une implémentation en Pascal (en ordre croissant)

    const MAX = 100; (* MAX = 100 est donné en exemple seulement *)
    type tab = array [1..MAX] of integer;
    procedure TriBulle(n : integer ; var t : tab);
    var i, j, tmp : integer;
    begin
    (* On va trier les n-1 premiers éléments du tableau *)
    for i:=1 to n-1 do begin
    j := i;
    (* L'éléments d'indice i doit reculer *)
    (* Jusqu'à prendre sa place *)
    while (j >= 1) and (t[j+1] < t[j]) do begin
    tmp := t[j];
    t[j] := t[j+1];
    t[j+1] := tmp;
    j := j - 1;
    end;
    end;
    end;
     
  4. chennaoui_lotfi

    chennaoui_lotfi عضو نشيط

    إنضم إلينا في:
    ‏13 جانفي 2007
    المشاركات:
    252
    الإعجابات المتلقاة:
    11
      28-02-2007 11:58
    j'ATTENT VOS AVIS MES AMIS ET SPECIALLEMENT VOS QUESTION
    :ahlan:
     
  5. 1960kaled

    1960kaled عضو مميز

    إنضم إلينا في:
    ‏20 جانفي 2006
    المشاركات:
    960
    الإعجابات المتلقاة:
    431
      28-02-2007 13:06
    merci beaucoup
     
  6. reallove

    reallove عضو جديد

    إنضم إلينا في:
    ‏20 ديسمبر 2006
    المشاركات:
    5
    الإعجابات المتلقاة:
    0
      28-02-2007 13:08
    je suis en 3 info au lycée et je veut avoir des cours de programation c'est possible chér ami
     
  7. mtcs

    mtcs عضو فعال

    إنضم إلينا في:
    ‏22 أكتوبر 2006
    المشاركات:
    326
    الإعجابات المتلقاة:
    44
      28-02-2007 16:24
    exellent travail mon ami
     
  8. programmeur

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

    إنضم إلينا في:
    ‏21 ماي 2006
    المشاركات:
    2.831
    الإعجابات المتلقاة:
    330
      17-03-2007 23:09
    c bien mais c un peux compliquer ta methode mais c bon commeme
     
جاري تحميل الصفحة...
مواضيع مشابهة التاريخ
Windev le champe jauge ‏24 جويلية 2016
شرح Chiffre en Letrre Arab Windev ‏19 ماي 2016
nouveau EDI pascal TechnoPascal ‏7 نوفمبر 2016
حالة الموضوع:
مغلق

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

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