svp complete me this pascal program

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

  1. romeo_is_me

    romeo_is_me عضو مميز بــمنتدى طلبات التعريفات و الدرايفر

    إنضم إلينا في:
    ‏25 جوان 2007
    المشاركات:
    2.926
    الإعجابات المتلقاة:
    3.740
      15-10-2008 21:03
    program positif;
    uses wincrt;
    const
    chemin1='c:\nombre1.fch';
    chemin2='c:\nombre2.fch';
    type
    tab=array [1..100] of integer;
    fiche=file of integer;
    var
    f1,f2:fiche;
    t1:tab;
    i,v,n:integer;


    procedure saisie_f1 (var n:integer;var f1:fiche);
    begin
    assign (f1,chemin1);
    rewrite(f1);
    repeat
    writeln ('taper N° d''entier'); readln (n);
    until (2<=n) and (n<=100);

    for i:=1 to n do
    begin
    writeln ('taper entier N°',i,' : ');
    readln (v);
    write(f1,v);
    end;
    end;

    procedure transfert_all (n :integer; var f1:fiche ; var t1:tab);
    begin
    assign(f1,chemin1);
    reset(f1);


    mainteneant je doi metre les valeur de fichier dans le tableau... plzzzzzzzzzzzz
     
  2. romeo_is_me

    romeo_is_me عضو مميز بــمنتدى طلبات التعريفات و الدرايفر

    إنضم إلينا في:
    ‏25 جوان 2007
    المشاركات:
    2.926
    الإعجابات المتلقاة:
    3.740
      15-10-2008 22:00
    c urgent pour demain matin alors vous allez m'aider ou nn
     
  3. romeo_is_me

    romeo_is_me عضو مميز بــمنتدى طلبات التعريفات و الدرايفر

    إنضم إلينا في:
    ‏25 جوان 2007
    المشاركات:
    2.926
    الإعجابات المتلقاة:
    3.740
      16-10-2008 13:05
    thnx for lettin me down... i
     
  4. chegi2000

    chegi2000 عضو

    إنضم إلينا في:
    ‏5 نوفمبر 2007
    المشاركات:
    90
    الإعجابات المتلقاة:
    33
      16-10-2008 17:11
    NbrEnregistrement := 0;

    while (not eof(F1)) do
    begin
    readln(F1, t1[NbrEnregistrement + 1]);
    NbrEnregistrement := NbrEnregistrement + 1;
    end;

    for i := 1 to NbrEnregistrement do
    writeln(t1);

    close(F);
     
    1 person likes this.
  5. romeo_is_me

    romeo_is_me عضو مميز بــمنتدى طلبات التعريفات و الدرايفر

    إنضم إلينا في:
    ‏25 جوان 2007
    المشاركات:
    2.926
    الإعجابات المتلقاة:
    3.740
      16-10-2008 18:50
    merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
     

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

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