[Resolvido] Exercício em Visualg

[SparKyk3 0]

Gente sou novo nesse negócio de programção

eu estou estudando uma apostila que me passaram aqui apostila da NAPRO

emfim

no final dela tem uns exercicios e estou parado nesse a uns 2 dias

sera que alguem pode resolve-lo para min ???

 

 

Exercício 1

☺ Escrever um algoritmo que lê um número desconhecido de valores, um de cada vez, e conta quantos

deles estão em cada um dos intervalos [0,25], (25,50], (50,75], (75,100].

 

 

valeu brigado

 

lembrando que eu estou treinando em VisualG

[quitZAUMMM 18]

Primeiramente evite quebrar as regras desse fórum.

Segundo, poste o que conseguiu fazer já que está a 2 dias fazendo alguma coisa saiu.

 

[]s

 

---

Título Editado:

 

Me ajudem por favor - VISUALG http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Exercício em Visualg

[rafaeltonini 0]

algoritmo "semnome"
// Função : Numeros entre
// Autor : Rafael Tonini Franco
// Data : 04/03/2010
// Seção de Declarações 
var

aux : caracter
i, n, z25, z50, z75, z100 : inteiro
Num : vetor [1..100] de inteiro

inicio
aux := "S"

para i de 1 ate 1000 faca
   enquanto aux = "S" faca
      limpatela
      escreva("Digite um numero: ")
      leia(Num[i])
      se Num[i] >= 0 entao
         se Num[i] < 25 entao
            z25 := z25 + 1
         fimse
      fimse
      se Num[i] > 24 entao
         se Num[i] < 50 entao
            z50 := z50 + 1
         fimse
      fimse
      se Num[i] > 49 entao
         se Num[i] < 75 entao
            z75 := z75 + 1
         fimse
      fimse
      se Num[i] > 74 entao
         se Num[i] < 101 entao
            z100 := z100 + 1
         fimse
      fimse
      escreva("Deseja continuar[S/N]?")
      leia(aux)
   fimenquanto
fimpara
escreval("O total de numeros no intervalo de 0 ate 24 é: ",z25)
escreval("O total de numeros no intervalo de 25 ate 49 é: ",z50)
escreval("O total de numeros no intervalo de 50 ate 74 é: ",z75)
escreval("O total de numeros no intervalo de 75 ate 100 é: ",z100)
// Seção de Comandos 
fimalgoritmo

Esse funciona, mas o codigo ta meio feio!! nao sei como usa 2 verificaçoes no msmo se no visualg, por ex se Num >= 0 e Num < 25 entao

 

Mas espero q esse ja ajude =P

 

Abraço

[SparKyk3 0]

Me desculpe como eu disse eu sou novo ainda no forum.

 

 

aqui ta oque eu fiz, tipo acho que esta tudo errado mais beleza.

algoritmo "semnome"
// Função :
// Autor :
// Data : 04/03/2010
// Seção de Declarações 
var
i,n,v:inteiro
num:vetor[0..3] de real
inicio
escreva("Digite um numero")
leia(n)
escreval("para calcular de 0 ate 25, digite 1")
escreval("para calcular de 25 ate 50, digite 2")
escreval("para calcular de 50 ate 75, digite 3")
escreval("para calcular de 75 ate 100, digite 4")
leia(v)
escolha v
caso 1
para i de 0 ate n faca
     leia(num[0])
     se ((num[0] < 0) ou (num[0] > 25)) entao
        escreva("somente numeros positivios menores que 25")
     fimse
fimpara
para i de 0 ate n faca
     escreval(num[0])
fimpara
caso 2
para i de 25 ate 50 faca
     leia(num[1])
     se ((num[1] < 25) ou (num[0] > 50)) entao
        escreva("somente numeros entre 25 e 50")
     fimse
fimpara
para i de 25 ate 50 faca
     escreval(num[i])
fimpara
caso 3
para i de 50 ate 75 faca
     leia(num[2])
     se ((num[2] < 50) ou (num[0] > 75)) entao
        escreva("somente numeros entre 50 e 75")
     fimse
fimpara
caso 4
para i de 75 ate 100 faca
     leia(num[3])
     se ((num[3] < 75) ou (num[0] > 100)) entao
        escreva("somente numeros entre 75 e 100")
     fimse
fimpara
fimescolha
fimalgoritmo

 

eu sou TOTALMENTE novo nessa area e quero muito aprender obrigado.!

[SparKyk3 0]

Galera consegui resolver

 

 algoritmo "semnome"
// Função :
// Autor : Daniel Silva
// Data : 04/03/2010
// Seção de Declarações 
var i:inteiro
range:vetor[0..3] de real
parada:caracter
inicio
range[0] <- 0
range[1] <- 0
range[2] <- 0
range[3] <- 0
repita
limpatela
escreval("Para sair digite -1")
escreva("Digite um numero: ")
leia(i)
       // valor 1
       se ( i >= 0 ) e (i <= 24 ) entao
          range[0] <- range[0] + 1
       fimse
       // valor 2
       se ( i >= 25) e (i <= 49 ) entao
          range[1] <- range[1] + 1
       fimse
       // valor 3
       se ( i >= 50) e (i <= 74 ) entao
          range[2] <- range[2] + 1
       fimse
       // valor 4
       se ( i >= 75) e (i <= 100) entao
          range[3] <- range[3] + 1
       fimse
escreval("Os numeros entre 0 e 24 ",range[0])
escreval("Os numeros entre 25 e 49 ",range[1])
escreval("Os numeros entre 50 e 74 ",range[2])
escreval("Os numeros entre 75 e 100 ",range[3])
             se i <> -1 entao
                escreval("Digite ENTER para continuar")
             leia(parada)
             fimse
ate i <= -1
fimalgoritmo

[rafaeltonini 0]

algoritmo "Numeros entre"
// Função :
// Autor : Rafael Tonini Franco
// Data : 04/03/2010
// Seção de Declarações 
var

aux : caracter
n : inteiro
Num : vetor [1..4] de real

inicio
aux := "S"

enquanto aux = "S" faca
   limpatela
   escreva("Digite um numero: ")
   leia(n)
   se (n >= 0) e (n < 25) entao
      Num[1] := Num[1] + 1
   fimse
   se (n > 24) e (n < 50) entao
      Num[2] := Num[2] + 1
   fimse
   se (n > 49) e (n < 75) entao
      Num[3] := Num[3] + 1
   fimse
   se (n > 74) e (n < 101) entao
      Num[4] := Num[4] + 1
   fimse
   escreva("Deseja continuar[S/N]?")
   leia(aux)
fimenquanto
escreval("O total de numeros no intervalo de 0 ate 24 é: ",Num[1])
escreval("O total de numeros no intervalo de 25 ate 49 é: ",Num[2])
escreval("O total de numeros no intervalo de 50 ate 74 é: ",Num[3])
escreval("O total de numeros no intervalo de 75 ate 100 é: ",Num[4])

// Seção de Comandos 
fimalgoritmo

Dei uma enxugada no codigo =P

Att.

[Pantoja 5]

esses IFs estão soltos, o ideal era usá-los encadeados utilizando o "Senão"

 

de toda forma já está resolvido né?

 

 

Abraços

[TallysonZ 0]

Sei que este tópico é antigo, mas gostaria de contribuir também. Estou estudando a mesma apostila, e o exercício pede que "Leia um número desconhecido de valores", ou seja, vários valores, e depois imprima o resultado.

 

Quero deixar bem claro que aprendi muito com as respostas acima, tirou muitas dúvidas. Muito obrigado!

 

Mas gostaria de observar que testei algumas respostas e o programa só aceitava um único valor.

 

Sem mais delongas, ta ai pra quem quiser testar o código que eu fiz:

Algoritmo "Vetores"

var

range: vetor [0..3] de real
num: real

inicio

   range[0] <- 0
   range[1] <- 0
   range[2] <- 0
   range[3] <- 0

   repita

      limpatela
      escreval ("------------------------------")
      escreval ("Para exibir o resultado e finalizar o programa digite -1")
      escreval ("------------------------------")
      escreval (" ")
      escreval ("Digite um valor:")

      leia (num)


      se (num >= 0) e (num <= 25) entao
         range[0] <- range[0] +1
      fimse
      
      se (num >= 25) e (num <= 50) entao
         range[1] <- range[1] +1
      fimse
      
      se (num >= 50) e (num <= 75) entao
         range[2] <- range[2] +1
      fimse
      
      se (num >= 75) e (num <= 100) entao
         range[3] <- range[3] +1
      fimse

   ate num = -1
   
   se num = -1 entao

      escreval ("------------RESULTADOS------------")
      escreval (" ")
      escreval ("Números entre [000..025]:  ", range[0])
      escreval ("Números entre [025..050]:  ", range[1])
      escreval ("Números entre [050..075]:  ", range[2])
      escreval ("Números entre [075..100]:  ", range[3])
      escreval (" ")
      escreval ("----------------------------------")
   
   fimse



fimalgoritmo

Ele vai permitir a inserção de quantos números forem necessários, realizar a contagem de intervalo, armazenar a contagem no vetor e depois exibir o resultado.

 

Espero que tenha sido útil para alguém que assim como eu, esta estudando esta apostila da USC sobre algoritmos e que inclusive esta disponível na internet de forma gratuita (Pelo ao menos eu dei uma rápida pesquisada no google e baixei do próprio servidor da universidade).

 

É só pesquisar: "Introdução aos algoritmos" de Bruno Tonet e Cristian Koliver. (Excelente material :D :D :D )