Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Estrutura de repetição 2


shadow007

Pergunta

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

Link para o comentário
Compartilhar em outros sites

Posts Recomendados

  • 0

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 por shadow007
Link para o comentário
Compartilhar em outros sites

  • 0
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!!!

Link para o comentário
Compartilhar em outros sites

  • 0

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 por shadow007
Link para o comentário
Compartilhar em outros sites

  • 0

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 por nego drama
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...