Calculadora em Pascal

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Calculadora em Pascal

Mensagem por Allan em 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.
avatar
Allan
Administrador
Administrador

Mensagens : 255
Data de inscrição : 06/07/2011
Idade : 20
Localização : Paraná

http://zetasecurity.forumeiros.com/

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum