Si quelqu'un a un peu de temps j'aimerai qu'il regarde cette petite partie du programme et qu'il me dise éventuellement pourquoi j'ai toujours un retour de la variable "count" qui est égal à 0 !
Aucun problème lors de la compilation !

L'objectif est de comparer deux tableaux de texte ! et de savoir combien de lignes sont identiques !
Mais ça ne marche malheureusement pas !

mon programme est un vrai bordel mais j'essaie de faire avec des choses "simple"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
 
i:=0;
count:=0;
j:=0;
 
while not eof(f) do
 
begin
 
        while not eof(p) do
 
        begin
 
                if ((pipi[i])='begin') or ((pipi[i])='end;') or ((pipi[i])='end.') then
                begin
                        count:=count+0;
                end
 
                else if  (pipi[i]) = (tab[j]) then
                begin
                        count:=count+1;
                end
 
                else if (tab[j]) <> (pipi[i]) then
                begin
                        count:=count+0;
                end;
 
                i:=i+1;
 
        end;
 
        j:=j+1;
 
end;
Sachant que quand je tape : "writeln (tab[1]);" ou encore " writeln(pipi[2]);" le programme m'affiche bien la bonne ligne correspondante donc ce n'est pas un problème venant de la !

Voila merci bien !

Peu être que le problème réside peu être dans le fait qu'on ne peut pas enchainer des boucles et des conditions ? ou quelque chose du genre ?