Intersection de deux fichiers

[elhadiDZ]

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.

[Paul TOTH]

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

[elhadiDZ]

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)

[Roland Chastain]

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 :

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.

[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 ...

[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.

[Roland Chastain]

Envoyé par elhadiDZ

je veux le programme pascal de l'intersection

Tu veux ?

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

[droggo]

Moe,

Envoyé par Roland Chastain

Tu veux ?

Ç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.

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" ).

[Dr.Mimo]

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.

[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.

[Dr.Who]

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;