Algoritmo II - Portfólio 5

Prévia do material em texto

ALGORITMOS II 
 
ATIVIDADES DA AULA 05 
 
 
Para a construção dos algoritmos sugiro a utilização do programa Visualg, porém 
não é obrigatório. Todos os algoritmos desta atividade deverão ser enviados em um 
arquivo com um dos seguintes formatos: .doc, .docx ou .pdf. 
 
1. Faça um algoritmo contendo um procedimento para calcular o índice de massa 
corporal IMC. O resultado deverá ser salvo em uma variável global e mostrado no 
módulo principal. 
 
O peso e altura deverão ser fornecidos por parâmetros (inseridos pelo usuário antes 
da chamada da função no módulo principal). 
 
Algoritmo "IMC" 
 
Var 
 IMC, peso, altura: real 
 
procedimento indice(x,y: real) 
inicio 
 IMC <- x/(y*y) 
fimprocedimento 
 
Inicio 
 escreva ("Digite o valor do peso: ") 
 leia(peso) 
 escreva ("Digite o valor da altura: ") 
 leia(altura) 
 
 indice(peso,altura) 
 
 escreval ("O valor do IMC é de: ", IMC) 
Fimalgoritmo 
 
 
2. Faça um algoritmo contendo um procedimento para receber, por parâmetro, dois 
números positivos e calcular a soma de todos os números inteiros existentes entre 
eles. O resultado deverá ser armazenado em uma variável global e mostrado no 
módulo principal. 
 
Algoritmo "soma" 
 
Var 
 n1,n2,resp: inteiro 
 
procedimento soma(x,y: inteiro) 
var 
 i: inteiro 
inicio 
 resp <- 0 
 para i de x ate y passo 1 faca 
 resp <- resp + i 
 fimpara 
fimprocedimento 
 
Inicio 
 repita 
 escreva ("Digite um número positivo inteiro para n1: ") 
 leia(n1) 
 ate n1 >=0 
 
 repita 
 escreva ("Digite um número positivo inteiro para n2: ") 
 leia(n2) 
 ate n2 >=0 
 
 soma(n1,n2) 
 
 escreval ("A soma dos numeros inteiros entre ",n1," e ",n2, " é de: ", resp) 
Fimalgoritmo