SVP je veu ce 2 procedure

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة chlebta*tsotsi, بتاريخ ‏30 أكتوبر 2008.

  1. chlebta*tsotsi

    chlebta*tsotsi عضو مميز

    إنضم إلينا في:
    ‏11 نوفمبر 2007
    المشاركات:
    666
    الإعجابات المتلقاة:
    161
      30-10-2008 18:24
    SVP je veu ce 2 procedure

    procedure pour tier un fichier de entier
    (exp on une fichier remplie par des entier en veu trie ces entier de plus petit au plus grand 'ce pa imporatnt kel type de tir en utilise)


    procedure pour trie les eleve qui se trouvent ds un fichier selon leur mooyenne
    (càd un fichier est repmli avec de enregistrement eleve
    on veu la trie selon eleve.moy)

    mon niveau e bac informatique
     
  2. majdi7777

    majdi7777 عضو مميز

    إنضم إلينا في:
    ‏16 أوت 2008
    المشاركات:
    624
    الإعجابات المتلقاة:
    391
      31-10-2008 16:07
    en kelle langage tu les veux?
     
  3. خليل

    خليل عضو فعال

    إنضم إلينا في:
    ‏12 جويلية 2007
    المشاركات:
    489
    الإعجابات المتلقاة:
    261
      01-11-2008 12:36
    Le langage étudié en baccalauréat est: Pascal
     
  4. big_boss07

    big_boss07 نجم المنتدى

    إنضم إلينا في:
    ‏22 نوفمبر 2007
    المشاركات:
    2.285
    الإعجابات المتلقاة:
    317
      02-11-2008 16:25
    Voici mon frere jai fait ce programme pour toi:{c persque la meme trier pour fichier entier ou moyenne eleve**
    program Tribigboss;
    uses wincrt;
    const
    chemin= 'C:\MicroGaming/tribulle.fch';
    type

    fiche= file of integer;
    tab= array [1..100] of integer;
    var
    f:fiche;
    t:tab;
    permuter:boolean;
    aux,n,i: integer;


    procedure saisie (var f: fiche);
    begin
    assign(f,chemin);
    rewrite(f);
    write('Taper Taille de Tableau:');
    read(n);
    for i:= 1 to n do begin
    write('Taper T[',i,']: ');
    read (t);
    write(f,t);
    end;
    end;

    procedure permute (i:integer ; var t:tab);
    begin
    aux := t;
    t:= t[i+1];
    t[i+1]:=aux;
    end;
    procedure tri (var f: fiche);
    begin
    assign( f,chemin);
    reset(f);
    repeat
    permuter := false;
    for i:= 1 to n-1 do begin
    if t > t[i+1] then
    begin
    permute(i,t);
    permuter := true;
    end;
    end;
    write (f,t);
    until permuter = false;
    end;


    procedure affichage (var f:fiche);
    begin
    assign(f, chemin);
    reset(f);
    for i:= 1 to n do begin
    write('Le tableau Trier est: ');
    writeln(t);
    end;
    end;


    begin
    saisie(f);

    tri(f);
    affichage(f);

    end.


    Jai le teste avec pascal ca marche parfaitement Merci de laisser on commentaire
     
  5. neoman552

    neoman552 عضو نشيط

    إنضم إلينا في:
    ‏22 أوت 2007
    المشاركات:
    146
    الإعجابات المتلقاة:
    114
      03-11-2008 12:11
    Mon ami ce que tu as écrit est une programmation avancée, les bacheliers n'ont pas interêt ni à connaître la procédure de creation de fichier ni le tri d'un fichier.
     
  6. big_boss07

    big_boss07 نجم المنتدى

    إنضم إلينا في:
    ‏22 نوفمبر 2007
    المشاركات:
    2.285
    الإعجابات المتلقاة:
    317
      03-11-2008 12:21

    Lé Baba les bacheliers besoin de connaitre le procedure Trie de fichier moi meme Bac Informatique et "chlebta*tsotsi" Ma demande de le donner procedure Tri Alors A3tito Toute la solution de programme principal
    Et Moi Bac Info je sais quesque je ecrit {es bacheliers n'ont pas interêt ni à connaître la procédure de creation de fichier ni le tri d'un fichier**
    Merci:bang:
     
  7. chlebta*tsotsi

    chlebta*tsotsi عضو مميز

    إنضم إلينا في:
    ‏11 نوفمبر 2007
    المشاركات:
    666
    الإعجابات المتلقاة:
    161
      03-11-2008 17:31




    hay procedure tri a bulle sahla barche
    e on peut l'applique directement sur une fichier

    كود (text):
    procedure trie ( var fc: fentier);

    var premute: boolean;
        i,j,x,m,t: integer;
    (kan t7eb ta3ml tri mta3 fichier de type enregistrement il faut declare x,m: type d'enregistrement)
    begin
    reset(fc);
    t:= filesize(fc);
    repeat
     premute:= false;
     for i:= 0 to t-2 do
      begin
      j:= i+1;

     seek(fc,i);
     read(fc,m);
     seek(fc,j);
     read(fc,x);

     if m[.c  c: l'elemnt avec la kel vous voulez trie si vous voulez tri fichier enregistrement]>= x[.c  c: l'elemnt avec la kel vous voulez trie si vous voulez tri fichier enregistrement] then
     begin
      seek(fc,i);
      write(fc,x);
       seek(fc,j);
      write(fc,m);
      premute:= true;
      end;
      end;
      until premute = false;

    end;
     
     
  8. big_boss07

    big_boss07 نجم المنتدى

    إنضم إلينا في:
    ‏22 نوفمبر 2007
    المشاركات:
    2.285
    الإعجابات المتلقاة:
    317
      03-11-2008 19:06
    Merci hétha blacit merci ani ghalit i93ad na3malik fiha 10min
     

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

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