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