[Resolvido] Repetição

[Gustavo Rodrigues Torre 0]

Escrever um algoritmo que leia um número não determinado de valores e calcule a média aritmética dos valores lidos, a quantidade de valores positivos, a quantidade de valores negativos e o percentual de valores negativos e positivos. Mostre os resultados. O número zero encerra a entrada de dados.

 

Eu fiz assim mais ta dando erro não sei onde

 

algoritmo "contagem"

// Função :

// Autor :

// Data : 01/11/07

// Seção de Declarações

var

somap,soman : real

iguaisp, iguaisn : real

ma, po : real

n : inteiro

c : inteiro

inicio

// Seção de Comandos

 

repita

 

escreva("Entre com valores")

leia(n)

 

se (n > 1) entao

somap <- n + somap

iguaisp <- n + 1

fimse

se (n < 1) entao

soman <- n + soman

iguaisn <- n + 1

fimse

 

 

ma <- (iguaisp + iguaisn) / (somap + soman)

po <- iguaisn / (somap + soman) * 0.01

 

escreval

escreval("A quantidade de numeros positivos ",iguaisp)

escreval("A quantidade de numeros negativos ",iguaisn)

escreval("A media de numeros positivos e negativos ",ma)

escreval("A porcentagem de positivos e negativos",po)

 

ate(n<>0)

 

fimalgoritmo

[Kandrade 7]

O laço está fechando no lugar errado.

 

Veja isso:

 

algoritmo "contagem"
// Função : 
// Autor :
// Data : 01/11/07
// Seção de Declarações 
var
   somap,soman : inteiro
   numeros : inteiro
   ma, po : real
   n : inteiro
   c : inteiro
inicio
// Seção de Comandos 

numeros <- 0
repita

   escreva("Entre com um valor")
   leia(n)

   se (n > 0) entao
	  somap <- n + somap
   fimse

   se (n < 0) entao
	  soman <- n + soman
   fimse

   numeros <- numeros + n
ate n = 0

Abaixo desse ate n = 0 que deve vir os calculos.

 

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

[Gustavo Rodrigues Torre 0]

O final do algoritmo eu não estou sabendo alterar

 

algoritmo "contagem"

// Função :

// Autor :

// Data : 01/11/07

// Seção de Declarações

var

somap,soman : inteiro

numeros : inteiro

ma, po : real

n : inteiro

c : inteiro

inicio

// Seção de Comandos

 

numeros <- 0

repita

 

escreva("Entre com um valor")

leia(n)

 

se (n > 0) entao

somap <- n + somap

fimse

 

se (n < 0) entao

soman <- n + soman

fimse

 

numeros <- numeros + n

 

ate n = 0

 

 

ma <- (iguaisp + iguaisn) / (somap + soman)

po <- iguaisn / (somap + soman) * 0.01

 

escreval

escreval("A quantidade de numeros positivos ",iguaisp)

escreval("A quantidade de numeros negativos ",iguaisn)

escreval("A media de numeros positivos e negativos ",ma)

escreval("A porcentagem de positivos e negativos",po)

 

 

fimalgoritmo

 

O laço está fechando no lugar errado.

 

Veja isso:

 

algoritmo "contagem"
// Função : 
// Autor :
// Data : 01/11/07
// Seção de Declarações 
var
   somap,soman : inteiro
   numeros : inteiro
   ma, po : real
   n : inteiro
   c : inteiro
inicio
// Seção de Comandos 

numeros <- 0
repita

   escreva("Entre com um valor")
   leia(n)

   se (n > 0) entao
	  somap <- n + somap
   fimse

   se (n < 0) entao
	  soman <- n + soman
   fimse

   numeros <- numeros + n
ate n = 0

Abaixo desse ate n = 0 que deve vir os calculos.

 

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

[Kandrade 7]

Tente assim:

 

ma <- numeros / (somap + soman) //media dos numeros lidos
po <- somap / numeros //porcentagem de numeros positivos

escreval
escreval("A quantidade de numeros positivos ",somap)
escreval("A quantidade de numeros negativos ",soman)
escreval("A media de numeros positivos e negativos ",ma)
escreval("A porcentagem de positivos e negativos",po)

duas observações:

 

1. Quando n = 0 o contador numeros é incrementado. Solução logo após o fim do loop faça contador <- contar - 1

2. Zere as variáveis somap e soman antes de entrar no laço.

 

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

[Gustavo Rodrigues Torre 0]

Eu fiz assim no inicio do algoritmo

 

Isto esta correto?

numeros <- 0

somap <- 0

soman <- 0

repita

.

.

.

 

ate n = 0

 

c <- c - 1

 

ma <- numeros / (somap + soman) //media dos numeros lidos

po <- somap / numeros //porcentagem de numeros positivos

 

escreval

escreval("A quantidade de numeros positivos ",somap)

escreval("A quantidade de numeros negativos ",soman)

escreval("A media de numeros positivos e negativos ",ma)

escreval("A porcentagem de positivos e negativos",po)

 

 

 

1. Quando n = 0 o contador numeros é incrementado. Solução logo após o fim do loop faça contador <- contar - 1

2. Zere as variáveis somap e soman antes de entrar no laço.

 

 

 

Tente assim:

 

ma <- numeros / (somap + soman) //media dos numeros lidos
po <- somap / numeros //porcentagem de numeros positivos

escreval
escreval("A quantidade de numeros positivos ",somap)
escreval("A quantidade de numeros negativos ",soman)
escreval("A media de numeros positivos e negativos ",ma)
escreval("A porcentagem de positivos e negativos",po)

duas observações:

 

1. Quando n = 0 o contador numeros é incrementado. Solução logo após o fim do loop faça contador <- contar - 1

2. Zere as variáveis somap e soman antes de entrar no laço.

 

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

[Kandrade 7]

Ta quase, o contador nesse caso é numeros.

 

numeros <- 0

somap <- 0

soman <- 0

repita

.

.

.

 

ate n = 0

 

c <- c - 1

[Gustavo Rodrigues Torre 0]

Ve se e assim

 

algoritmo "contagem"

// Função :

// Autor :

// Data : 01/11/07

// Seção de Declarações

var

somap,soman : inteiro

numeros : inteiro

ma, po : real

n : inteiro

c : inteiro

inicio

// Seção de Comandos

numeros <- 0

somap <- 0

soman <- 0

repita

 

escreva("Entre com um valor")

leia(n)

 

se (n > 0) entao

somap <- n + somap

fimse

 

se (n < 0) entao

soman <- n + soman

fimse

 

ate n = 0

 

numeros <- numeros + n

 

ma <- numeros / (somap + soman) //media dos numeros lidos

po <- somap / numeros //porcentagem de numeros positivos

 

escreval

escreval("A quantidade de numeros positivos ",somap)

escreval("A quantidade de numeros negativos ",soman)

escreval("A media de numeros positivos e negativos ",ma)

escreval("A porcentagem de positivos e negativos",po)

 

fimalgoritmo

 

 

Ta quase, o contador nesse caso é numeros.

 

numeros <- 0

somap <- 0

soman <- 0

repita

.

.

.

 

ate n = 0

 

c <- c - 1

[Kandrade 7]

Não está correto, veja isso:

 

algoritmo "contagem"
// Função :
// Autor :
// Data : 01/11/07
// Seção de Declarações
var
somap,soman : inteiro
numeros : inteiro
ma, po : real
n : inteiro
c : inteiro
inicio
// Seção de Comandos
numeros <- 0
somap <- 0
soman <- 0
repita

   escreva("Entre com um valor")
   leia(n)

   se (n > 0) entao // aqui ira contar os numeros positivos
	  //somap <- n + somap isso eh um acumulador, ou seja, a cada passagem do laco que entrar nesse se somap recebe seu ultimo valor + n.
	  somap <- somap + 1 // esse eh o chamado contador, ou seja, a cada passagem do laco que entrar nesse se somap recebe seu ultimo valor + 1
   fimse

   se (n < 0) entao
	  soman <- 1 + soman
   fimse

   numeros <- numeros + n // aqui eh um acumulador
ate n = 0

ma <- numeros / (somap + soman) //media dos numeros lidos
po <- somap / numeros //porcentagem de numeros positivos

escreval
escreval("A quantidade de numeros positivos ",somap)
escreval("A quantidade de numeros negativos ",soman)
escreval("A media de numeros positivos e negativos ",ma)
escreval("A porcentagem de positivos e negativos",po)

fimalgoritmo

[Gustavo Rodrigues Torre 0]

Problema resolvido

Cara eu não sei nada de repetição

Mais obrigado pela ajuda

 

Não está correto, veja isso:

 

algoritmo "contagem"
// Função :
// Autor :
// Data : 01/11/07
// Seção de Declarações
var
somap,soman : inteiro
numeros : inteiro
ma, po : real
n : inteiro
c : inteiro
inicio
// Seção de Comandos
numeros <- 0
somap <- 0
soman <- 0
repita

   escreva("Entre com um valor")
   leia(n)

   se (n > 0) entao // aqui ira contar os numeros positivos
	  //somap <- n + somap isso eh um acumulador, ou seja, a cada passagem do laco que entrar nesse se somap recebe seu ultimo valor + n.
	  somap <- somap + 1 // esse eh o chamado contador, ou seja, a cada passagem do laco que entrar nesse se somap recebe seu ultimo valor + 1
   fimse

   se (n < 0) entao
	  soman <- 1 + soman
   fimse

   numeros <- numeros + n // aqui eh um acumulador
ate n = 0

ma <- numeros / (somap + soman) //media dos numeros lidos
po <- somap / numeros //porcentagem de numeros positivos

escreval
escreval("A quantidade de numeros positivos ",somap)
escreval("A quantidade de numeros negativos ",soman)
escreval("A media de numeros positivos e negativos ",ma)
escreval("A porcentagem de positivos e negativos",po)

fimalgoritmo

[Kandrade 7]

Tenho um conselho, porque voce não abre um tópico pra gente discutir suas dificuldades,

tipo repetição, estrutura de decisão.

 

Creio que voce aprenderá muito mais.

 

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

 

Problema resolvido

Cara eu não sei nada de repetição

Mais obrigado pela ajuda