برامج Pascal7.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 بحث عن اسم باستخدام الاسماء وهو غير جيد

--------------------------------------------------------

الكود:

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

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: برامج Pascal7.1 وهي تبيّن كيفية انشاء الملفات

مُساهمة  ali1 في 5/6/2015, 8:21 pm

بــارك الله فـــــــــيك

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى