لغة الدالفي delphi كل ما يتعلق بالدالفي و الباسكال

إضافة رد
قديم 01-04-2009, 02:30 PM
  #1
lucky girl
VIP_MEMBRE
 الصورة الرمزية lucky girl
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 01-01-2009
الدولة: الجزائر
المشاركات: 1,151
lucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداع
Impp un programme sur les fichiers



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.


__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
رد مع اقتباس
قديم 01-04-2009, 03:34 PM
  #2
monarque
VIP_MEMBRE
مشرف سابق
 الصورة الرمزية monarque
 
تاريخ التسجيل: 01-12-2008
الدولة: بلد الله الواسع
المشاركات: 1,238
monarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداعmonarque عضو محترف الابداع
افتراضي

دائما في ابداعك المعهود...
شكرا lucky girl
__________________
L'accès est mieux que la paresse

ليس المهم أن تشارك بألف موضوع ... بل المهم أن تنشأ موضوع يشارك فيه ألف عضو
monarque غير متواجد حالياً  
رد مع اقتباس
قديم 01-04-2009, 07:14 PM
  #3
lucky girl
VIP_MEMBRE
 الصورة الرمزية lucky girl
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 01-01-2009
الدولة: الجزائر
المشاركات: 1,151
lucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداع
افتراضي

لا شكر على واجب هدا أقل الواجب........شكرا لمرورك أخي مونارك
__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
رد مع اقتباس
إضافة رد

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{برنامج} Fichiers excel bÉton arme jaouad30 الهندسة المدنية 9 27-06-2015 11:16 AM
collections des fichiers d'automatisme mohamed lp قسم أوتوماتيك 41 25-02-2014 08:40 AM
MS-DOS et les fichiers batch larbisoft نظام التشغيل الدوس 14 11-09-2013 02:27 AM
un progamme sur les fichiers lucky girl لغة الدالفي delphi 6 28-12-2011 05:57 PM
Les formats de fichiers djmah2006 الإعــلام الآلي والرياضيــات 5 03-12-2008 04:12 PM


الساعة الآن 03:01 AM.