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

قديم 31-03-2009, 02:15 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 progamme 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 غير متواجد حالياً  
قديم 31-03-2009, 04:07 PM
  #2
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

بارك الله فيك اختي دليلة على العمل الرائع.............. جزاك الله خير.
achraf.mouni غير متواجد حالياً  
قديم 31-03-2009, 05:30 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 غير متواجد حالياً  
قديم 31-03-2009, 05:45 PM
  #4
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

لا شكرعلى واجب ....وهذا اقل الواجب بانتظار ابداعاتك.
achraf.mouni غير متواجد حالياً  
قديم 25-04-2010, 10:40 PM
  #5
نرمين*
مشرفة منتدى
الرياضيات والإعلام الآلي
 الصورة الرمزية نرمين*
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 08-11-2008
الدولة: الجزائر
المشاركات: 3,993
نرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداعنرمين* عضو محترف الابداع
افتراضي رد: un progamme sur les fichiers

شكرا دلال بارك الله فيك و جزاك الف خير
__________________
رباهـ قد عشت في دنياي مغتربا ,, ويلاهـ إن أغترب في العالمـ الثاني
أسـتـغـفـر الله مــن كفران نعمته ,, بل فوق ما أستحق
الله أعطاني
ألمـ يجدني أخا غي فأرشدني ,, وهائما غير ذي مأوى فأواني
ألمـ يجدني أخا جهل فعلمني ,, وعائلا غير ذي وجد فأغناني
لبيكـ ملئ فمي ،، يارب يارب من قلبي ووجداني







نرمين* غير متواجد حالياً  
قديم 25-04-2010, 10:50 PM
  #6
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 عضو محترف الابداع
افتراضي رد: un progamme sur les fichiers


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



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
قديم 28-12-2011, 05:57 PM
  #7
red21878
 الصورة الرمزية red21878
 
La spécialité: Informatique
جامعة أبو بكر بلقايد - تلمسان
تاريخ التسجيل: 27-12-2011
المشاركات: 8
red21878 عضو يستحق التميز
افتراضي رد: un progamme sur les fichiers

merci bcp
merci infiniment
red21878 غير متواجد حالياً  

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
Fichiers autocad DWG à télécharger betadz قسم التصميم المعماري بالحاسوب 0 30-12-2013 11:46 AM
MS-DOS et les fichiers batch larbisoft نظام التشغيل الدوس 14 11-09-2013 02:27 AM
progamme de zoologie صاحبة السمو العلوم الفلاحية و البيولوجيا 0 23-11-2011 03:45 PM
un programme sur les fichiers lucky girl لغة الدالفي delphi 2 01-04-2009 07:14 PM
Les formats de fichiers djmah2006 الإعــلام الآلي والرياضيــات 5 03-12-2008 04:12 PM


الساعة الآن 04:26 PM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir