Intersection de deux fichiers

Version imprimable

19/05/2012, 23h44
elhadiDZ

Intersection de deux fichiers

SALUT;)

J'ai besoin d'un programme Pascal qui produit un fichier contenant l'intersection des deux fichiers.

L’exercice : on considère deux ensembles d'entiers représentés dans les fichiers. Chaque entier n'apparaît qu'en un exemplaire dans une séquence. Écrire un programme qui produit un fichier contenant l'intersection des deux ensembles.
Exemple :
fichier 1 : 10 5 12 7 19 28 6.
fichier 2 : 5 14 19 2 10 6 29 3 7.
fichier résultat : 10 5 7 19 6.

:)
20/05/2012, 00h28
Paul TOTH

voila ce que c'est de faire ses devoirs au dernier moment :)
20/05/2012, 00h39
elhadiDZ

Citation:

Envoyé par Paul TOTH

voila ce que c'est de faire ses devoirs au dernier moment :)

XD
En fait ce n'est pas un devoir, je veux juste préparer le prochain cour (lever le doigt XD) :D
20/05/2012, 01h41
Roland Chastain

Citation:

Envoyé par elhadiDZ

En fait ce n'est pas un devoir, je veux juste préparer le prochain cours

Sage résolution. Mais quelle difficulté rencontres-tu ?

La procédure n'est pas très difficile à concevoir :

Citation:

Pour chacun des éléments du fichier A,
chercher s'il est aussi dans le fichier B;
s'il y est, l'ajouter dans le fichier C.
20/05/2012, 13h47
elhadiDZ

merci , Nous n'avons pas étudié cette leçon de fichiers , je veux juste préparer la leçon.

je veux le programme pascal de l'intersection
Qui veux m'aidez : merci , qui veux quelque chose d'autre il ya d'autre forums ...

:P
20/05/2012, 14h14
M.Dlb

Rappel des règles: Nous ne fournissons aucun code source à la demande.

Merci de lire http://club.developpez.com/regles

Prendre de l'avance sur la leçon à venir c'est bien, mais tu ne peux pas demander un code si précis. Tu peux t'inspirer des tutoriels disponibles sur ce site, créer ton code et nous le montrer pour le corriger par exemple.
23/05/2012, 21h43
Roland Chastain

Citation:

Envoyé par elhadiDZ

je veux le programme pascal de l'intersection

Tu veux ? :P

Ça ne se dit pas, sauf quand on est roi.
23/05/2012, 23h52
droggo

Moe,

Citation:

Envoyé par Roland Chastain

Tu veux ? :P

Ça dépend directement de la culture d'origine.
C'est une manière commune de s'exprimer pour les populations d'Afrique du Nord.

Citation:

Envoyé par Roland Chastain

Ça ne se dit pas, sauf quand on est roi.

Les rois disaient plutôt nous voudrions. Eh oui, ils avaient en général au moins cette qualité là, la politesse (j'ai bien écrit "en général" :)).

Code proposé

Supposons que les Fichiers sont déja stockés sur le disque dur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program prop;
uses crt;
var F1,F2,F3: File of integer;
     T1,T2,T3: array[1..200] of integer;
     i,j,c: integer;
Begin
writeln('Lecture du premier fichier');   
assign(F1,'Fichier1.int');
reset(F1);
seek(F1,0);
For i:=1 to (Filesize(F1)) do
   BEGIN
   seek(F1,i);
   read(F1,c);
   T1[i]:=c;
   END;
writeln('Lecture du deuxieme fichier');   
assign(F2,'Fichier2.int');
reset(F2);
For i:=1 to (Filesize(F2)) do
   BEGIN
   seek(F2,i);
   read(F2,c);
   T2[i]:=c;
   END;
writeln('recherche d''intersection');
c:=0;
For i:=1 to (Filesize(F1)) do
 For j:=1 to (Filesize(F2)) do
BEGIN
 if (T1[i]=T2[j]) then
 Begin
 c:=c+1;
 T3[c]:=T1[i];
 END;
END;
assign(F3,'Fichier3.int');
rewrite(F3);
For i:=1 to c do
write(F3,T3[i]);
close(F1);
close(F2);
close(F3);
writeln('travail terminé');
readln;
End.

Voilà le code que je propose, il n'y a aucune erreur normalement il travaille bien.

27/05/2012, 13h50
droggo

Hoi,

C'est du code pas franchement propre, ET il ne répond pas à la question, puisque tu utilises des fichiers au format binaire (file of integer), alors que l'énoncé montre leur contenu : c'est du format texte.

Comprendre le problème posé est la clé pour trouver la bonne solution.

En delphi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
procedure CreateIntersecFile(aFileNameA, aFileNameB, aFileNameResult: string; const aAsCSV: boolean = false; const aCSVSeparator: char = #32);
var X: integer;
    CSV, A, B, R : TStringList;
 
begin
  A := TStringList.Create;
  B := TStringList.Create;
  R := TStringList.Create;
  try
    A.LoadFromFile(aFileNameA);
    B.LoadFromFile(aFileNameB);
    if aAsCSV then
    begin
      CSV := TStringList.Create;
      CSV.StrictDelimiter := true;
      CSV.Delimiter := aCSVSeparator;
      CSV.DelimitedText := A.Text;
      A.Text := CSV.Text;
      CSV.DelimitedText := B.Text;
      B.Text := CSV.Text;
    end;
 
    //ListBoxA.Items.Text := A.Text;
    //ListBoxB.Items.Text := B.Text;
 
    for X := 0 to A.Count - 1 do
    begin
      if B.IndexOf(A[X]) <> -1 then
        R.Add(A[X]);
    end;
    //ListBoxR.Items.Text := R.Text;
    R.SaveToFile(aFileNameResult);
  finally
    R.Free;
    B.Free;
    A.Free;
  end;
end;