exercice

Voir le sujet précédent Voir le sujet suivant Aller en bas

exercice

Message par oussama le Jeu 17 Mai - 16:19

program exe;
uses wincrt;
type
employe=record
nom:string;
nbh:integer;
ph:real;
sal:real;
end;
fich=file of employe;
tab=array[1..50] of employe;
var
t:tab;
e,e1:employe;
f:fich;
n:integer;

procedure saisie (var f:fich; var n:integer;e:employe);
var
i:integer;
begin
rewrite (f);
repeat
write ('Donne le nombre demloyé :');readln (n);
until (n in [1..20]);
for i:= 1 to n do
begin
with e do
begin
write ('Nom = ');readln (nom);
write ('Nombre dheures de travail = ');readln (nbh);
write ('Prix dheures = ');readln (ph);
sal:=nbh*ph;
end;
writeln;
write (f,e);
end;
end;

procedure ajout (var f:fich;e1:employe);
var
i,p:integer;
begin
reset (f);
repeat
write ('Position = ');readln (p);
until (p in [0..filesize(f)]);
with e1 do
begin
write ('Nom = ');readln (nom);
write ('Nombre dheures de travail = ');readln (nbh);
write ('Prix dheures = ');readln (ph);
sal:=ph*nbh;

end;
for i:= filesize (f) to (p+1) do
begin
seek (f,p);
read (f,e);
seek (f,i);
write (f,e);
end;
close (f);
end;

procedure affiche (var f:fich;e:employe);
begin
reset (f);
while not eof (f) do
begin

read (f,e);
writeln (e.nom,e.nbh,e.ph,e.sal);
end;
close (f);
end;
begin
assign (f,' ');
saisie (f,n,e);
ajout (f,e1);
affiche (f,e);
end.

oussama

Messages : 2
Points : 12796
Réputation : 0
Date d'inscription : 21/12/2010
Age : 23

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum