ProgrammingThis forum is for all programming questions.
The question does not have to be directly related to Linux and any language is fair game.
Notices
Welcome to LinuxQuestions.org, a friendly and active Linux Community.
You are currently viewing LQ as a guest. By joining our community you will have the ability to post topics, receive our newsletter, use the advanced search, subscribe to threads and access many other special features. Registration is quick, simple and absolutely free. Join our community today!
Note that registered members see fewer ads, and ContentLink is completely disabled once you log in.
If you have any problems with the registration process or your account login, please contact us. If you need to reset your password, click here.
Having a problem logging in? Please visit this page to clear all LQ-related cookies.
Get a virtual cloud desktop with the Linux distro that you want in less than five minutes with Shells! With over 10 pre-installed distros to choose from, the worry-free installation life is here! Whether you are a digital nomad or just looking for flexibility, Shells can put your Linux machine on the device that you want to use.
Exclusive for LQ members, get up to 45% off per month. Click here for more info.
I made a program in dev pascal, and it shows me this:
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
Please help me to resolve the problem thank you.
Quote:
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
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] :=' ';
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; Begin;
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;
LinuxQuestions.org is looking for people interested in writing
Editorials, Articles, Reviews, and more. If you'd like to contribute
content, let us know.