opération arithmétique

Aller en bas

opération arithmétique

Message  Admin le Sam 2 Avr - 12:24

ÉNONCÉ

Ecrire une analyse, un algorithme et la traduction pascal d'un programme intitulé OPERATION, qui saisi un réel suivi d’un opérateur parmi (+, -, *, /), suivi d’un deuxième réel et fait sortir le résultat de cette opération.
L’affichage doit être sous la forme : xx.xx opérateur yy.yy = zz.zz

ANALYSE
Nom=Opération
Résultat = Calcul
Calcul= [ ]
Si op <>'/' alors écrire (A,Op ,B,"=",R) sinon si b=O alors écrire ("erreur")
Sinon écrire (A, Op, B,"= ",A/B) B

R= [ ] Selon Op faire
"+" : R ← A+B
"-" : R ← A - B
"*" : R ← A*B
Fin selon
A = donnée ("entrer un nombre")
Op = donnée ("entrer un opérateur parmi : +,-, /,* ")
B = donnée ("entrer un deuxième nombre")
Fin opération

ALGORITHME

0) début opération
1 ) écrire ("entrer un nombre")
lire (A)
2) écrire ("entrer un opérateur parni :+,-,/,* ")
lire (Op)
3) écrire(@'entrer un deuxième nombre")
lire (B)
4) Selon Op faire
"+" : R ← A+B
"-" : R ← A - B
"*" : R ← A*B
Fin selon

5) Si Op <>'/ ' alors écrire (A, Op, B,"=", R) sinon si b=O alors écrire ("erreur")
Sinon écrire (A ,Op,B,"=",A/B)
6) Fin opération

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.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum