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

**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.

.

ali 5/6/2015, 8:40 pm

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

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

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

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