A Programação Funções
Por: lilny • 10/11/2022 • Trabalho acadêmico • 4.716 Palavras (19 Páginas) • 67 Visualizações
programa
{
funcao inicio()
{
inteiro n
escreva("Insira um número: ")
leia(n)
escreva(p(n))
}
funcao inteiro p (inteiro n){
inteiro resp, uni, dez, cent, aux
uni = n % 10
dez = (n % 100)/10
cent = n % 100
aux = uni * 100 + dez * 10 + cent
//aux = (uni, dez, cent)
resp = aux
retorne resp
}
}
programa
{
funcao inicio()
{
inteiro n
cadeia opcao
escreva("Insira um número: ")
leia(n)
escreva("1. Verificar se é par ou ímpar\n")
escreva("2. Verificar se divisível por 3\n")
escreva("3. Calcular o Fatorial\n")
escreva("4. Mostrar tabuada de multiplicação\n")
escreva("5. Escrever valor por extenso\n")
escreva("6. Mostrar o reverso\n")
escreva("Escolha uma das opções")
leia(opcao)
escolha(opcao){
caso 1:
escreva(p(n))
}
funcao cadeia p (inteiro n){
cadeia resp
se(n%2 == 0){
resp = "Número Par."
}senao{
resp = "Número ímpar"
}
retorne resp
}
caso 2:
escreva(d(n))
// }
funcao logico d (inteiro n){
logico resp
resp = n%3 == 0
retorne resp
}
caso 3:
escreva(f(n))
//}
funcao inteiro f (inteiro n){
inteiro fat = 1, resp
enquanto(n > 0){
fat = fat * n
n--
}
resp = fat
retorne resp
}
caso 4:{
m(n)
}
funcao vazio m (inteiro n){
para(inteiro i = 0; i <= 10; i++){
escreva(n, " * ", i, " = ", n * i, "\n")
}
}
caso 5:
escreva(ex(n))
//}
funcao cadeia ex (inteiro n){
inteiro u, dez, cent
cadeia aux = "Extenso: "
u = n % 10
dez = (n % 100)/10
cent = n/100
se(cent == 1){
aux += "Cento e "
}
se(cent == 2){
aux += "Duzentos e "
}
se(cent == 1 e dez == 0 e u == 0){
aux += "Cem"
}
...