我正在使用 VisuALG 3.0 而且我已经分析并在浮点错误发生的地方进行了争夺，所以我一直在努力寻找如何解决它，如何制作它当我的计算器将0除以0时消失 （这是无效的浮点运算）。我的老师问我，我接受了。我也尝试使用ABS，但是真诚地说，如果我使用得很好，有任何答案或提示我是不对的？
v̲a̲r̲
// Seção de Declarações das variáveis
OPCAO: inteiro
NUM,N: real
cont: caractere
i̲n̲i̲c̲i̲o̲
// Seção de Comandos, procedimento, funções, operadores, etc...
Escreval("":21,"---------------------")
Escreval("":22,"Calculadora Simples")
Escreval("":21,"---------------------")
Escreval("")
//Loop
Repita
Escreval("OPÇÕES: ")
Escreval("-------")
Escreval("1- SOMA")
Escreval("2- SUBTRAÇÃO")
Escreval("3- MULTIPLICAÇÃO")
Escreval("4- DIVISÃO")
Escreval("5- POTÊNCIA")
Escreval("6- RAIZ QUADRADA")
Escreval("")
Escreva ("Escolha uma opção clicando o número correspondente: ")
Leia (OPCAO)
//Funções se
Se ((OPCAO < 1)ou(OPCAO > 6)) entao
Escreval ("Este número não é uma das opcões!!!")
Fimse
Se ((OPCAO > 0)e(OPCAO < 6)) entao
Escreva ("Introduza um número qualquer: ")
Leia (N)
Escreva ("Introduza mais um número: ")
Leia (NUM)
Escreval("")
Se (NUM = 0) entao
Escreval (N," /",NUM," = Impossível")
fimse
Se (OPCAO = 1) entao
Escreval (N," +",NUM," =",N+NUM)
Senao
Se (OPCAO = 2) entao
Escreval (N," -",NUM," =",N-NUM)
Senao
Se (OPCAO = 3) entao
Escreval (N," x",NUM," =",N*NUM)
Senao
Se (OPCAO = 4) entao
Escreval (N," /",NUM," =",N/NUM)
Senao
Escreval (N," ^",NUM," = ",N ^ NUM)
fimse
fimse
fimse
fimse
fimse
Se (OPCAO = 6) entao
Escreva("Introduza um número qualquer: ")
Leia(N)
Escreval("")
Escreval("Raíz de",N," é:",raizq(N))
fimse
Escreval("----------------------")
Escreva ("Deseja continuar? S/N: ")
Leia (cont)
Se ((cont <> "S")e(cont <> "SIM")) entao
interrompa
fimse
Escreval("")
fimrepita
f̲i̲m̲a̲l̲g̲o̲r̲i̲t̲m̲o̲
