Faça um programa que calcule a média aritmética de 35 alunos do curso de Algoritmos. Use comandos de repetição.
algoritmo "Média"
// Função :
// Autor :
// Data : 25/10/2010
// Seção de Declarações
var
media, nota, soma:real
i:inteiro
inicio
// Seção de Comandos
soma<-0
para i de 1 ate 35 faca
escreva("Entre com a ",i,"a nota")
leia(nota)
soma<-soma+nota
fimpara
media<-soma/35
escreval("A média total é: ",media )
fimalgoritmo
2) Faça um programa que mostre na tela o(s) número(s) dentro do intervalo entre 600 e 700 que sejam múltiplos de 5 e também de 7.
algoritmo "Múltiplos"
// Função :
// Autor :
// Data : 25/10/2010
// Seção de Declarações
var
i<-inteiro
inicio
// Seção de Comandos
para i de 600 ate 700 faca
se((i mod 5 =0) e (i mod 7=0))entao
escreval(i)
fimse
fimpara
fimalgoritmo
3) Faça um programa que, dado um número, imprima a sua tabuada completa.
// Autor :
// Data : 25/10/2010
// Seção de Declarações
var
numero,i :inteiro
inicio
// Seção de Comandos
escreva("Digite o número que você gostaria de ver a tabuada")
leia(numero)
para i de 0 ate 10 faca
total<-numero*i
escreval(numero, "x" ,i, "=",total)
fimpara
fimalgoritmo
4) Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que:
- Não terminem em zero;
- Se o dígito à direita for removido, o número restante seja divisor do número original. (ex: 39 (3 é divisor de 39).
algoritmo "semnome"
// Função :
// Autor :
// Data : 26/10/2010
// Seção de Declarações
var
n1,n2,n:inteiro
digito:real
inicio
// Seção de Comandos
escreva("Entre com o primeiro número: ")
leia(n1)
escreva("Entre com o segundo número: ")
leia(n2)
repita
n<-n2
repita
se(n mod 10 <> 0) entao
k<-n div 10
se(k<>0) entao
se(n mod k = 0) entao
escreval(n)
fimse
fimse
fimse
n<-n+1
ate (n>n2)
fimalgoritmo
5) Faça um programa que seja capaz de calcular o resultado de uma operação de multiplicação (x vezes y), utilizando-se para isso apenas do operador de soma (+).
Ex.: 12 * 3 = 36 = 12+12+12 (3 vezes)
algoritmo "Calcula Multiplicação com SOMA"
// Função :
// Autor :
// Data : 31/10/2010
// Seção de Declarações
var
x,y,i,soma:inteiro
inicio
// Seção de Comandos
y<-0
soma<- 0
escreva("Entre com um número:")
leia(x)
escreva("Entre com um número multiplicador:")
leia(y)
para i de y ate 1 passo -1 faca
soma <- soma+x
fimpara
escreval(x," x ",y," = ",soma)
fimalgoritmo
6) Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-).
Ex.: 12 / 3 = 4 = 12-3=9-3=6-3=3-3=0 (4 vezes)
Re
algoritmo "Calcula Divisão com SUBTRAÇÃO"
// Função :
// Autor :
// Data : 31/10/2010
// Seção de Declarações
var
x,y,vezes,soma:inteiro
inicio
// Seção de Comandos
y<-0
soma<- 0
escreva("Entre com um número:")
leia(x)
escreva("Entre com um número divisor:")
leia(y)
se(x<y) entao
escreva("Não é possível realizar uma divisão inteira")
senao
soma<-x
vezes<-0
repita
soma<-soma-y //Descresce o valor de x
vezes<-vezes+1 //Conta quantas vezes isso acontece até a soma chegar a 0, assim
//tem-se o resultado da divisão
ate(soma=0)
escreval(x," / ",y," = ",vezes)
fimse
fimalgoritmo
7) Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações:
Idade
Peso
Sexo
Este programa deve fornecer como saída:
- A média dos pesos dos homens;
- A média das idades das mulheres;
- Quantas mulheres acima de 25 anos;
algoritmo "Calcula Média e quantidade de mulheres acima de 25 anos"
// Função :
// Autor :
// Data : 31/10/2010
// Seção de Declarações
var
grupoPessoas, quantidadeHomens,quantidadeMulheres,mediaIdadeMulheres,idade,mulheresAcima25Anos:inteiro
mediaPesoHomens,peso:real
sexo:caracter
inicio
idade<-1
quantidadeMulheres<-0
quantidadeHomens<-0
mediapesoHomens <- 0
escreva("Entre com a quantidade de pessoas: ")
leia(grupoPessoas)
se (grupoPessoas > 5 ) entao
para grupoPessoas de grupoPessoas ate 1 passo -1 faca
escreva("Informe o sexo M ou F: ")
leia(sexo)
se (sexo = "M") entao
quantidadeHomens<-quantidadeHomens +1
escreva("Informe o peso do homem: ")
leia(peso)
mediaPesoHomens<- mediaPesoHomens + peso
escreva("Informe a idade do homem: ")
leia(idade)
senao
quantidadeMulheres<-quantidadeMulheres +1
escreva("Informe o peso da mulher: ")
leia(peso)
escreva("Informe a idade da mulher: ")
leia(idade)
mediaIdadeMulheres<- mediaIdadeMulheres + idade
se (idade > 25) entao
mulheresAcima25Anos<- mulheresAcima25Anos + 1
fimse
fimse
fimpara
escreval("A média de peso dos homens é: ",mediaPesoHomens/quantidadeHomens)
escreval(" A media de idade das mulheres é: ",mediaIdadeMulheres/quantidadeMulheres)
se(mulheresAcima25anos = 0) entao
escreva("Não há mulheres acima de 25 anos")
senao
escreval("Há ",mulheresAcima25Anos, " mulheres acima de 25 anos",)
fimse
senao
escreval("O grupo de pessoas é menor que 5")
fimse
fimalgoritmo
8) Fazer um programa para calcular a soma dos N primeiros números, onde N é lido.
Ex.: N=5. Soma = 1+2+3+4+5
algoritmo "Calcula a soma do número e seus antecessores"
// Função :
// Autor :
// Data : 31/10/2010
// Seção de Declarações
var
n,i,soma: inteiro
inicio
// Seção de Comandos
escreva("Digite um número")
leia(n)
para i de n ate 1 passo -1 faca
soma<-i+soma
fimpara
escreval("A soma é:", soma)
fimalgoritmo
