atividade 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 "Calcular Potencia" 
// Disciplina : Algoritmos 2 
// Professor : Marcos Alves Mariano 
// Descrição : Recebe um número inteiro e eleva a segunda potencia 
// Autor(a) : Fabiano Almeida de Castro 
// Data atual : 19/11/2021 
 
procedimento CALCULO 
 
Var 
// Seção de Declarações das variáveis 
numero, total: inteiro 
 
inicio 
 
escreva("Informe um número inteiro: ") 
 leia(numero) 
 total <- numero * numero 
 escreva("O número", numero, " elevado a segunda potência é:", total) 
fimprocedimento 
 
inicio 
 
 CALCULO 
 
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 "Média aritmética" 
// Disciplina : Algoritmos 2 
// Professor : Marcos Alves Mariano 
// Descrição : Receber dois números inteiros e calcular a média aritmética 
// Autor(a) : Fabiano Almeida de Castro 
// Data atual : 19/11/2021 
 
procedimento MEDIA (n1, n2, med: real) 
var 
 media: inteiro 
 
inicio 
 med <- (n1 + n2) / 2 
 escreval("Média Aritmética: ", med) 
 
fimprocedimento 
 
var 
 n1, n2, med, media: inteiro 
 
inicio 
 escreva("Digite o primeiro número inteiro:") 
 leia (n1) 
escreva("Digite o segundo número inteiro:") 
 leia (n2) 
 
 MEDIA(n1, n2, med) 
 
Fimalgoritmo