1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| program operation;
uses wincrt;
var a,b,c:real;ope: char;
begin
write('doner deux nombres a et b : ');
read(a,b); { <------ }
if b=0 then begin write('b ne doit pas être nul, veuillez introduire une autre valeur b = ');
read(b) end; { <------ }
writeln('Tapez le signe de l''opération que vous voulez effectuer :');
writeln('+ : pour l''addition de a et b.');
writeln('- : pour la soustraction de b de a.');
writeln('* : pour la multiplication de a et b.');
writeln('/ : pour la division de a par b.');
readln(ope);
if ope='+' then begin c:=a+b; writeln(a,' + ',b,' = ',c) end
else if ope='-' then begin c:=a-b; writeln(a,' - ',b,' = ',c) end
else if ope='*' then begin c:=a*b; writeln(a,' * ',b,' = ',c) end
else if ope='/' then begin c:=a/b; writeln(a,' / ',b,' = ',c) end
else writeln('Pas d''opérateur');
end. |