[TP] Problème avec mon programme de conversion
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à :
Citation:
68 / 4 groupeme.pas
Fatal: Syntax error, ; expected but . found
Merci d'avance...
Code:
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. |
