j'ai un program pascal (program calculatrice) mais le temp que je compiler j'apercus qu'il y a une faute svp aider moi
c'est mon program de calculatrice :
Program calculatrice ;
Uses crt ;
Var a,b :integer ;
C :real ;
Sign :char ;
Begin
Writeln(‘ecrire a=') ;
Readln(a) ;
Writeln(‘ecrire sign :') ;
Readln(sign) ;
Writeln(‘ecrire b=') ;
Readln(b) ;
If sign : ‘+' then
C := a+b else
If sign : ‘-‘ then
C := a-b else
If sign : ‘*' then
C := a*b else
If sign : ‘/' and b<>0 then
C := a/b else
Writeln(‘pas de solution')
End ;
Writeln(‘resulta=',c) ;
End.
et c'est le message de faute
syntax error, ‘'THEN'' expected but ‘' :'' found
Bonjour ,
je pense que l'erreur est sur "If sign : '+' then "
Je mettrais plutôt If sign = '+' then
Cordialement
bon mon frere je faire comme tu dit et pas de solution et le faute " incompatible types : got "char" expected "real"
Je pense que readln (sign) retourne un entier qu'il te faut comparer avec l'équivalent entier du code ascii de tes caractères .
Il serait plus simple que tu utilises des chaines de 1 caractère (string) et gets pour la lecture . Ainsi tu n'as pas besoin de conversion .
cool mon amie merci bcp il ça marche bien you are the best mais il faut faire des modification pour améliorer ton programme comme éviter la puissance comme 1.40000000000000E+000 et aussi la division /0 impossible il faut que le programme affiche cette message en tout cas merci bcp
ecrire aprés (resultat =,c :5:2)
aussi avant (resultat=,c)
if (signe='/') and (b<>0) then c:=a/b
if (signe='/') and (b=0) then writeln(' devision par 0 impossible)
Vous devez être membre accéder à ce service...
Pas encore inscrit ?
1 compte par personne, multi-compte interdit !
Ou identifiez-vous :