Question

(Em Pascal)
Faça um algoritmo chamado calculadora. O sistema deve exibir as opções e o usuário deve escolher a operação e fornecer dois números. Cada operação deverá ser criado em um procedimento (procedure/sub-rotina).

Answer 1

// (Em Pascal)
// Faça um algoritmo chamado calculadora. 
// O sistema deve exibir as opções e o usuário deve 
// escolher a operação e fornecer dois números. 
// Cada operação deverá ser criado em 
// um procedimento (procedure/sub-rotina).
//
program alunos;

function soma( parcela1 : real ; parcela2 : real) : real;
begin
   soma := parcela1 + parcela2 ;
end;

function multiplica( fator1 : real ; fator2 : real) : real;
begin
   multiplica := fator1 * fator2 ;
end;

function exibe_menu() : integer;
var opcao : integer;
begin 
       writeln();
       writeln('Selecione uma operação abaixo');
       writeln('1- Somar');
       writeln('2- Subtrair');
       writeln('3- Multiplicar');
       writeln('4- Dividir');
       writeln('5- Sair');
       readln(opcao);
  exibe_menu := opcao;
end;

var
operando1, operando2, resultado : real;
qual_operacao : integer;


begin
    
    while true do begin 
        qual_operacao := exibe_menu();
        if qual_operacao = 5 then begin
            writeln('Programa terminado pelo usuário');
            break;
        end;
        writeln();
        write('Informe o primeiro operando ');
        readln(operando1);
        write('Informe o segundo operando ');
        readln(operando2);
        case (qual_operacao) of 
            1: resultado := soma(operando1,operando2);
            2: resultado := soma(operando1,-operando2);
            3: resultado := multiplica(operando1,operando2);
            4: resultado := multiplica(operando1,1/operando2);
        else
            writeln('Opção Inválida. selecione 1 a 4 ou 5 para sair');
        end;
        writeln('O resultado é ', resultado:5:2);
    end;
end.