Discussion :

[Panzer95]

Bonjour

Voilà je viens de commencer à programmer en Turbo Pascal et j'utilise aussi Dev-Pascal. Je suis en train de créer un programme de conversion franc-euro et l'inverse. Mais, malgré toutes mes vérifications, il me trouve encore un problème. C'est un programme assez basique donc voilà c'est mon premier.
Voila mon code soyez pas trop méchants, c'est mon premier programme. Je sais que j'ai dû faire pas mal d'erreurs donc signalez-les moi svp !!!!
L'erreur qui se passe quand je compile est celle-là :

68 / 4 groupeme.pas
Fatal: Syntax error, ; expected but . found

Merci d'avance...

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
37
38
Program convertisseur;
Uses wincrt ;
 
Var valeur : integer ; // <== il me dit que l'erreur serait la!!!!
    nombre : integer ;
    valeurfranc : real ;
    valeureuro : integer ;
 
Begin
  clrscr;
  valeureuro := 1 ;
  valeurfranc := 6.56 ;
  WriteLn ( ' Bienvenu sur mon programme de convertion ');
  WriteLn ( ' 1 . Euros en Franc ' ) ;
  WriteLn ( ' 2 . Franc en euros ' ) ;
  ReadLn (valeur);
 
  If ( valeur = 1 ) then
     begin
       Writeln ( ' Ecris un prix en euros stp ') ;
       Readln ( nombre ) ;
       Writeln ( ' ok ton prix est de ' , nombre , ' euros ');
       Readln ;
       nombre := nombre * valeurfranc ;
       Writeln ( ' cela fait ' , nombre , ' francs ' ) ;
       Readln ;
     end;
 
  If ( valeur = 2 ) then
     begin
       Writeln ( ' Ecris un prix en franc stp ') ;
       Readln ( nombre) ;
       writeln ( ' ok ton prix est de ' , nombre , ' franc ' );
       readln ;
       nombre := nombre / valeureuro ;
       writeln ( ' cela fait ' , nombre , ' euro ' ) ;
       readln ;
end.

[Alcatîz]

Bonjour !

Du Turbo Pascal sous Dev-Pascal et avec l'unité WinCRT ?!?
Ne serait-ce pas du Free Pascal plutôt ?

Ceci dit, le problème vient du mélange d'entiers et de réels.Si tu déclares toutes tes variables de calcul en réels (et si tu ajoutes un end à la fin du dernier if ) ça devrait tourner.

Bonne prog !

P.S. Pense à indenter ton code et à utiliser les balises ad-hoc.

[Eric Sigoillot]

Bonjour,

Tu interprètes mal le message d'erreur du compilateur : 68/4 signifie qu'il y a une erreur à la ligne n°68, caractère n°4.
Le problème vient de ton dernier bloc begin...end. N'oublie jamais de vérifier : pour chaque begin il doit y avoir un end. Ce n'est pas le cas dans ton programme.

Enfin, comme l'a dit Alcatîz, tu as un problème avec le choix des types des variables. Tu peux mettre un entier dans un réel, mais pas l'inverse. L'argent est toujours un nombre réel : il faut compter avec les centimes. Les entiers n'ont pas leur place ici.

Pour terminer, l'unité WinCrt est absolument inutile pour ce ue tu veux faire : tu peux l'enlever avec ClrScr.

@++

[Panzer95]

Rebonjour
J'ai fais les modifications que vous m'avez dit cela marche a merveille merci c fou comme un mot et quelque petite modif peuvent tout changer cependant je viens de remarquer une seconde erreur.Mintenant quand je lance mon programme( e vi il marche ) quand je demande d'ecrire un prix par exemple 10euros il me mark quand je confirm 1.000000000000000e+001 euros c'est dût a quoi?Comment je peu faie pour le modifier?
Merci d'avance

P:S: étant newbie je comprend pas ce que veut dire ''indenter ton code et utiliser des balises ad-hoc?

[Eric Sigoillot]

Bonjour,

La réponse à ta question se trouve dans la FAQ : http://pascal.developpez.com/faq/?pa...ms#Formatreels

Indenter son code signifie qu'il faut utiliser des espaces à bon escient pour le rendre lisible. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
begin
instruction;
instruction;
begin
instruction;
instruction;
end;
instruction;
end;

Code :

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

1
2
3
4
5
6
7
8
9
begin
  instruction;
  instruction;
  begin
    instruction;
    instruction;
  end;
  instruction;
end;

Et il faut utiliser les balises [code] et [/code] pour encader tes bouts de code.

@++

[Panzer95]

Génial sa marche merci beaucoup
Par contre je suis bete j'aurai du chercher un peu mieux avant de te demander.Merci encore je l'"ai encoe ameliorer un peu en rajoutant le dollar avec l'euro si tu veux je te montrerai se que sa donen en final.
En tout cas merci encore et peut etre a bientot
Panzer95