Discussion :

[jeanmich]

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 ?

[droggo]

Kie,

Mets-nous des copier/coller de ton code, c'est plus simple.

Si tu ne sais pas comment faire, cherche un peu sur le forum, on en a parlé plusieurs fois, assez récemment (ce qui ne signifie pas : ces 2 ou 3 derniers jours).

Présente ton code correctement : indentation, etc. bref, leitmotiv habituel.

[jeanmich]

Meo,

J'ai lu le post ou vous parlez de copier coller un programme en pascal :

http://www.developpez.net/forums/d64...-turbo-pascal/

mais quand je le fais et que je le colle dans mon message ça ne garde pas l'indentation effectuée !

Voili voilou !

A bientôt !

[darrylsite]

Meo,

J'ai lu le post ou vous parlez de copier coller un programme en pascal :

http://www.developpez.net/forums/d64...-turbo-pascal/

mais quand je le fais et que je le colle dans mon message ça ne garde pas l'indentation effectuée !

Voili voilou !

A bientôt !

La methode que j'avais donnée reste de loin la meilleur
La truc c'est d'ouvrir le fichier *.pas avec un editeur de texte (bloc note, pspad, ...). Si tu es sous windows, un click droit -> ouvrir avec->ensuite tu choisis l'editeur.
Le copier/coller devient tout naturel

[droggo]

Keo,

Et c'est aussi d'encadrer le code par les balises [*code] [/*code] (sans les *, qui ne servent qu'à les invalider), au lieu de quote.

[krachik]

Bonjour

La methode que j'avais donnée reste de loin la meilleur
La truc c'est d'ouvrir le fichier *.pas avec un editeur de texte (bloc note, pspad, ...). Si tu es sous windows, un click droit -> ouvrir avec->ensuite tu choisis l'editeur.
Le copier/coller devient tout naturel

Ta méthode est une solution mais de loin la meilleure non puisque la méthode initialement utilisée par jeanmich permet de garder l'indentation, ça ne s'est pas fait remarqué parce qu'il avait mis les balises quote à la place des code comme l'a rappelé droggo

Bonnes fêtes à tous.

[droggo]

Joi,

Oups, je n'avais pas remarqué ça :

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

Dans tous les cas, même pour de petits programmes, ne pas se laisser entraîner dans ce genre de situation.

La rigueur dans la conception et écriture du code supprime la plus grande partie des erreurs, ne serait-ce que parce qu'on se retrouve avec un code clair et lisible.

[jeanmich]

oga,

Vous avez jeté un coup d'œil quand même or not ?

Il est trop bordélique ou ça passe quand même ??

Sinon vous me conseillez de chercher une autre manière pour arriver à mes fins ? avec moi de "if" et de "else" et de "while not" ? ^^

[droggo]

Jeo,

Que viennent faire des boucles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while not eof(f) do
 
begin
 
        while not eof(p) do

alors qu'il n'y a pas trace fichier dans tes boucles.

À quoi peuvent servir des lignes comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

                        count:=count+0;

Comme tu l'as dit, c'est un vrai bordel.

Quand on s'est laisser entraîner à faire un truc comme ça, la meilleure solution est de reprendre à zéro, en évitant de faire des copier/coller depuis l'ancien code vers le nouveau, sinon le bordel sera toujours là.

Cette remarque n'est pas une plaisanterie, c'est ainsi qu'on retrouve très fréquemment ce qui ne va pas.

[jeanmich]

Jeo,

Que viennent faire des boucles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while not eof(f) do
 
begin
 
        while not eof(p) do

alors qu'il n'y a pas trace fichier dans tes boucles.

Se sont des fichiers que j'ai ouvert et affiché précédemment dans mon programme !
Et "eof" j'ai trouvé que ça pour arrêter ma boucle au bon moment !

À quoi peuvent servir des lignes comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

                        count:=count+0;

J'ai en faite représenté les 3 solutions possible pour la structures conditionnelle,
la ligne count:=count+0; est une façon de ne rien faire ! vu que je ne savais pas trop quoi mettre ...

Je vais suivre ton conseil et essayer de le refaire ! mais je pense pas que ça va changer grand chose !
Le code mis sur ce forum est déjà le fruit de plusieurs recommencement !
Le premier été largement pire que ça

[droggo]

Qoe,

Se sont des fichiers que j'ai ouvert et affiché précédemment dans mon programme !
Et "eof" j'ai trouvé que ça pour arrêter ma boucle au bon moment !

Relis ce que j'ai écrit, et trouve la contradiction avec ta réponse.

Je vais suivre ton conseil et essayer de le refaire ! mais je pense pas que ça va changer grand chose !

Parce que tu continues à écrire du code sans avoir correctement réfléchi au problème.

Il faut, avant de coder, savoir comment résoudre le problème. En clair, il faut avoir trouvé l'algorithme à appliquer.

Coder plus ou moins au hasard comme tu sembles le faire ne sert à rien, et conduit seulement à

Le code mis sur ce forum est déjà le fruit de plusieurs recommencement !
Le premier été largement pire que ça

[jeanmich]

Laissez tomber tout ça ! désolé de vous avoir fait perdre votre temps !
Je vais essayer autre chose !
on m'a appris que ce que je voulais faire n'était pas vraiment possible.

J'espère que certaines personnes lisent encore ce sujet parce que j'ai une petite question pour vous !

Je voudrais savoir ce qu'il y a dans un tableau lorsque la case est vide ?
Il y a normalement quelque chose mais je n'arrive pas à trouver!
J'espère avoir été clair !

Merci !