Condition pour empêcher une division par 0
Bonjour, voilà ce que j'ai fait :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| program calcul ;
var a, b , c , d , e , f : integer ;
begin
write('entrer a : ');
readln(a) ;
write('entrer b : ') ;
readln(b) ;
c := a + b;
d := a - b;
e := a * b;
f := a div b;
if (b<>0) then f := a div b ;
if (b=0) then write( ' division impossible');
writeln('a + b = ', c );
writeln('a - b = ', d );
writeln('a * b = ', e );
writeln('a / b = ', f );
end. |
mon programe doit afficher la somme, la différence, le produit ainsi que le quotient. Mon probleme est que, lorsque b est égal à 0, l'ordi me met une erreur, donc pour cela j'aimerais savoir comment exprimer la condition qui, lorsque b = 0, ne fait pas la division mais affiche "opération impossible".
Merci d'avance