Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

Problème de programme sous Dev-Pascal (2)


vdsba
 Share

Messages recommandés

Salut, depuis ce matin, j'essaie de trouver l'erreur, mais rien, l'erreur est:

Fatal: Unexpected end of file.

Ici vous pouvez trouver mon fichier de cette erreur s'il vous plaît. programme (dev pascal) me montre l'erreur en rouge à la fin.

 

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,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] :='     ';

tabrefdent[1] :='84184';
tabrefdent[2] :='78157';
tabrefdent[3] :='14872';
tabrefdent[4] :='21549';
tabrefdent[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,;writeln('3.Quitter');
    gotoxy(35,;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;
           choi23:
       clrscr;
       gotoxy(25,2);writeln('---------------');
       gotoxy(25,3);writeln('Fichier client');
       gotoxy(25,4);writeln('---------------');
       gotoxy(10,;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,; Writeln('Numero Domicile : ',  tabnum[i] ) ;
 gotoxy(10,9); Writeln('Code postal : ',  tabcode[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 : ',  tabnum[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;

 

Tu sais m'aider pour trouver l'erreur ?? merci d'avance.

Lien vers le commentaire
Partager sur d’autres sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

 Share

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×
×
  • Créer...