lucas.rogerio

Olá, preciso fazer uma calculadora basica sem usar variaveis globais, mas não sei como eu poderia fazer isso. Alguém poderia me ajudar? program calc; uses crt; var numero1 : real; numero2 : real; operacao : char; resposta : char; begin clrscr(); writeln('Programa da Calculadora Simples'); repeat writeln(); writeln('Como usar o programa:'); writeln('1. Insira um numero e aperte a tecla ENTER'); writeln('2. Escolha uma operacao e aperte a tecla ENTER'); writeln('3. Insira outro numero e aperte a tecla ENTER'); writeln('4. Informe se quer continuar fazendo calculos com o resultado dessa operacao'); writeln('Insira s para "sim" ou n para "não", e aperte a tecla ENTER'); writeln('5. Caso não queira, informe se quer continuar usando a calculadora'); writeln('Insira s para "sim" ou n para "não", e aperte a tecla ENTER'); writeln(); writeln('Numeros com parte fracionaria devem ser separados com um ponto.'); writeln('Exemplo: 4.5 (certo) | 2,3 (errado)'); writeln(); writeln('Opcoes:'); writeln('+ Adicao'); writeln('- Subtracao'); writeln('* Multiplicacao'); writeln('/ Divisao'); writeln(); write('Escolha o primeiro numero: '); readln(numero1); repeat write('Escolha a operacao desejada: '); readln(operacao); case operacao of '+': begin write('Escolha o segundo numero: '); readln(numero2); numero1 := numero1 + numero2; end; '-': begin write('Escolha o segundo numero: '); readln(numero2); numero1 := numero1 - numero2; end; '*': begin write('Escolha o segundo numero: '); readln(numero2); numero1 := numero1 * numero2; end; '/': begin repeat write('Escolha o denominador: '); readln(numero2); if numero2 = 0 then writeln('O valor do denominador não pode ser 0.'); until numero2 <> 0; numero1 := numero1 / numero2; end; end; writeln('Resultado: ', numero1:5:5); repeat write('Deseja continuar usando esse resultado? (s/n) '); readln(resposta); if (resposta <> 'n') then if (resposta <> 's') then writeln('Reposta invalida. Responda s para sim ou n para não.'); until (resposta = 'n') or (resposta = 's'); until (resposta = 'n'); clrscr(); repeat write('Deseja continuar usando a calculadora? (s/n) '); readln(resposta); if (resposta <> 'n') then if (resposta <> 's') then writeln('Reposta invalida. Responda s para sim ou n para não.'); until (resposta = 'n') or (resposta = 's'); until (resposta = 'n'); writeln('Obrigado por utilizar o Programa da Calculadora Simples!'); end.