Algoritmo II - Portfólio 3

Prévia do material em texto

ALGORITMOS II 
 
ATIVIDADES DA AULA 03 
 
 
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. 
 
Atenção: Se você estiver usando o Visualg, os procedimentos são encerrados pela palavra 
fimprocedimento. 
Exemplo: 
procedimento SOMA (N1, N2: inteiro) 
var 
 RESP: inteiro 
inicio 
 leia(N1) 
 leia(N2) 
 RESP <- N1 + N2 
 escreva(RESP) 
fimprocedimento 
 
1. Faça um algoritmo que contenha um procedimento, onde passado um número inteiro 
n como parâmetro, calcula e mostra o valor de n elevado a segunda potência (n2). O 
valor n deverá ser informado pelo usuário no módulo principal. 
 
Algoritmo "potencia" 
 
Var 
 n: inteiro 
 
procedimento potencia (x: inteiro) 
var 
 RESP: inteiro 
inicio 
 RESP <- x * x 
 escreval ("O valor de ",x," elevado a 2 é de: ",RESP) 
fimprocedimento 
 
Inicio 
 escreva ("Digite o valor de n: ") 
 leia(n) 
 potencia(n) 
Fimalgoritmo 
 
 
2. Faça um algoritmo que contenha um procedimento para calcular a média aritmética 
de dois números inteiros fornecidos por parâmetros. A leitura dos dados e a exibição 
do resultado deverão ser feitas no módulo principal. Dessa forma, o resultado deverá 
ser retornado por passagem de parâmetro por referência. 
 
 
Algoritmo "media" 
 
Var 
 n1, n2, RESP: real 
 
procedimento media (var x,y,z: real) 
inicio 
 z <- (x + y)/2 
fimprocedimento 
 
Inicio 
 RESP <- 0 
 escreva ("Digite o valor de n1: ") 
 leia(n1) 
 escreva ("Digite o valor de n2: ") 
 leia(n2) 
 media(n1,n2,RESP) 
 
 escreval ("A média aritmética entre ",n1," e",n2," é de: ",RESP) 
Fimalgoritmo