program calculateur;
var
opd1, opd2: real;
oper: char;
begin
writeln(' http://www.Software-DS.com');
writeln;
writeln('Entrez deux operandes');
writeln;
writeln('opd1=');
readln(opd1);
writeln('opd2=');
readln(opd2);
writeln('Votre operateur ? (+ - * /)');
readln(oper);
case oper of
'+':
writeln(opd1, '+', opd2, ' = ', opd1 + opd2 : 2);
'-':
writeln(opd1, '-', opd2, ' = ', opd1 - opd2 : 2);
'*':
writeln(opd1, '*', opd2, ' = ', opd1 * opd2 : 2);
'/':
if opd2 = 0 then
writeln('Division par zero impossible !')
else
writeln(opd1, '/', opd2, ' = ', opd1 / opd2 : 2 : 3);
otherwise { Sur
PC otherwise n'existe pas, mettre: else }
writeln('operateur ', oper, ' non defini');
end;
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
26/09/01 }
end.
|