(Resolvido) Estrutura de repetição 2

[shadow007]

eo seguinte

Usando a estrutura de repetição (repita...até) elabore um algoritmo que leia 100 números inteiros, maiores que zero e imprima os seguintes resultados:

A soma de todos os números impares;

O produto de todos os números pares;

Quantos números múltiplos de 10 (inclusive), foram digitados;

Quantos números múltiplos de 3 (inclusive), foram digitados;

eu fiz desse jeito

algoritmo "semnome"
// Função :
// Autor :
// Data : 5/3/2008
// Seção de Declarações 
var
   Cont, Multiplo_10, Multiplo_3: inteiro
soma_impares, produto_pares,num: real


inicio
// Seção de Comandos 
// Seção de Comandos
produto_pares <- 1
Repita

Escreva("Digite um numero: ")
Leia(num)
Se (num div 2) <> 0 então
soma_Impares<- soma_impares + num
fimse
Escreva ("soma dos numeros impares:"soma_impares)
Senao
produto_pares<- (produto_pares *num)
Escreva("produto dos numeros pares:" produto_pares)
FimSe
Se (num / 10) então
Multiplo_10 <- Multiplo_10 + 1
Escreva("Quantidade de numeros multiplos de 10:"Multiplo_10)
Senao
FimSe
Se (num / 3) então
Multiplo_3 <- Multiplo_3 + 1
Escreva("Quantidade de numeros multiplos de 3:"Multiplo_3)
FimSe
Cont <- Cont + 1
Ate (Cont = 100)
fimrepita

meu raciocinio esta correto???

da uma força caso não esteja

vlw

abraço

oO

[shadow007]

kara eu fiz desse geito, mais erros q eu não consigo consertar!!! :(

var
num,cont,multiplo_10,multiplo_3,soma_impar,produto_par:inteiro
inicio
// Seção de Comandos
multiplo_10 <- 0
multiplo_3 <- 0
soma_impar <- 0
produto_par <- 1
repita
escreva ("entre com o numero: ")
leia (num)
se (num mod 2 <> ou = 0) então
soma_impar <- soma_impar + 1
fimse
se (num mod 2 = 0) então
produto_par <- produto_par * num
fimse
se (num mod 10 = 0) então
multiplo_10 <- multiplo_10 + 1
fimse
se (num mod 3 = 0) então
multiplo_3 <- multiplo_3 + 1
fimse
ate cont = 5
se (produto_par = 1) então
produto_par <- 0
fimse

da erro nessa linha

se (num mod 2 <> ou = 0) então
soma_impar <- soma_impar + 1

vlw

Te +

Editado Março 14, 2008 por shadow007

[nego drama]

tire ou =

coloque dessa forma

se (num mod 2 <> 0)

[nego drama]

e sobre declar todas a variaveis como inteiro não vejo problema uma vez q os calculos não vao resultar com casas decimal então pode deixalo como inteiro

[Paulo_elite]

kara surgiu uma nova duvida sobra as variaveis

var
num,cont,multiplo_10,multiplo_3,soma_impar,produto_par:inteiro

minha duvida e a seguinte...

todas a variaveis desse algoritmo são do tipo inteiro??

o Paulo_elite faluo o seguinte

Tem um erro fatal nessa declaração..

a soma dos numeros impares, sempre será um número inteiro... por que declarar como tipo real???

O mesmo serve para o produto!!!

ele esta certo?

Pode ficar tranquilo... Esse seu sistema não vai dar resultados fracionários, e sim, apenas de números inteiros...

Na programação, saber declarar ua varável certa, vale espaço em memória e rapidez em execução...

Você ainda está começando a aprender, mais vou lhe dar um exemplo...

Você pode declarar um variável inteira como: shorting, byte, integer, word, longint. Todas essas são variáveis inteiras, porém cada uma pode suportar uma quantidadade de caracteres em memória, e cada uma ocupada um espaço em sua memória RAN...

Isso também existe nos números reais, que você pode declarar como: real, single, double, extended, comp. cada uma tem sua capacidade de armazenamento e ocupa uma quantidade de memória RAN do computador...

Então, não se preocupe, está certo, no seu sistema, todas as variáveis só vão receber dados inteiros, se você fosse colocar isso numa linguagem, já maximizava seu sistema!!!

qualquer dúvida, pode dizer, ok? Espero que já tenha conseguido fazê-lo!

Abraços...

Paulo!!!

[shadow007]

Kara o algoritmo deu pau di novo, ele agora ficou infinto e por ainda por sima não faz nenhum calculo!!!

estou é grilado :angry:

var
num, cont, multiplo_10,multiplo_3, soma_impar,produto_par: inteiro
incio
\\ Seção de Comandos

multiplo_10 <- 0
multiplo_3 <- 0
produto_par <- 1 
soma_impar <- 0
repita
escreva ("entre com o numero: ")
leia (num)
se (num mod  2 <> 0) então
soma_impar <- soma_impar + 1
fimse
se (num mod 2 = 0) então
produto_par <- produto_par * num
fimse
se (nuim mod 10 = 0) então
multiplo_10 <-multiplo_10 + 1
fimse
se (num mod 3 = 1) então
multiplo_3 <- multiplo_3 + 1
fimse
ate cont = 5
se (produto_par = 1) então
produto_par <- 0
fimse
escreva ("soma dos numeros impares", soma_impar, "                                           ")
escreva ("quantidade de produtos pares", produto_par, "                                          ")
escreva ("numero multiplo de dez", multiplo_10, "                                                        ")
escreva ("numero multiplo de trez", multiplo_3, "                                                          ")

se vocês verem algum erro por favor

me diga!!

vlw

abraço

\)_\)

(='.')

((")(")....

Te +

Editado Março 17, 2008 por shadow007

[nego drama]

shadow007 é pouca coisa q estou vendo

você disse q seu algoritmo esta infinito, logo eu observei q você não colocou o contado pra conta

cont := cont + 1 isso um pouco acima do ate cont = 5

var
num, cont, multiplo_10,multiplo_3, soma_impar,produto_par: inteiro
incio
\\ Seção de Comandos

multiplo_10 <- 0
multiplo_3 <- 0
produto_par <- 1 
soma_impar <- 0
repita
escreva ("entre com o numero: ")
leia (num)
se (num mod  2 <> 0) então
soma_impar <- soma_impar + 1
fimse
se (num mod 2 = 0) então
produto_par <- produto_par * num
fimse
se (nuim mod 10 = 0) então {nessa linha você colocou nuim onde deveria ser num}
multiplo_10 <-multiplo_10 + 1
fimse
se (num mod 3 = 1) então
multiplo_3 <- multiplo_3 + 1
fimse
ate cont = 5 {acima dessa linha falta você colocar o contador : cont := cont + 1
se (produto_par = 1) então
produto_par <- 0
fimse
escreva ("soma dos numeros impares", soma_impar, "                                           ")
escreva ("quantidade de produtos pares", produto_par, "                                          ")
escreva ("numero multiplo de dez", multiplo_10, "                                                        ")
escreva ("numero multiplo de trez", multiplo_3, "                                                          ")

outra coisa pra facilitar você poderia trocar a linha escreva por escreval, ai fica um em baixo do outro, não fica na mesma linha

escreval ("soma dos numeros impares:   ", soma_impar)
escreval ("quantidade de produtos pares:   ", produto_par)
escreval ("numero multiplo de dez:  ", multiplo_10)
escreval ("numero multiplo de trez:  ", multiplo_3)

tente e depois poste novamente já vi outras coisa o primeiro é pra achar os numero multiplo de 3 o conciente tem q cer 0 e não 1

se (num mod 3 = 1) então {no lugar de 1 coloque o 0}
      multiplo_3 <- multiplo_3 + 1 
   fimse

pra achar somar os numeros impares

se (num mod  2 <> 0) então
      soma_impar <- soma_impar + 1 {no lugar de 1 coloque num, ai então ele vai calcular todos os numeros impares e não conta quantos numeros impares tem}
   fimse

Editado Março 17, 2008 por nego drama

[shadow007]

vlw pela dica 'nego drama' ^_^

deu certo :D

Te + :)

abraço

[Guest Maura]

algoritmo "Progrma exercicio16"

// Função : uses wincrt;

// Autor : Maura Nairnei de Paiva

// Data : 28/5/2008

// Seção de Declarações

var codigo[5], preço[5]: real;

qtddMenor50, qtddMaior100, i: real;

somaMaior100, mediaMaior100: real;

inicio

para i de 1 ate 5 passo1 faca

escreva('Digite o codigo do ',i,'ª produto');

leia(codigo);

escreva('Digite o preço do ',i,'ª produto');

leia(preço);

fimpara;

qtddMenor: 0;

para i de 1 ate 5 faca

se(preço < 50) então

qtddMenor50= qtddMenor50+1;

fimse;

para i de 1 ate 5 faca

se(preço > 50 e preço[i[ < 100) então

escreva(codigo);

fimse;

fimpara;

qtddMaior100 = 0;

somaMaior100 = 0;

para i de 1 ate 5 faca

se(preço > 100) então

somaMaior100 - somaMaior + preço;

qtddMaior100 = qtddMaior100 + 1;

fimse;

fimpara;

mediaMaior100 = soma maior/qtddMaior100;

escreva('Numero do produtp com preço menor que 50= 'qtddmenor50);

escreva('Preço medio do produoto acima de 100 = ',mediaMaior100);

fimalgoritmo