Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

SparKyk3

[Resolvido]  Exercício em Visualg

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 )

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.