كيفية اختيار ملف وقرآة محتواه

**mah11** 21/7/2013, 8:28 pm

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

كيفية اختيار ملف وقرآة محتواه

1 قرآة الملف الاول
2 قرآة الملف الثاني
3 قرآة الملف الثالث
4 خروج

الكود:: { *** REPUBLIQUE ALGERIENNE DEMOCRATIQUE ET POPULAIRE *** } program lire_fiche; uses crt; const n1 = 1; m1 =15; type date = record jour : 01..31; mois : 01..12; anne : 1980..2200; end; etudiant = record code: integer; nom : string[15]; prenom : string[20]; date_ne : date; lui : string[40]; adress : string[30]; date_ent : date; date_sor : date; fonction : string[20]; end; var E : etudiant; etu : file of etudiant; etu1,etu2 : file of etudiant; i :integer; procedure alger_lel; begin clrscr; gotoxy(15,2); write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE'); end; procedure fenetre_bb; begin alger_lel; gotoxy(12,5); write('Code : '); gotoxy(12,7); write('Nom : '); gotoxy(12,9); write('Prenom : '); gotoxy(12,11); write('Date de nessonce :'); gotoxy(33,11); write('/'); gotoxy(36,11); write('/'); gotoxy(12,13); write('Lui de nessonce :'); gotoxy(12,15); write('Adresse :'); gotoxy(12,17); write('Date de entree :'); gotoxy(31,17); write('/'); gotoxy(34,17); write('/'); gotoxy(12,19); write('Date sortie :'); gotoxy(28,19); write('/'); gotoxy(31,19); write('/'); gotoxy(12,21); write('La fonction :'); end; procedure lir_fiche; begin with E do begin gotoxy(19,5); write(code); gotoxy(18,7); write(nom); gotoxy(21,9); write(prenom); gotoxy(31,11); write(date_ne.jour); gotoxy(34,11); write(date_ne.mois); gotoxy(37,11); write(date_ne.anne); gotoxy(30,13); write(lui); gotoxy(22,15); write(adress); gotoxy(29,17); write(date_ent.jour); gotoxy(32,17); write(date_ent.mois); gotoxy(35,17); write(date_ent.anne); gotoxy(26,19); write(date_sor.jour); gotoxy(29,19); write(date_sor.mois); gotoxy(32,19); write(date_sor.anne); gotoxy(26,21); write(fonction); end; end; procedure lire_fichier1; begin fenetre_bb; assign(etu,'delfa1'); reset(etu); while not eof(etu) do begin read(etu,E); lir_fiche; readln; end; end; procedure lire_fichier2; begin fenetre_bb; assign(etu1,'delfa2'); reset(etu); while not eof(etu1) do begin read(etu1,E); lir_fiche; readln; end; end; procedure lire_fichier3; begin fenetre_bb; assign(etu1,'delfa3'); reset(etu); while not eof(etu1) do begin read(etu2,E); lir_fiche; readln; end; end; begin repeat clrscr; alger_lel; gotoxy(16,6); write('1. fichier Delfa1'); gotoxy(16,8); write('2. fichier Delfa2'); gotoxy(16,10); write('3. fichier Delfa3'); gotoxy(16,12); write('4. Quitter application'); gotoxy(3,15); write('Donner votre chois : '); readln(i); if i=1 then lire_fichier1 else if i=2 then lire_fichier2 else if i=3 then lire_fichier3; until i>=4; end.