برامج Pascal7.1 وهي تبيّن كيفية انشاء الملفات
2 مشترك
صفحة 1 من اصل 1
برامج Pascal7.1 وهي تبيّن كيفية انشاء الملفات
mah11 5/8/2013, 8:25 pm
---------------------------------------------------------
برامج Pascal7.1 وهي تبيّن كيفية انشاء الملفات
----------------------------------------------------------
الملف يتكون من اسم ولقب وتاريخ الميلاد
1 ... Fichier1.pas ... برنامج يتكون من اسم ولقب وتاريج الميلاد ويتم تسجيل في ملف ثم عرض محتواه
2 ... Fichier2.bas . برنامج عرض محتوى الملف
3 ... Fichier3.bas عرض آخر اسم في الملف
4 ... Fichier4.bas بحث عن اسم في الملف باستخدام الارقام فقط
5 ... Fichier5.bas
6 ... Fichier6.bas
7 ... Fichier7.bas بحث عن اسم باستخدام الاسماء وهو غير جيد
--------------------------------------------------------
-----------------------
.
برامج Pascal7.1 وهي تبيّن كيفية انشاء الملفات
----------------------------------------------------------
الملف يتكون من اسم ولقب وتاريخ الميلاد
1 ... Fichier1.pas ... برنامج يتكون من اسم ولقب وتاريج الميلاد ويتم تسجيل في ملف ثم عرض محتواه
2 ... Fichier2.bas . برنامج عرض محتوى الملف
3 ... Fichier3.bas عرض آخر اسم في الملف
4 ... Fichier4.bas بحث عن اسم في الملف باستخدام الارقام فقط
5 ... Fichier5.bas
6 ... Fichier6.bas
7 ... Fichier7.bas بحث عن اسم باستخدام الاسماء وهو غير جيد
--------------------------------------------------------
- الكود:
program fichiers1;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
begin
{ Ceation du fichier emp }
assign(emp,'emp_physique');
rewrite(emp);
repeat
writeln('Nom et prenom de l"employe ? ');
readln(e.nom);
readln(e.prenom);
writeln('Date de naissance ? ');
readln(e.date_naiss);
{ Ecriture sur disque dane le fichier emp }
write(emp,e);
writeln('Autre saisie ? o/n');
readln(reponse);
until reponse='n';
close(emp);
{ Consultation sequentielle du fichier emp }
assign(emp,'emp_physique');
reset(emp);
while not eof(emp) do
begin
read(emp,e);
writeln(e.nom,' ',e.prenom,' ',e.date_naiss);
end;
close(emp);
readln;
end.
-------------------------------------------------------------------
program fichier2;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
begin
{ Consultation sequentielle du fichier emp }
assign(emp,'emp_physique');
reset(emp);
while not eof(emp) do
begin
read(emp,e);
writeln(e.nom,' ',e.prenom,' ',e.date_naiss);
end;
close(emp);
readln;
end.
---------------------------------------------------
program fichier3;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
begin
{ Consultation sequentielle du fichier emp }
assign(emp,'emp_physique');
reset(emp);
seek(emp,filesize(emp)-1);
read(emp,e);
writeln(e.nom,' ',e.prenom,' ',e.date_naiss);
writeln('le dernier nom de fichier : ',filesize(emp));
close(emp);
readln;
end.
------------------------------------------------------------
program fichier4;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
a:integer;
begin
{ Consultation sequentielle du fichier emp }
assign(emp,'emp_physique');
reset(emp);
readln(a);
seek(emp,a);
read(emp,e);
writeln(e.nom,' ',e.prenom,' ',e.date_naiss);
close(emp);
readln;
end.
----------------------------------------------------------------
program fichier2;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
tab1,tab2 : array[1..10] of string;
tab3 : array[1..10] of integer;
k:employe;
i,j:integer;
begin
{ Consultation sequentielle du fichier emp }
assign(emp,'emp_physique');
reset(emp);
i:=0;
while not eof(emp) do
begin
i:=i+1;
read(emp,e);
tab1[i]:=e.nom;
tab2[i]:=e.prenom;
tab3[i]:=e.date_naiss;
end;
close(emp);
for j:=1 to 7 do
begin
writeln(tab1[j]);
writeln(tab2[j]);
writeln(tab3[j]);
end;
readln;
end.
---------------------------------------------------------------
program fichier6;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
tab1 : array[1..10] of string;
tab2 : array[1..10] of integer;
i,j:integer;
a:string[20];
begin
{ Consultation sequentielle du fichier emp }
assign(emp,'emp_physique');
reset(emp);
i:=0;
while not eof(emp) do
begin
i:=i+1;
read(emp,e);
tab1[i]:=e.nom;
tab2[i]:=i;
end;
close(emp);
readln(a); writeln;
reset(emp);
for j:=1 to 5 do
if a=tab1[j] then
begin
seek(emp,tab2[j]-1);
read(emp,e);
writeln(e.nom,' ',e.prenom,' ',e.date_naiss);
end;
close(emp);
readln;
end.
---------------------------------------------------
program fichier7;
type employe=record
nom,prenom:string[20];
date_naiss:integer;
end;
var emp:file of employe;
e:employe;
reponse:char;
b:integer;
procedure tai;
begin
assign(emp,'emp_physique');
reset(emp);
b:=0;
while not eof(emp) do
begin
b:=b+1;
read(emp,e);
write(b,' ');
end;
close(emp);
end;
procedure Charge;
var
tab1:array[1..10] of string;
tab2:array[1..10] of integer;
i,j:integer;
a:string[20];
begin
assign(emp,'emp_physique');
reset(emp);
i:=0;
while not eof(emp) do
begin
i:=i+1;
read(emp,e);
tab1[i]:=e.nom;
tab2[i]:=i;
end;
close(emp);
readln(a); writeln;
reset(emp);
for j:=1 to 5 do
if a=tab1[j] then
begin
seek(emp,tab2[j]-1);
read(emp,e);
writeln(e.nom,' ',e.prenom,' ',e.date_naiss);
end;
close(emp);
writeln(b);
end;
begin { Programmer prinsipal }
tai;
charge;
readln;
end.
.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة» كيفية انشاء ملف DLL واستدعائه بدلفي
» كيفية انشاء جدول في دلفي
» كيفية انشاء أليا alias أو اسم مستعار
» كيفية انشاء قاعدة بيانات بـ mysql
» كلمة مرور أو كيفية انشاء كلمة في تاربو باسكال
» كيفية انشاء جدول في دلفي
» كيفية انشاء أليا alias أو اسم مستعار
» كيفية انشاء قاعدة بيانات بـ mysql
» كلمة مرور أو كيفية انشاء كلمة في تاربو باسكال
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى