un progamme sur les fichiers

lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: آذار 31, 2009, 01:15:46 مسائاً
exo
soit un fichier de personnes reconnu par  le nom de la personne
(chaine de 30)  
et le numero du telephone  
(chaine de 10 )
         ecrire un programme en pascal qui permet d'enregistrer 100 personnes  dé le fichier 'c:/pers.dat
et qui vérifie que le nom ne contient pas des chiffres et vérifie que le numero du telephone ne contient pas des lettres  
remarque:utiliser les ensembles
 
program fich_per;
type
       personne=record
    nom:string[30];
    numero:string[10];
end;
var i:integer;
    fich:file of personne ;
    p:personne;
    ch: set of chiffres;
    let:set of lettres;
    b:boolean;
begin
  assign(fich,'c:/pers.dat');
  reset(fich);
  ch:=['0'..'9']; let:=['A'..'Z'];
    for i:=1 to 100 do
      begin
        writeln('donnez le nom et le numero du telephone');
        readln(p.nom,p.numero);
        write(fich,p);
      end;
       close(fich);
       assign(fich,'c:/pers.dat');
       reset(fich);
       while not eof (fich) do
         read(fich,p);
        begin
           with p do
             begin
               j:= 1; b:=true ;
                while(j<=length(nom)) and (b=true) do
                  begin
                     nom [j] in ch then b:=false ;
                      j:= j+1 ;
                  end;
                  if b:= true then
                   writeln('le nom de la personne',i,'est correct')
                  else writeln('le nom de la personne',i,'contient des chiffres');
                    j:=1; b:= true ;
                while (j<=length(numero)) and (b=true) do $
                  begin
                     if numero[j] in let then b:=false;
                     j:=j+1;
                  end;
                   if b:= true then
                      writeln('le numero de la personne',i,'est correct')
                   else writeln('le numero de la personne',i,'contient des lettres');
                    i:=i+1;
           end;
        end;
end.
 


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: آذار 31, 2009, 03:07:09 مسائاً
بارك الله فيك اختي دليلة على العمل الرائع.............. جزاك الله خير.


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: آذار 31, 2009, 04:30:01 مسائاً
و فيك بركة أخي......... شكرا لمرورك الطيب


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: آذار 31, 2009, 04:45:22 مسائاً
لا شكرعلى واجب ....وهذا اقل الواجب بانتظار ابداعاتك.


نرمين*

  • Global Moderator
  • Hero Member
  • *****
    • مشاركة: 3989
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: نيسـان 25, 2010, 09:40:26 مسائاً
شكرا دلال بارك الله فيك  و جزاك الف خير


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #5 في: نيسـان 25, 2010, 09:50:58 مسائاً

وفيك بركة على اطلالتك ... وجزانا الله اجمعين خيرا


red21878

  • Newbie
  • *
    • مشاركة: 8
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #6 في: كانون الأول 28, 2011, 04:57:38 مسائاً
merci bcp
merci infiniment