Archive for ‘01/22/10’

program suites;
uses wincrt;
var
n:byte;

function V(n:byte):word;forward ;
function U(n:byte):word;
begin
if n=0 then U:=1
else U:= 3+ U(n-1)+2 * V(n-1);
end;
function V(n:byte):word;
begin
if n=0 then V:=2
else V:= 2* U(n-1)+ 3 * V(n-1);
end;

begin
writeln('Donner n : ');
readln(n);
writeln('U ',n,' = ', U(n));
writeln('V ',n,' = ', V(n));
end.

{Ouverture et accès directe à une valeur dans un fichier de données
à fin de la supprimer. €
cas ou les valeurs ne sont pas triées}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}

var
eleve1 : f_eleve; {instance de f_eleve}
rang, p_fin : byte;

procedure ouvrir(var eleve1:f_eleve);
var
chemin : string;
begin
chemin:='c:\fich_el.dat';
assign(eleve1,chemin);
reset(eleve1);
end;

procedure saisie(var rang:byte;p_fin:byte);
begin
repeat
writeln('entrer le rang de l''élève à supprimé : (0 --> ',p_fin,')');
readln(rang);
until rang in [0..p_fin];
end;

procedure suppression(var eleve1:f_eleve;rang:byte;p_fin:byte);
var
ch : string;
begin
seek(eleve1,p_fin); {récuperation de la dernière valeur du fichier}
read(eleve1,ch);

seek(eleve1,rang); {écraser la valeur à supprimée par la dernière valeur}
write(eleve1,ch);

seek(eleve1,p_fin); {tronquer le fichier à partir de la dernière valeur}
truncate(eleve1);
end;

begin
ouvrir(eleve1);

p_fin := filesize(eleve1)-1;

saisie(rang,p_fin);

suppression(eleve1,rang,p_fin);

write('L''enregistrement n° : ',rang,' a été supprimé avec succès !');

close(eleve1);
end.

{Ouverture et ajout dans le fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;

begin

assign(eleve1,'c:\fich_el.dat');

reset(eleve1);{Ouvrir et remettre à zéro le pointeur}

{lire toutes lignes juste pour attedre la dernière }
{Ce ci nous permettra de faire l'ajout d'une valeur}

while Not(eof(eleve1)) do
begin
read(eleve1,ch);
end;

read(ch);

write(eleve1,ch);
writeln('Ajout effectué avec succès');

close(eleve1);
end.

{Ouverture et lecture dans un fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;
chemin : string;

begin
chemin:='c:\fich_el.dat';
assign(eleve1,chemin);

reset(eleve1);{Ouvrir et remettre à zéro le pointeur}

writeln('Contenu du fichier ',chemin);
while not(eof(eleve1)) do
begin
read(eleve1,ch);
writeln('ligne n°',filepos(eleve1),' : ',ch);
end;
close(eleve1);
end.

{création et écriture dans un fichier}

program fichier_eleves;
uses wincrt;
type f_eleve = file Of string; {Type fichier de chaînes}

var eleve1 : f_eleve; {instance de f_eleve}
ch : string;

begin
assign(eleve1,'c:\fich_el.dat'); {associer nom logique du fichier au nom physique}

rewrite(eleve1); {Ouvrir et écrire dans le fichier}

Readln(ch);

writeln('Le fichier a été crée ! ');

write(eleve1,ch);

close(eleve1);
end.