Bonjour, voilà ce que j'ai fait :
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".
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 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.
Merci d'avance
Partager