Programmation en Pascal

program Valeurs; uses Crt;

const Nmax=100; // par exemple

type Element=real;
     Tableau=array[1..Nmax] of Element;

procedure FichierAvecPointsVirgulesVersTableau(var t:Tableau;var n:integer;Chemin:string);
var f:Text; s,aux:string; i,j:integer;
begin
writeln('Importation depuis ',Chemin);
assign(f,Chemin);
reset(f);
readln(f,s);
close(f);
n:=0; j:=1; aux:='';
for i:=1 to length(s) do
    if s[i]=';' then begin
                     n:=n+1;
                     val(aux,t[n]);
                     if n=Nmax then exit;
                     aux:='';
                     j:=i;
                     end
                else aux:=aux+s[i];
if j<>i then begin  // au cas où il n'y est pas de ';' après le dernier entier
             n:=n+1;
             val(aux,t[n]);
             end;
writeln;
end;

procedure Decision(var t:Tableau;var rep_sal:string);
begin
if  (t[1]>t[2]) and (t[4]>(t[6]*0.3)) and (t[6]>(t[3]*1.5)) and (t[5]>t[1]+t[3])
    then rep_sal := '1;'
    else rep_sal := '0;'; // ?????
end;

procedure ReponseVersFichier(Chemin,rep_sal:string);
var f :Text;
begin
write('Reponse vers ',Chemin,' : ');
assign(f,Chemin);
rewrite(f);
writeln(f,rep_sal); writeln(rep_sal);
close(f);
end;

procedure Main(FichierAvecPointsVirgules,FichierReponse:string;r:real);
var t:Tableau; n:integer; rep_sal:string;
begin
ClrScr;
FichierAvecPointsVirgulesVersTableau(t,n,FichierAvecPointsVirgules);
Decision(t,rep_sal);
ReponseVersFichier(FichierReponse,rep_sal);
writeln; write('Programme en cours (iteration ',r:0:0,')... Appuyer sur Entree');
readln;
Main(FichierAvecPointsVirgules,FichierReponse,r+1);
end;

begin
Main('D:\write.txt','D:\read.txt',1);
//Main('C:\Program Files\TEST\write.txt','C:\Program Files\TEST\Read.txt',1);
writeln; write('Fin du programme ... Appuyer sur Entree'); readln;
end.

program Valeurs;

const Nmax=100; // par exemple

type Element=integer;
     Tableau=array[1..Nmax] of Element;
     Fichier=file of Element;

procedure SaisirValeurs(var t:Tableau;n:integer);
var i:integer;
begin
writeln('Saisie des valeurs');
writeln;
for i:=1 to n do
    begin
    write('Valeur ',i:2,' = ');
    readln(t[i]);
    end;
writeln;
end;

procedure LireValeurs(var t:Tableau;n:integer);
var i:integer;
begin
writeln('Lecture des valeurs');
writeln;
for i:=1 to n do
    writeln('Valeur ',i:2,' = ',t[i]);
writeln;
end;

procedure TableauVersFichier(var t:Tableau;n:integer;Chemin:string);
var i:integer; f:Fichier;
begin
writeln('Exportation vers ',Chemin);
assign(f,Chemin);
rewrite(f);
for i:=1 to n do
    write(f,t[i]);
close(f);
writeln;
end;

procedure FichierVersTableau(var t:Tableau;var n:integer;Chemin:string);
var i:integer; f:Fichier;
begin
writeln('Importation depuis ',Chemin);
assign(f,Chemin);
reset(f);
i:=0;
while (not eof(f)) and (i<Nmax) do
    begin
    i:=i+1;
    read(f,t[i]);
    end;
n:=i;
close(f);
writeln;
end;

var t:Tableau; n:integer;
begin
write('Nombre de valeurs a entrer = ');
readln(n); writeln;
if n>Nmax then n:=Nmax;
SaisirValeurs(t,n);
TableauVersFichier(t,n,'C:\Valeurs.txt');
FichierVersTableau(t,n,'C:\Valeurs.txt');
LireValeurs(t,n);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.

procedure TableauVersFichierLisible(var t:Tableau;n:integer;Chemin:string);
var i:integer; f:Text;
begin
writeln('Exportation lisible vers ',Chemin);
assign(f,Chemin);
rewrite(f);
for i:=1 to n do
    writeln(f,t[i]);
close(f);
writeln;
end;

procedure FichierLisibleVersTableau(var t:Tableau;var n:integer;Chemin:string);
var i:integer; f:Text;
begin
writeln('Importation lisible depuis ',Chemin);
assign(f,Chemin);
reset(f);
i:=0;
while (not eof(f)) and (i<Nmax) do
    begin
    i:=i+1;
    readln(f,t[i]);
    end;
n:=i;
close(f);
writeln;
end;

// Modification du programme principal

var t:Tableau; n:integer;
begin
write('Nombre de valeurs a entrer = ');
readln(n); writeln;
if n>Nmax then n:=Nmax;
SaisirValeurs(t,n);
TableauVersFichier(t,n,'C:\Valeurs.txt');
FichierVersTableau(t,n,'C:\Valeurs.txt');
TableauVersFichierLisible(t,n,'C:\ValeursLisibles.txt');
FichierLisibleVersTableau(t,n,'C:\ValeursLisibles.txt');
LireValeurs(t,n);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.

procedure ConvertirFichier(Chemin1,Chemin2:string);
var f:Text; i,j:integer; s,aux:string;
begin
writeln('Conversion depuis ',Chemin1,' vers ',Chemin2);
assign(f,Chemin1);
reset(f);
readln(f,s);
close(f);
assign(f,Chemin2);
rewrite(f);
j:=1;
aux:='';
for i:=1 to length(s) do
    if s[i]=';' then begin
                     writeln(f,aux);
                     aux:='';
                     j:=i;
                     end
                else aux:=aux+s[i];
if j<>i then writeln(f,aux); // cas où il n'y est pas de ';' après le dernier entier
close(f);
writeln;
end;

// Modification du programme principal

var t:Tableau; n:integer;
begin
ConvertirFichier('D:\ValeursAvecPointsVirgules.txt','D:\ValeursAvecSautsDeLignes.txt');
FichierLisibleVersTableau(t,n,'D:\ValeursAvecSautsDeLignes.txt');
LireValeurs(t,n);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.