ATPS Programação Estruturada
Seminário: ATPS Programação Estruturada. Pesquise 860.000+ trabalhos acadêmicosPor: ramonramon • 23/10/2014 • Seminário • 1.638 Palavras (7 Páginas) • 224 Visualizações
1.1 Português estruturado
algoritmo "ATPS Calculadora básica"
// Seção de Declarações
var
i : inteiro
val1, val2, res : real
op, aguardar : caracter
inicio
// Seção de Comandos
repita
limpatela
escreval("CALCULADORA")
escreval
escreval("(+) SOMA")
escreval("(-) SUBTRACAO")
escreval("(*) MULTIPLICACAO")
escreval("(/) DIVISAO")
escreval("(E) EXPONENCIACAO")
escreval("(R) RAIZ QUADRADA")
escreval("(P) PORCENTAGEM")
escreval("(S) SAIR")
escreva("Opcao: ")
leia(op)
escolha op
caso "+"
escreval("SOMA")
escreva("Primeiro valor: ")
leia (val1)
escreva("Segundo valor: ")
leia (val2)
res<- val1+val2
escreval(val1, " + ", val2, " = ", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "-"
escreval("SUBTRACAO")
escreva("Primeiro valor: ")
leia (val1)
escreva("Segundo valor: ")
leia (val2)
res<- val1-val2
escreval(val1, " - ", val2, " = ", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "*"
escreval("SOMA")
escreva("Primeiro valor: ")
leia (val1)
escreva("Segundo valor: ")
leia (val2)
res<- val1*val2
escreval(val1, " * ", val2, " = ", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "/"
escreval("DIVISAO")
escreva("Primeiro valor: ")
leia (val1)
escreva("Segundo valor: ")
leia (val2)
res<- val1/val2
escreval(val1, " /", val2, " =", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "e"
escreval("EXPONENCIACAO")
escreva("Base: ")
leia (val1)
escreva("Expoente: ")
leia (val2)
res<- val1^val2
escreval(val1, " elevado a ", val2, " =", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "r"
escreval("RAIZ QUADRADA")
escreva("Digite o valor: ")
leia (val1)
res<- raizq(val1)
escreval("Raiz quadrada de", val1, " =", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "p"
escreval("PORCENTAGEM")
escreva("Digite o valor: ")
leia (val1)
escreva("Porcentagem: ")
leia (val2)
res<- val1*val2/100
escreval(val2, " % de", val1, " =", res)
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
caso "s"
escreval("Programa finalizado.")
escreval
escreva("Pressione qualquer tecla para continuar.")
leia(aguardar)
outrocaso
...