[Resolvido] Multiplicar pares

[Gustavo Rodrigues Torre 0]

O algoritme deve ler vários números inteiros e positivos e calcular o produtório dos números pares. O fim da leitura será indicado pelo número 0.

Obs não sei se eu já postei este algoritmo aqui fiz uma busca e não encontrei

 

Este algoritmo não multiplica os pares direito

Não sei onde esta o erro

 

algoritmo "produto pares"

// Função :

// Autor : Gustavo Rodirgues Torre

// Data : 27/10/07

// Seção de Declarações

var

n : inteiro

acm : inteiro

a : inteiro

p : inteiro

inicio

// Seção de Comandos

p <- 1

enquanto (p<=1) faca

repita

escreva ("Entre com valores: ")

leia(n)

para a de 0 ate n faca

 

se (a%2=0) entao

a <- a * n

fimse

 

fimpara

 

ate (n=0)

escreval("O produto dos pares eh ",a)

escreval("Deseja continuar? (1)Sim (2)Não")

leia(p)

limpatela

 

fimenquanto

fimalgoritmo

[Kandrade 7]

Veja se assim funciona:

 

algoritmo "produto pares"
// Função : 
// Autor : Gustavo Rodirgues Torre
// Data : 27/10/07
// Seção de Declarações 
var
n : inteiro
acm : inteiro
a : inteiro
p : inteiro
inicio
// Seção de Comandos 
   p <- 1
   a <- 1
   enquanto (p<=1) faca

	  escreva ("Entre com valores: ")
	  leia(n)

	  se (n MOD 2=0) entao
		 a <- a * n
	  fimse

	  escreval("Deseja continuar? (1)Sim (2)Não")
	  leia(p)
	  limpatela

   fimenquanto

   escreval("O produto dos pares eh ",a) 
fimalgoritmo

[Gustavo Rodrigues Torre 0]

Funcionou mais o o enquanto e fimenquanto estão nu lugar errado e o algoritmo fica repetindo a mensagem deseja continuar?

Eu tentei resolver mais não consegui

 

 

Veja se assim funciona:

 

algoritmo "produto pares"
// Função : 
// Autor : Gustavo Rodirgues Torre
// Data : 27/10/07
// Seção de Declarações 
var
n : inteiro
acm : inteiro
a : inteiro
p : inteiro
inicio
// Seção de Comandos 
   p <- 1
   a <- 1
   enquanto (p<=1) faca

	  escreva ("Entre com valores: ")
	  leia(n)

	  se (n MOD 2=0) entao
		 a <- a * n
	  fimse

	  escreval("Deseja continuar? (1)Sim (2)Não")
	  leia(p)
	  limpatela

   fimenquanto

   escreval("O produto dos pares eh ",a) 
fimalgoritmo

[Kandrade 7]

O loop está correto.

O que dirá ao algoritmo que a entrada de dados deve ser terminado é isso:

 

O fim da leitura será indicado pelo número 0.

Funcionou mais o o enquanto e fimenquanto estão nu lugar errado e o algoritmo fica repetindo a mensagem deseja continuar?

Eu tentei resolver mais não consegui

Faça assim:

 

algoritmo "produto pares"
// Função : 
// Autor : Gustavo Rodirgues Torre
// Data : 27/10/07
// Seção de Declarações 
var
n : inteiro
acm : inteiro
a : inteiro
p : inteiro
inicio
// Seção de Comandos 
   p <- 1
   a <- 1

   escreva ("Entre com valores: ")
   leia(n)

   enquanto (n<>0) faca

	  se (n MOD 2=0) entao
		 a <- a * n
	  fimse

	  escreva ("Entre com valores: ")
	  leia(n)

   fimenquanto

   escreval("O produto dos pares eh ",a) 
fimalgoritmo

[Gustavo Rodrigues Torre 0]

Mas eu gostaria que o usuario continuasse digitando os numeros sem ser interrompido com a pergunta

E só no final quando o usuário digitar 0 o programa perguntaria se ele sejaria continuar.

E eu sei que o laço esta certo.

Testei e funcionou legal

 

O loop está correto.

O que dirá ao algoritmo que a entrada de dados deve ser terminado é isso:

 

O fim da leitura será indicado pelo número 0.

Funcionou mais o o enquanto e fimenquanto estão nu lugar errado e o algoritmo fica repetindo a mensagem deseja continuar?

Eu tentei resolver mais não consegui

Faça assim:

 

algoritmo "produto pares"
// Função : 
// Autor : Gustavo Rodirgues Torre
// Data : 27/10/07
// Seção de Declarações 
var
n : inteiro
acm : inteiro
a : inteiro
p : inteiro
inicio
// Seção de Comandos 
   p <- 1
   a <- 1

   escreva ("Entre com valores: ")
   leia(n)

   enquanto (n<>0) faca

	  se (n MOD 2=0) entao
		 a <- a * n
	  fimse

	  escreva ("Entre com valores: ")
	  leia(n)

   fimenquanto

   escreval("O produto dos pares eh ",a) 
fimalgoritmo

[Kandrade 7]

Agora está do jeito que voce quer, não?

 

Mas eu gostaria que o usuario continuasse digitando os numeros sem ser interrompido com a pergunta

E só no final quando o usuário digitar 0 o programa perguntaria se ele sejaria continuar.

E eu sei que o laço esta certo.

Testei e funcionou legal

[Gustavo Rodrigues Torre 0]

Agora esta foi mal não tinha visto o seu ultimo post

Problema resolvido

Obrigado de novo

 

Agora está do jeito que voce quer, não?

 

Mas eu gostaria que o usuario continuasse digitando os numeros sem ser interrompido com a pergunta

E só no final quando o usuário digitar 0 o programa perguntaria se ele sejaria continuar.

E eu sei que o laço esta certo.

Testei e funcionou legal

[Kandrade 7]

Foi nada.

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

 

Agora esta foi mal não tinha visto o seu ultimo post

Problema resolvido

Obrigado de novo