Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

VisualG Como faço para achar uma quantidade indefinida de bois

Genilson20

Por Genilson20
em Programação - iniciantes

 Compartilhar

Posts recomendados

Genilson20
 

Genilson20

Postado
Postado

João cria bovinos de duas raças (1 e 2) em sua fazenda. Devido a uma necessidade gerencial, ele deseja um algoritmo para calcular a quantidade de bois de cada raça; a média de peso de cada raça; o boi mais pesado e a sua raça; e, o boi mais leve e a sua raça. Para o funcionamento do algoritmo serão informados os seguintes dados, pelo gerente da fazenda:

 

Primeiramente, e somente uma vez, a quantidade total de bois;

A raça (1 ou 2) e o peso de cada boi. 

Var i, numLeve, numPesado: integer; peso,
boiPesado, boiLeve: real;
Begin
writeln('BOI N° 1');
write('Digite o peso do boi: ');
read(peso);
boiPesado := peso;
boiLeve := peso;
for i:=2 to 90 do begin writeln('BOI N° ', i);
write('Digite o peso do boi: ');
readln(peso);
if peso > boiPesado then begin boiPesado := peso; numPesado := i; end else if peso < boiLeve then begin boiLeve := peso; numLeve := i; end; end; writeln('O boi mais pesado é o de número ', numPesado, ' e pesa ', boiPesado:4:2); writeln('O boi mais leve é o de número ', numLeve, ' e pesa ', boiLeve:4:2);

 

 

  • Amei 1
Link para o comentário
Compartilhar em outros sites
devair1010
 

devair1010

Postado
Postado

@Genilson20     beleza  ,   o pascal eh o pai do visualG ,  entao basta sibstituir o que esteja escrito em inglês para portugues  ,   e assim o writeln eh igual  escreval e o readln eh igual   leia e nem precisa usar  begin  e end , o else eh o entao e o if eh  o  se ,  que termina com fimse , faca a correção e poste novamente  .

Link para o comentário
Compartilhar em outros sites
Genilson20
 

Genilson20

Postado
  • Autor
Postado
20 horas atrás, Genilson20 disse:

COD<>.

 

João cria bovinos de duas raças (1 e 2) em sua fazenda. Devido à uma necessidade gerencial, ele deseja um algoritmo para calcular a quantidade de bois de cada raça; a média de peso de cada raça; o boi mais pesado e a sua raça; e, o boi mais leve e a sua raça. Para o funcionamento do algoritmo serão informados os seguintes dados, pelo gerente da fazenda:

 

Primeiramente, e somente uma vez, a quantidade total de bois;

A raça (1 ou 2) e o peso de cada boi.

 

  

Algoritmo "semnome"
Var
i, numeLeve, numPesado: inteiro
peso, boiPesado, boiLeve: real
Inicio
escreva("boi N 1")
leia (boi N 1)
 leia (peso):
 boipesado := peso:
 boiLeve := peso:
 se peso > boipesado leia boipesado := peso:
 numpesado := i: enatao
 se peso < boileve leia boileve := i:
 fimse
 fimse
 fimse
 escreva ("o boi mais pesado e o de numero ', numpesado, ' e pesa ', boipesado:4:2):
 escreva(" o boi mas leve e o de numero ', numleve, ' e pesa ', boileve:4:2):

Fimalgoritmo

 

eu postei este codigo no visualg e não execultou disse que a sintase esta incorreto , alguém sabe porque ? 

e se souberem , eu queria saber como faço para encontrar uma quantidade de boi indefinida dentro desse algoritmo .por que ate então eu estou no rumo so do boi mas leve e do mas pesado e o seu codigo , mas não tem problema porque na questão eu so troco as informações de codigo pelas informações de raça , como esta pedindo no questionario acima , algora eu to perdido e como eu faria para encontrar a quantidade de boi indefinida @devair1010 @Ricardov

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
devair1010
 

devair1010

Postado
Postado

@Genilson20    Qual qtd de bois indefinida  ?  !   ,     essa não consta das opções pedidas não ,  são apenas quatro resultados pedidos ,  e esse código não está compilando por que  tem erros de sintaxe ,  que são comandos e símbolos inexistentes  nessa linguagem , visualG , e fazendo seguindo a ordem dos resultados pedidos , seu código corrigido e com o primeiro resultado pedido poderia ser assim , ou também de muitas outras formas :  

Algoritmo "qtd de boy's"
// quantidade de bois de cada raça; ok
// a  média   de peso de cada raça; falta essa
// o  boi mais pesado e a sua raça; falta essa
// o  boi mais   leve e a sua raça; falta essa
Var
  i, numLeve, numPesado,qtd_tot_boy      : inteiro
  flg, qtd_raca_1, qtd_raca_2 , raca     : inteiro
  peso_raca_1 ,peso_raca_2 ,media_raca_1 : real
  boiPesado, boiLeve,peso, media_raca_2  : real
Inicio
  escreva("Qual a qtd total dos bois ")
  leia(qtd_tot_boy)
  para i de 1 ate qtd_tot_boy faca
    repita
      flg := 0
      escreva("Qual a Raça do boi < 1 oU 2 > --: ")
      leia(raca)
      se ( raca <> 1 ) e ( raca <> 2 ) entao
        flg := 1
        escreval
        escreval("Raça Inexistente . . . !")
        escreval
      fimse
    ate flg = 0
    escreva("Qual o peso desse boi da raça --:",raca," ")
    leia( peso )
    se i = 1 entao
      numleve := i
      boileve := peso // inicializa a variável boileve
    fimse             // com o peso do primeiro boi
    se raca = 1 entao
      qtd_raca_1  :=  qtd_raca_1 + 1
      peso_raca_1 := peso_raca_1 + peso
    senao
      se raca = 2 entao
        qtd_raca_2  :=  qtd_raca_2 + 1
        peso_raca_2 := peso_raca_2 + peso
      fimse
    fimse
    se peso > boipesado entao
      boipesado := peso
      numpesado := i
    senao
      se peso < boileve entao
        boileve := peso
        numleve := i
      fimse
    fimse
  fimpara
  // calcular a media da raca 1
  // calcular a media da raca 2
  escreval
  escreval
  escreval("o total de bois da Raça 1 é -----:"  , qtd_raca_1       )
  escreval("o total de bois da Raça 2 é -----:"  , qtd_raca_2       )
  // mostrar a Média de bois da raça 1          
  // mostrar a Média de bois da raça 2
  // mostrar o boi mais pesado         
  // mostrar o boi mais leve
  escreval
Fimalgoritmo

e  coloque uma condicional na hora de fazer o cálculo das médias , pois até onde se sabe , na matemática  , não se pode dividir o número zero por nenhum outro número e nem mesmo por ele mesmo , e assim se acontecer um caso desse o visualG vai para de funcionar até que seja fechado e iniciado novamente  .   e depois que você fizer os outros três resultados , poste aqui para ajudarmos se precisar  .

Link para o comentário
Compartilhar em outros sites
Leandro ads
 

Leandro ads

Postado
Postado

@devair1010 Oi Devair, tudo bem ? Se for possível você nos ajudar com o algoritmo no Visualg porque vale um ponto e esta disciplina é muito específica. Peço por favor para o nobre colega nos ajudar:

Questão extra: João cria bovinos de duas raças (1 e 2) em sua fazenda. Devido a uma necessidade gerencial, ele deseja um algoritmo para calcular a quantidade de bois de cada raça; a média de peso de cada raça; o boi mais pesado e a sua raça; e, o boi mais leve e a sua raça. Para o funcionamento do algoritmo serão informados os seguintes dados, pelo gerente da fazenda:

1) Primeiramente, e somente uma vez, a quantidade total de bois.

2) A raça (1 ou 2) e o peso de cada boi.

Diante do enunciado, forneça um algoritmo que atenda ao proposto e forneça os resultados esperados. Observação: Submeta no campo de texto todo o algoritmo que será corrigido no VISUALG. Vale 1 ponto na média.

  • Curtir 1
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites
  • Membro VIP
Simon Viegas
 

Simon Viegas

Postado
  • Membro VIP
Postado

@Leandro ads, vá fazendo aos poucos... poste o que já conseguiu fazer e em qual parte está com dúvidas.

 

Um esboço inicial:

  

algoritmo "Gerenciador bovino"
//Questão extra: João cria bovinos de duas raças (1 e 2) em sua fazenda. Devido
//a uma necessidade gerencial, ele deseja um algoritmo para calcular:
// a quantidade de bois de cada raça;
// a média de peso de cada raça;
// o boi mais pesado e a sua raça;
// e, o boi mais leve e a sua raça.
//Para o funcionamento do algoritmo serão informados os seguintes dados, pelo
//gerente da fazenda:
//1) Primeiramente, e somente uma vez, a quantidade total de bois.
//2) A raça (1 ou 2) e o peso de cada boi.
//Diante do enunciado, forneça um algoritmo que atenda ao proposto e forneça
//os resultados esperados. Observação: Submeta no campo de texto todo o
//algoritmo que será corrigido no VISUALG. Vale 1 ponto na média.

var
   qtdTotal: inteiro
   qtdRaca1, qtdRaca2: inteiro
   raca: inteiro
   i: inteiro
inicio
   escreva ("Quantidade de bovinos: ")
   leia(qtdTotal)

   escrevaL("")
   escrevaL("")
   escrevaL("Informe a raça e o peso de cada boi")
   para i de 1 ate qtdTotal faca
      escrevaL("")
      escrevaL("Dados do bovino ", i:1, "")
      escreva ("Raça : ")
      leia(raca)




   fimPara


fimalgoritmo

 

 

Como poderia fazer para calcular a quantidade de cada raça? Uma forma seria usando uma estrutura de seleção (se). Exemplo:

  

algoritmo "Gerenciador bovino"
//Questão extra: João cria bovinos de duas raças (1 e 2) em sua fazenda. Devido
//a uma necessidade gerencial, ele deseja um algoritmo para calcular:
// a quantidade de bois de cada raça;
// a média de peso de cada raça;
// o boi mais pesado e a sua raça;
// e, o boi mais leve e a sua raça.
//Para o funcionamento do algoritmo serão informados os seguintes dados, pelo
//gerente da fazenda:
//1) Primeiramente, e somente uma vez, a quantidade total de bois.
//2) A raça (1 ou 2) e o peso de cada boi.
//Diante do enunciado, forneça um algoritmo que atenda ao proposto e forneça
//os resultados esperados. Observação: Submeta no campo de texto todo o
//algoritmo que será corrigido no VISUALG. Vale 1 ponto na média.

var
   qtdTotal: inteiro
   qtdRaca1, qtdRaca2: inteiro
   raca: inteiro
   i: inteiro
inicio
   escreva ("Quantidade de bovinos: ")
   leia(qtdTotal)

   escrevaL("")
   escrevaL("")
   escrevaL("Informe a raça e o peso de cada boi")
   
   para i de 1 ate qtdTotal faca
      escrevaL("")
      escrevaL("Dados do bovino ", i:1, "")
      escreva ("Raça (1 ou 2): ")
      leia(raca)

      se (raca = 1) entao
         qtdRaca1 <- qtdRaca1+1
      fimSe
      se (raca = 2) entao
         qtdRaca2 <- qtdRaca2+2
      fimSe
   fimPara
fimalgoritmo

 

Aí no final do programa, você coloca para exibir a resposta.


Depois insere a lógica relacionada ao peso...

 

Qualquer dúvida é só postar.

  • Curtir 1
  • Obrigado 1
Link para o comentário
Compartilhar em outros sites
  • Membro VIP
Simon Viegas
 

Simon Viegas

Postado
  • Membro VIP
Postado

@Genilson20, qual a sua dúvida?

 

 

Sobre:

13 horas atrás, Leandro ads disse:

@Genilson20 Não consegui fazer o setor para calcular a média dentro do algoritmo.

 

@Leandro ads, OK! Poste o código completo da parte que dá o resultado das raças... após, informe em qual parte está com dúvida para parte do média.

 

  • Obrigado 1
Link para o comentário
Compartilhar em outros sites
devair1010
 

devair1010

Postado
Postado

@Leandro ads @Leandro ads    podemos ajudar ,  mas voce precisa postar um codigo que voce já tenha feito sobre esse exercicio    ;       e ali acima já tem um exemplo contendo a primeira resposta  e entao só faltam as outras tres , e a media voce divide o peso total pela qtd de bois daquela raca ,  portanto já tem la essas variaveis  que armazenam esses dados   ,   e entao pode fazer a proxima opcao e poste seu codigo aqui , para vermos como esta , e em que podemos ajudar     .    ,,,,,

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
 Compartilhar
Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!