Calculadora em Pascal

por **Allan** Qui Out 25, 2012 7:28 pm

Código:: program calc; var x,y,res : real; op : char; begin write('Entre com numero X:'); readln(x); write('Entre com numero Y:'); readln(y); write('Escolha a operacao(+ - * /): '); readln(op); if op = '+' then res := (x+y) else if op = '-' then res := (x-y) else if op = '*' then res := (x*y) else if op = '/' then res := (x/y); writeln('Resultado: ',res:0:0); end.

Uma simples calculadora pra ver e estudar.