ATPS Completa Algoritmo
Por: Giovanna • 8/4/2015 • Trabalho acadêmico • 664 Palavras (3 Páginas) • 305 Visualizações
Relatório – Solução Problema 01
algoritmo "Soma de dois números." //Início do programa
// Função :
// Autor :
// Data : 05/09/2014
// Seção de Declarações
var
num1,num2,soma:inteiro
//Declara as variáveis.
inicio
escreval("Digite o 1º e o 2º número: ")
//Pede para ler os dois números.
leia(num1)
//Faz a leitura do primeiro número.
leia(num2)
//Faz a leitura do segundo número.
Se (num1 mod 2 =1) ou (num2 mod 2 =1) entao
//Verifica a divisão dos números por 2. Se o resto da divisão = 1 então
soma <- num1 + num2
//A variável soma vai receber a soma dos números (no caso: num1 + num2)
escreva("A soma dos números é: ",soma)
//Vai mostrar o resultado dos números.
Fimse
fimalgoritmo
//Fim do programa
Relatório – Solução Problema 02
algoritmo "semnome"
var
nomeamg: caracter
//Variável do tipo texto - nome dos amigos.
soma, media: real
//Variáveis que realizará a soma dos números.
dist, qtd: inteiro
//Variáveis que indicará a distância em número inteiro e a quantidade de amigos.
continua: caracter
inicio
soma <- 0
//Para realizar a operação a soma e a quantidade(qtd) recebem 0.
qtd <- 0
repita
//Comando usado para repetir o código até que continua = "n"/"N".
escreval("Informe o nome do amigo e a distância em metros até sua casa: ")
leia(nomeamg)
//Lê os dados do nome de cada amigo e a distância da casa de cada um deles.
leia(dist)
enquanto (dist <= 0) faca
//Se o usuário digitar distância = 0.
escreval("Reiforme a distância: ")
leia(dist)
// Vai mostrar a mensagem acima.
fimenquanto
qtd <- qtd+ 1
//Vai juntando a quantidade de amigos que o usuário vai informar.
soma <- soma + dist
//Soma recebe ela mesmo mais distância
escreva("Outro amigo? [S/N]: ")
//Caso continua ="s"/"S" o codigo irá se repetir
leia(continua)
ate ((continua <> "S") E (continua <> "s"))
media <- soma / qtd
...