Exercício 03 Estrutura de Seleção 2 - Pascal

3) Faça um program que receba dois números e execute uma das operações listadas a seguir
de acordo com a escolha do usuário. Se for digitada uma opção inválida mostrar uma
mensagem de erro e terminar a execução do programa. As opções são:
1. Média entre dois números
2. Diferença entre dois números
3. Produto entre dois números.

Program Cond03 ;
var
 n1,n2 : integer;
 res: real;
 opcao: char;
 Begin
  Write('Informe 1 Numero: ');
  readln(n1);
  Write('Informe 2 Numero: ');
  readln(n2);
   clrscr;
  Writeln('1 ---- Media');
  Writeln('2 ---- Diferenca');
  Writeln('3 ---- Produto');
  Write('Opcao: ');
  readln(opcao);
   if opcao = '1' then
    res := (n1+n2) / 2
   else if opcao = '2' then
    res := (n1-n2)
   else if opcao = '3' then 
    res := (n1*n2);
  Writeln('Resultado: ',res:0:3);    
 End.

Categories: Pascal , Programação