Estou precisando de um programa calculadora com urgência. para VisualG
A calculadora precisa funcionar da seguinte forma:
- Inicialmente, deve ser apresentado um menu com todas as funcionalidades da calculadora. Informar ao usuário que para sair do programa deve ser selecionada a opção 0 (zero) - “0 - Sair”;
- A calculadora deve ser capaz de realizar somas, subtrações, multiplicações, divisões e identificar se um determinado número é primo;
- Ao finalizar a execução de uma operação, o menu com as funcionalidades da calculadora deve ser apresentado novamente para que o usuário possa escolher uma nova operação ou sair do programa.
- Lembrando: Não é possível dividir um número qualquer por zero
Soluções para a tarefa
Resposta:
Visualg 3.0
Explicação:
Algoritmo "calculadoraBrainly"
Var
x: inteiro
Inicio
funcao soma(a,b: real): real
retorne a + b
fimfuncao
funcao subtracao(a,b: real): real
retorne a - b
fimfuncao
funcao multiplicacao(a,b: real): real
retorne a * b
fimfuncao
funcao divisao(a,b: real): real
retorne a : b
fimfuncao
funcao primo(p: inteiro): caractere
var i, z: inteiro
res: inteiro
mensag: caractere
inicio
para i de 1 ate p faca
res <- p % i
se res = 0 entao
z <- z + 1
fimse
se z = 2 entao
mensag <- ("É PRIMO")
senao
mensag <- ("NÃO é primo")
fimse
fimpara
retorne mensag
fimfuncao
procedimento Menu
var
numero1, numero2, resultado: real
y, resultadop: caractere
inicio
escreval ("SELECIONE UMA DAS OPÇÕES ABAIXO")
escreval ("1 - Soma")
escreval ("2 - Subtração")
escreval ("3 - Multiplicação")
escreval ("4 - Divisão")
escreval ("5 - Número Primo")
escreval ("0 - Sair")
leia (x)
escolha x
caso 1
escreval ("Digite o primeiro número: ")
leia (numero1)
escreval ("Digite o segundo número: ")
leia (numero2)
resultado <- soma(numero1, numero2)
escreval (numero1, " + ", numero2, " = ", resultado)
Menu
caso 2
escreval ("Digite o primeiro número: ")
leia (numero1)
escreval ("Digite o segundo número: ")
leia (numero2)
resultado <- subtracao(numero1, numero2)
escreval (numero1, " - ", numero2, " = ", resultado)
Menu
caso 3
escreval ("Digite o primeiro número: ")
leia (numero1)
escreval ("Digite o segundo número: ")
leia (numero2)
resultado <- multiplicacao(numero1, numero2)
escreval (numero1, " x ", numero2, " = ", resultado)
Menu
caso 4
escreval ("Digite o primeiro número: ")
leia (numero1)
escreval ("Digite o segundo número: ")
leia (numero2)
se numero2 <> 0 entao
resultado <- divisao(numero1, numero2)
escreval (numero1, " : ", numero2, " = ", resultado)
senao
escreval ("Impossivel dividir por zero")
fimse
Menu
caso 5
escreval ("Digite um número: ")
leia (numero1)
resultadop <- primo(numero1)
escreval (resultadop)
Menu
caso 0
escreval ("Deseja realmente sair? S / N")
leia (y)
se (y = "S") ou (y = "s") entao
escreva ("Saindo...")
senao
Menu
fimse
outrocaso
escreval ("Opção inválida!")
Menu
fimescolha
fimprocedimento
Menu
Fimalgoritmo