Re : Aide pour trouver les erreurs dans mon programme pascal

[invite3d8723d1]

bonjour, svp vous pouvez m'aider a trouver l'erreur dans ce programme ?? 1 seule erreur que je ne trouve pas. merci

program septembre ;
uses crt;
var nom,choix:string;
var tabnom: array [ 1..10 ] of string ;
var tabpre: array [ 1..10 ] of string ;
var tabrue: array [ 1..10 ] of string ;
var tabnum: array [ 1..10 ] of string ;
var tabcode: array [ 1..10 ] of string ;
var tabloc: array [ 1..10 ] of string ;
var tabpay: array [ 1..10 ] of string ;
var tabtel: array [ 1..10 ] of string ;
var tabdat: array [ 1..10 ] of string ;
var tabref: array [ 1..10 ] of string ;
var tablib: array [ 1..10 ] of string ;
var tabpri: array [ 1..10 ] of string ;
var tabarr: array [ 1..10 ] of string ;
var tabnam: array [ 1..10 ] of string ;
var tabrefdent: array [ 1..10 ] of string ;
var tabsou: array [ 1..10 ] of string ;
var tabmai: array [ 1..10 ] of string ;
var tabcod: array [ 1..10 ] of string ;
var {choix,} art, i: integer;
LABEL choi,choi2,choi21,choi11,choi22,choi23,choi24,choi25,choi26,choi27,choi28;
begin

  tabnom[1] :='Bodenhorst';
 tabnom[2] :='Semal';
 tabnom[3] :='Swisser';
 tabnom[4] :='Michel';
 tabnom[5] :='       ';
 tabnom[6] :='       ';


 tabpre[1] :='Nicolas';
 tabpre[2] :='Elora';
 tabpre[3] :='Maureen';
 tabpre[4] :='Tim';
 tabpre[5] :='  ';

 tabrue[1] :='rue de Janville';
 tabrue[2] :='rue de la Maladrerie';
 tabrue[3] :='rue de saussois';
 tabrue[4] :='rue du Brasseur';
 tabrue[5] :='rue de Haute Pieree';
 tabrue[5] :='     ';

 tabnum[1] :='92';
 tabnum[2] :='81';
 tabnum[3] :='15';
 tabnum[4] :='22';
 tabnum[5] :='     ';

 tabcode[1] :='1350';
 tabcode[2] :='1370';
 tabcode[3] :='1367';
 tabcode[4] :='1357';
 tabcode[5] :='     ';

 tabloc[1] :='Jandrain';
 tabloc[2] :='Jodoigne';
 tabloc[3] :='Grand-rosiere';
 tabloc[4] :='Helecine';
 tabloc[5] :='     ';

 tabpay[1] :='Belgique';
 tabpay[2] :='Belgique';
 tabpay[3] :='Belgique';
 tabpay[4] :='Belgique';
 tabpay[5] :='     ';

 tabtel[1] :='015/55.66.05';
 tabtel[2] :='081/45.12.01';
 tabtel[3] :='010/94.73.54';
 tabtel[4] :='019/63.61.80';
 tabtel[5] :='     ';

 tabdat[1] :='20120710';
 tabdat[2] :='20120610';
 tabdat[3] :='20120410';
 tabdat[4] :='20120910';
 tabdat[5] :='     ';

 tabref[1] :='1';
 tabref[2] :='2';
 tabref[3] :='3';
 tabref[4] :='4';
 tabref[5] :='     ';

 tablib[1] :='Extraction simple';
 tablib[2] :='courone temporaire';
 tablib[3] :='Prothèse temporaire';
 tablib[4] :='Prothèse partielle';
 tablib[5] :='     ';

 tabpri[1] :='50 euros';
 tabpri[2] :='129 euros';
 tabpri[3] :='75 euros';
 tabpri[4] :='549 euros';
 tabpri[5] :='     ';

 tabarr[1] :='20120729';
 tabarr[2] :='20120822';
 tabarr[3] :='20121130';
 tabarr[4] :='20121003';
 tabarr[5] :='     ';

 tabnam[1] :='Bodenhorst';
 tabnam[2] :='Semal';
 tabnam[3] :='Swisser';
 tabnam[4] :='Michel';
 tabnam[5] :='     ';

 tabrefdent[1] :='84184';
 tabrefdent[2] :='78157';
 tabrefdent[3] :='14872';
 tabrefdent[4] :='21549';
 tabrefdent[5] :='     ';

tablib[1] :='Extraction simple';
 tablib[2] :='courone temporaire';
 tablib[3] :='Prothèse temporaire';
 tablib[4] :='Prothèse partielle';
 tablib[5] :='                  ';

     choi:
     clrscr;
     gotoxy(25,2);writeln('--------------');
     gotoxy(25,3);writeln('Menu principal');
     gotoxy(25,4);writeln('--------------');
     gotoxy(10,6);writeln('1.Fichier client');
     gotoxy(10,7);writeln('2.Bon de commande commande');
     gotoxy(10,8);writeln('3.Quitter');
     gotoxy(35,8);readln(choix);
     if (choix = '1') then begin
        gotoxy(10,10);writeln('Vous avez choisi Fichier client');
        readln;
        goto choi21;
        end;
     if (choix = '2') then begin
           gotoxy(10,10);writeln('Vous avez choisi de creer un bon de commande');
           readln;
           goto choi22;
        end;
     if (choix ='3') then begin
        gotoxy(10,10);writeln('Le programme va fermer');
        readln();
        exit;
     end;
        choi2:
        clrscr;
        gotoxy(25,2);writeln('==============');
        gotoxy(25,3);writeln('Fichier client');
        gotoxy(25,4);writeln('==============');
        gotoxy(10,6);writeln('4.client');
        gotoxy(10,9);writeln('5.Menu principal');
        gotoxy(35,9);readln(choix);
        if (choix = '5') then begin
            goto choi;
            end;
        if (choix = '4') then begin
            goto choi23;
            end;
            choi11:
        clrscr;
        gotoxy(25,2);writeln('---------------');
        gotoxy(25,3);writeln('Fichier client');
        gotoxy(25,4);writeln('---------------');
        gotoxy(10,8);writeln('Nom du client : ');
        gotoxy(10,9);writeln('Prenom du client : ');
        gotoxy(10,15);readln(nom);
        gotoxy(35,9);readln(art);
        i:=1;
        while i < 10 do
   begin
   if nom = tabnom[i] then
   begin;
   clrscr;
    gotoxy(20,16);
    Writeln(' Affichage client ');
  gotoxy(10,5); Writeln('Nom client  : ',  tabnom[i] ) ;
  gotoxy(10,6); Writeln('Prenom client : ',  tabpre[i] ) ;
  gotoxy(10,7); Writeln('Rue client  : ',  tabrue[i] ) ;
  gotoxy(10,8); Writeln('Numero Domicile : ',  tabmai[i] ) ;
  gotoxy(10,9); Writeln('Code postal : ',  tabcod[i] ) ;
  gotoxy(10,10); Writeln('Localisation : ',  tabloc[i] ) ;
  gotoxy(10,11); Writeln('Pays : ',  tabpay[i] ) ;
  gotoxy(10,12); Writeln('telephone : ',  tabtel[i] ) ;
  gotoxy(10,13); Writeln('Date de commande : ',  tabdat[i] ) ;
  gotoxy(10,14); Writeln('Reference article : ',  tabref[i] ) ;
  gotoxy(10,15); Writeln('Libele article : ',  tablib[i] ) ;
  gotoxy(10,16); Writeln('Numero Domicile : ',  tabmai[i] ) ;


    readln();
 end;

      gotoxy(20,4);writeln('5.Menu principal');
        if (choix = '5') then begin
            goto choi;
        end;

         choi22:
        clrscr;
        gotoxy(25,2);writeln('----------------');
        gotoxy(25,3);writeln('Bon de commande');
        gotoxy(25,4);writeln('----------------');
        gotoxy(10,7);writeln('6.Creation du bon de commande');
        gotoxy(10,9);writeln('7.Menu principal');
        gotoxy(35,9);readln(choix);
        if (choix = '7') then begin
            goto choi;
            end;
        if (choix = '6') then begin
            goto choi24;
            end;



end.

-----

[Jack]

Bonjour, pour un nouveau problème, il faut ouvrir une nouvelle discussion, ce que je viens de faire.

Pour présenter du code, il est d'usage d'utiliser les balises codes comme c'est bien précisé en tête du forum.

[invite3d8723d1]

sincèrement désolé, je ne savait pas. pouviez vous m'aider a trouver l'erreur ??
jai ça comme message d'erreur :

183 / 60 qualif~3.pas
Warning: Variable TABMAI does not seem to be initialized

184 / 56 qualif~3.pas
Warning: Variable TABCOD does not seem to be initialized

216 / 4 qualif~3.pas
Fatal: Syntax error, ; expected but . found

[Jack]

vous pouvez m'aider a trouver l'erreur dans ce programme ?? 1 seule erreur que je ne trouve pas

Il faut être plus précis!
Quel type d'erreur? A la compilation ou à l'exécution.

Si compilation: montrer le message d'erreur
Si exécution, expliquer ce que doit faire le programme et expliquer ce qui te fait croire qu'il ne fonctionne pas

A+

Edit: nos messages se sont croisés.

[A voir en vidéo sur Futura]

[Jack]

Warning: Variable TABMAI does not seem to be initialized

Il sufft de traduire et tu as ta réponse

Fatal: Syntax error, ; expected but . found

pareil

A+

[invite3d8723d1]

C'est quand je veux compilé, voila ce que ça donne :

[Jack]

On ne va pas s'amuser à compter les lignes. Indique lesquelles sont concernées.

A+

[invite3d8723d1]

les lignes concernés sont :

gotoxy(10,8); Writeln('Numero Domicile : ',  tabmai[i] ) ;

gotoxy(10,9); Writeln('Code postal : ',  tabcod[i] ) ;

et

end.

[Jack]

Ok.

As-tu compris ce que veut dire :"Variable TABMAI does not seem to be initialized"?

A+

[invite3d8723d1]

Non désolé, c'est pour ça je cherche de l'aide

[Jack]

Si tu ne parles pas un anglais aussi basique, il faut abandonner l'informatique. Tu as essayé un traducteur en ligne?

Variable TABMAI does not seem to be initialized -> la variable TABMAI ne semble pas avoir été initialisée.

[invite3d8723d1]

vous pouvez corriger mon programme svp, Si c'est possible biensur.

[Jack]

Syntax error, ; expected but . found -> erreur de syntaxe: un ; était attendu alors qu'un . a été trouvé

Assez évident à corriger il me semble

[Jack]

vous pouvez corriger mon programme svp, Si c'est possible biensur.

Ah non! Comme c'est indiqué également en tête du forum, ici, on ne donne pas les réponses toutes faites, mais on guide pour trouver la réponse.
Mais il faudra que tu aies un minimum de connaissances du langage PASCAL pour cela.

A+

[invite3d8723d1]

Mr, moi je suis dans la maintenance, la programmation n'est pas mon domaine, c'est juste pour ma fille que j'essai d'aider.

[Jack]

Si c'est votre fille qui fait de l'informatique, le plus judicieux serait d'essayer de l'impliquer dans la résolution de ce problème.

A+

[invite3d8723d1]

Re salut, voila j'ai réparé 2 erreur, mail il me reste 1 seule

207 qualif~1.pas
 Fatal: Unexpected end of file

pls help

[Jack]

En principe, c'est qu'il n'y a pas autant de begin que de end, mais sans le programme corrigé, difficile de deviner.

A+

[Cyrille999]

Re salut, voila j'ai réparé 2 erreur, mail il me reste 1 seule

207 qualif~1.pas
 Fatal: Unexpected end of file

pls help

Il faudrait que tu redonnes le code source complet après correction.

Autre question: C'est pour un exercice ou pour une utilisation professionnelle cette "application" ?

Cyrille

[gerald_83]

Edit : Oups, désolé pour la redondance,

Message effacé