انشاء ملف وتسجيل معلومات فيه

اذهب الى الأسفل

انشاء ملف وتسجيل معلومات فيه

مُساهمة  mah11 في 21/7/2013, 8:49 pm

انشاء ملف وتسجيل معلومات فيه

الكود:

program exomples;
uses crt;
type bate = record
     N_nom : string[20];
     nom   : string[15];
     P_prenom : string[20];
     prenom : string[22];
     A_age : string[20];
     C_code : string[20];
     age,code  : integer;
    end;

var M : bate;
   mem : file of bate;
   choix : integer;
begin
 assign(mem,'sigeles');
 rewrite(mem);
 repeat
    M.C_code :=' Code ...... : ';
    write('Entrez Code ? ');
    readln(M.code);
    M.N_nom:=' Nom ....... : ';
    write('Entrez nom ? ');
    readln(M.nom);
    M.P_prenom:=' Prenom .... : ';
    write('Entrez Prenom ? ');
    readln(M.prenom);
    M.A_age:=' Age ....... : ';
    write('Entrez Age ? ');
    readln(M.age);
    write(mem,M);
    write('Entrez choix 1.OUI 2.NON ');
    readln(choix);
 until choix=2;
 close(mem);

 assign(mem,'sigeles');
 reset(mem);
 while not eof(mem) do
 begin
   clrscr;
   read(mem,M);
   gotoxy(10,2); writeln(M.C_code,' ',M.code);
   gotoxy(10,6); writeln(M.N_nom,' ',M.nom);
   gotoxy(10,10); writeln(M.P_prenom,' ',M.prenom);
   gotoxy(10,14); writeln(M.A_age,' ',M.age);
   writeln;
   readln;
 end;
 close(mem);

end.



.

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: انشاء ملف وتسجيل معلومات فيه

مُساهمة  ali1 في 5/6/2015, 8:40 pm

بــارك الله فـــــــــيك

ali1
مبرمج مجتهد

عدد المساهمات : 848
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: انشاء ملف وتسجيل معلومات فيه

مُساهمة  امرؤ القيس في 1/7/2017, 6:05 pm

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

امرؤ القيس

عدد المساهمات : 9
تاريخ التسجيل : 29/06/2017

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى