Exercício 07 Estrutura de Seleção - Pascal

7) Elabore um algoritmo que leia o valor de dois números inteiros e a operação aritmética desejada; calcule, então, a resposta adequada. Utilize os símbolos da tabela a seguir para ler qual a operação aritmética escolhida.

Símbolo	Operação aritmética
+ - * /	Adição Subtração Multiplicação Divisão

Program Cond07 ;
var
 a,b : integer;
 opcao: string[1];
 Begin
  Write('Informe 1 Num: ');
  readln(a);
  Write('Informe 2 Num: '); 
  readln(b);
  Writeln('Simbolo    |  Operacao aritmetica');
Writeln('    +      |       Adição');
Writeln('    -      |      Subtração');
Writeln('    x      |    Multiplicacao');
Writeln('    /      |       Divisao');    
 Write('Opcao: ');
 readln(opcao);
 if (opcao='+') then
   Writeln(a,opcao,b,'= ',a+b)
 else if (opcao='-') then
   Writeln(a,opcao,b,'= ',a-b)   
 else if (opcao='x') then
   Writeln(a,opcao,b,'= ',a*b)  
 else if (opcao='/') then
   Writeln(a,opcao,b,'= ',a/b) 
 else Writeln('  Erro! Operador Invalido');  
 
 Writeln('                          by Marcus Vinicius') ;


 End.

Categories: Pascal , Programação