Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ASd
Language: PASCAL
Code:
program OPERAÇÕES;
uses Crt;
{ Função :}
{ Autor :}
{ Data : 12/11/2013}
{ Seção de Declarações}
var
op:integer;
x,y:real;
begin
   { Seção de Comandos}
   {Coleta de Dados}
   write ('Digite X :');
   readln ( x );
   write ('Digite Y :');
   readln ( y );
   {Seleção de Opção}
   writeln ('Digite a operação desejada!');
   writeln (' (1)-Multiplicar');
   writeln (' (2)-Dividir');
   writeln (' (3)-Somar');
   writeln (' (4)-Subtrair');
   writeln;
   readln (op);
   {Processamento das Opções}
{Atenção: As restrições de case ... of no Pascal são maiores que de
          escolha ... fimescolha no Visualg.} 
   case op := 1 until 4 of
   1 : 
   begin
      writeln ('O resultado da multiplicação é: ' , x * y );
   end;
   2 : 
   begin
      writeln ('O resultado da divisão é: ' , x / y );
   3 : 
   begin
      writeln ('O resultado da soma é: ' , x + y );
   end;
   4 : 
   begin
      writeln ('O resultado da subtração é: ' , x - y );
   end;
   else
   begin
      writeln ('Opção Inválida');
   end;
   end;
   {The End}
end.
Comments: