Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Calculadora
Language: PASCAL
Code:
var
  op, num1, num2: integer;
  result: real;
procedure somar();
begin 
 writeln('Digite dois numeros');
 readln(num1, num2);
 result:= num1+num2;
 writeln(num1'+'num2'='result);
end;
procedure subtrair();
begin 
 writeln('Digite dois numeros');
 readln(num1, num2);
 result:= num1-num2;
 writeln(num1'-'num2'='result);
end;
procedure multiplicar();
begin 
 writeln('Digite dois numeros');
 readln(num1, num2);
 result:= num1*num2;
 writeln(num1'x'num2'='result);
end;
procedure dividir();
begin 
 writeln('Digite dois numeros');
 readln(num1, num2);
 result:= num1/num2;
 writeln(num1'/'num2'='result);
end;
begin
  repeat 
    writeln('Selecione uma das opcoes:');
    writeln('1 - Soma');
    writeln('2 - Subtracao');
    writeln('3 - Multiplicacao');
    writeln('4 - Divisao');
    writeln('5 - Sair');
    readln(op);
    case op of
     1 : begin
         somar();
         end;
     2 : begin
         dividir();
         end;
     3 : begin
         multiplicar();
         end;
     4 : begin
         dividir();
         end;
         else begin
          writeln('Opcao invalida');
         end;
  until(op=5);
end.          
          
          
          
          
          
          
Comments: