Criando algoritmos
Abstract: Criando algoritmos. Pesquise 862.000+ trabalhos acadêmicosPor: darknil • 11/10/2014 • Abstract • 339 Palavras (2 Páginas) • 283 Visualizações
kjoedk uiweuhj9o ewidujewiu owediw
eciso de uma 5ª opção para calcular o imc do usuário, não sei usar procedimentos, ajuda ?
90% ta feito.
algoritmo "semnome"
// Função :
// Autor :
// Data : 1/8/2011
// Seção de Declarações
var
n1:inteiro
n2:inteiro
o:inteiro
r:real
inicio
escreval (" Escreva um número. ")
leia(n1)
escreval (" Escreva outro número. ")
leia(n2)
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" Entre com o número da opção abaixo ")
escreval (" 1- soma ")
escreval (" 2- subitração")
escreval (" 3- multiplicação ")
escreval (" 4- divisão ")
escreval ("-.-.-.-.-.-")
leia(o)
escolha o
caso 1
r<-n1+n2
caso 2
r<-n1-n2
caso 3
r<-n1*n2
caso 4
r<-n1/n2
outrocaso
escreval (" Opção inválida! ")
r<-o
fimescolha
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" O resultado é ",r)
// Seção de Comandos
fimalgoritmoejdniu
eciso de uma 5ª opção para calcular o imc do usuário, não sei usar procedimentos, ajuda ?
90% ta feito.
algoritmo "semnome"
// Função :
// Autor :
// Data : 1/8/2011
// Seção de Declarações
var
n1:inteiro
n2:inteiro
o:inteiro
r:real
inicio
escreval (" Escreva um número. ")
leia(n1)
escreval (" Escreva outro número. ")
leia(n2)
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" Entre com o número da opção abaixo ")
escreval (" 1- soma ")
escreval (" 2- subitração")
escreval (" 3- multiplicação ")
escreval (" 4- divisão ")
escreval ("-.-.-.-.-.-")
leia(o)
escolha o
caso 1
r<-n1+n2
caso 2
r<-n1-n2
caso 3
r<-n1*n2
caso 4
r<-n1/n2
outrocaso
escreval (" Opção inválida! ")
r<-o
fimescolha
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" O resultado é ",r)
// Seção de Comandos
eciso de uma 5ª opção para calcular o imc do usuário, não sei usar procedimentos, ajuda ?
90% ta feito.
algoritmo "semnome"
// Função :
// Autor :
// Data : 1/8/2011
// Seção de Declarações
var
n1:inteiro
n2:inteiro
o:inteiro
r:real
inicio
escreval (" Escreva um número. ")
leia(n1)
escreval (" Escreva outro número. ")
leia(n2)
escreval
...