un programme sur les fichiers

lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: نيسـان 01, 2009, 01:30:41 مسائاً

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.
[/B][/FONT]


monarque

  • Hero Member
  • *****
    • مشاركة: 1238
    • مشاهدة الملف الشخصي
    • http://monarqueinfo.site50.net/
    • البريد الالكتروني
رد #1 في: نيسـان 01, 2009, 02:34:07 مسائاً
دائما في ابداعك المعهود...
شكرا lucky girl


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: نيسـان 01, 2009, 06:14:25 مسائاً
لا شكر على واجب هدا أقل الواجب........شكرا لمرورك أخي مونارك