Lista De Algoritomos
Pesquisas Acadêmicas: Lista De Algoritomos. Pesquise 860.000+ trabalhos acadêmicosPor: Reginaldo0608 • 29/5/2014 • 286 Palavras (2 Páginas) • 230 Visualizações
Questão 1¬¬¬¬¬¬¬¬¬¬-_____________________________________________________________________
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/10/2013
// Seção de Declarações
var
num1:real
m:inteiro
resultado: real
funcao calculaexponencial(valor:real; n:inteiro): real
var
potencia: real
inicio
potencia<- (valor^n)
retorne potencia
fimfuncao
inicio
escreva ("Digite algum número:")
leia (num1)
escreval ("Digite uma potência:")
leia (m)
resultado <- calculaexponencial(num1,m)
escreva(num1, "elevado a" , m ,"é igual a:" , resultado)
fimalgoritmo
Questão 2_____________________________________________________________________
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/10/2013
// Seção de Declarações
var
contador:inteiro
resultado1,resultado2,resultado3: real
nota1,nota2: real
funcao calculamedia (primeira: real; segunda: real): real
var
media: real
inicio
media <-(primeira+segunda)/2
retorne media
fimfuncao
funcao calculamedia2 (primeira: real; segunda: real): real
var
media: real
inicio
media <-(primeira*4+segunda*6)/4+6
retorne media
fimfuncao
funcao calculamedia3 (primeira: real; segunda: real): real
var
media: real
inicio
media <-(primeira*3+segunda*7)/3+7
retorne media
fimfuncao
inicio
para contador de 1 ate 20 faca
escreval ("Digite a primeira nota:")
leia (nota1)
escreval ("Digite a segunda nota:")
leia (nota2)
resultado1<- calculamedia(nota1,nota2)
resultado2<- calculamedia2(nota1,nota2)
resultado3<- calculamedia3(nota1,nota2)
escreval ("A média é igual a:",resultado1)
escreval ("A primeira média ponderada é igual a:",resultado2)
escreval ("A segudna média ponderada é igual a:", resultado3)
fimpara
fimalgoritmo
Questão 3_____________________________________________________________________
algoritmo "semnome"
// Função :
// Autor :
// Data : 24/10/2013
// Seção de Declarações
var
altura:vetor [1..5] de real
resultado:real
soma:real
i:inteiro
funcao calculamediadaaltura (soma:real):real
var
media:real
inicio
media<-soma/5
retorne media
fimfuncao
inicio
para i de 1 ate 5 faca
escreval ("Informe a sua altura:")
leia(altura[i])
soma<- soma+altura[i]
fimpara
resultado<-calculamediadaaltura(soma)
escreval ("A média das alturas informadas é igual a:",resultado)
...