BAC INFO: Problème sur les fichiers + Corrigé: Calcul de similarité

On définit la similarité du fichier texte A par rapport au fichier texte B comme étant le rapport entre le nombre de caractères de A et B qui se trouvent au même rang, et le nombre total de caractères du fichier A. On la note SIM(A,B).

Ainsi, SIM(A,B) = 100% signifie que A est inclus dans B.
SIM(A,B) = SIM(B,A) signifie que A est B sont identiques.


1ère Partie
__________

On veut écrire un programme qui :

a) Saisit les paramètres des deux fichiers (chemins, nombre de caractères de chaque fichier)
b) Créer les fichiers, et les remplir avec des lettres alphabétiques aléatoires (Utiliser la fonction
Random).
c) Afficher le contenu de chaque fichier (ainsi que son chemin, taille)
d) Calculer et afficher les similarités entre les deux textes.

2ème Partie
__________

... En cours ...


+++++++++++++++++++++++
Bon courage.

Voilà un début de solution ... à vous de continuer...

Code:



program similarity;

uses wincrt;

{********************** SAISIE INFO FICHIER ***************************}

procedure saisie_info_fichier(var chemin:string; var taille:integer);
begin

  {saisie du chemin}
  repeat 
    write('Chemin physique : ');
    readln(chemin);
  until (chemin <> '');

  {saisie taille fichier}
  repeat
    write('Taille fichier: ');
    readln(taille);
  until (taille > 0);   
 
end;

{********************** CREATION FICHIER *******************************}

procedure creation_fichier(var f:text; chemin:string);
begin

  assign(f, chemin);
  rewrite(f);

end;


{********************** REMPLISSAGE DU FICHIER ************************}

procedure remplir_fichier_random(var f:text; taille:integer);
var
 i, ascii: integer;
 c : char;
begin

  for i:=1 to taille do
  begin
  {générer une lettre alphabétique au hasard }
      {........ compléter vous même .... :) }
  end;
end;

{********************** Programme Principal ***************************}

var

  file1, file2        : text;    {Emplacement logiques}
  chemin1, chemin2    : string;  {Emplacements physiques}
  taille1, taille2    : integer;  {Tailles des fichiers}



begin

    Randomize;


    writeln('*** SAISIE INFO DU FICHIER N°1 ***');
    saisie_info_fichier(chemin1, taille1);
    writeln;

    writeln('*** SAISIE INFO DU FICHIER N°2 ***');
    saisie_info_fichier(chemin2, taille2);
    writeln;

    writeln('*** CREATION DES FICHIERS ***');
    creation_fichier(file1, chemin1);
    creation_fichier(file2, chemin2);
    writeln('...fichiers créés avec succès.');
    writeln;


    writeln('*** REMPLISSAGE ALEATOIRE DES FICHIER ***');
    remplir_fichier_random(file1, taille1);
    remplir_fichier_random(file2, taille2);
    writeln('...fichiers remplis avec succès.');
    writeln;

    Close(file1);
    Close(file2);
    writeln('... fichiers fermés.');

writeln('Il y a une partie manquante ... A vous de la terminer !!! :) ');
    writeln;

end.


Une capture de la solution non encore coplète...