opérations arithmétiques
aide scolaire :: informatique :: programmation pascal :: les structures conditionnelles :: exercices
Page 1 sur 1
opérations arithmétiques
ÉNONCÉ
Ecrire un programme intitulé OPERATION, qui saisi un entier a suivi d’un opérateur parmi (+, -, *, /), suivi d’un deuxième entier b et affiche le résultat de cette opération.
L’affichage doit être sous la forme
a opérateur b = résultat
PASCAL
program operation;
uses wincrt;
var Op :char;
a,b,R :INTEGER;
begin
writeln('entrer un nombre: ');
readln(a);
writeln('entrer un opérateur parmi : *,-,/,+ ');
readln(Op);
writeln('entrer un deuxième nombre: ');
readln(b);
case Op of
'+': r:=a+b;
'-': r:=a-b;
'*': r:=a*b;
end;
if Op <> '/' then write(a,Op,b ,'=',R)else if b=0 then write ('erreur')
else write(a,Op,b,'=',a/b)
end.
Ecrire un programme intitulé OPERATION, qui saisi un entier a suivi d’un opérateur parmi (+, -, *, /), suivi d’un deuxième entier b et affiche le résultat de cette opération.
L’affichage doit être sous la forme
a opérateur b = résultat
PASCAL
program operation;
uses wincrt;
var Op :char;
a,b,R :INTEGER;
begin
writeln('entrer un nombre: ');
readln(a);
writeln('entrer un opérateur parmi : *,-,/,+ ');
readln(Op);
writeln('entrer un deuxième nombre: ');
readln(b);
case Op of
'+': r:=a+b;
'-': r:=a-b;
'*': r:=a*b;
end;
if Op <> '/' then write(a,Op,b ,'=',R)else if b=0 then write ('erreur')
else write(a,Op,b,'=',a/b)
end.
optimisation
modifiez cette solution pour qu'elle puisse détecter l'erreur dans le cas ou le caractère saisi n'appartient pas à "-","+","*","/"
aide scolaire :: informatique :: programmation pascal :: les structures conditionnelles :: exercices
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum