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

Genilson20 · 1 de abril de 2022

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);

Ricardov · 1 de abril de 2022

Poste seu código usando o botão <> do editor do fórum, fica melhor.

devair1010 · 2 de abril de 2022

@Genilson20 @Genilson20 seu código está na linguagem pascal , e não em visualG , e então você quer fazer em pascal mesmo ou em visualG ? , e use o botão <>

Genilson20 · 2 de abril de 2022

@devair1010 na língua do visualg

devair1010 · 2 de abril de 2022

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

Genilson20 · 2 de abril de 2022

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

devair1010 · 3 de abril de 2022

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

Leandro ads · 4 de abril de 2022

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

Simon Viegas · 4 de abril de 2022

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

Leandro ads · 4 de abril de 2022

@Simon Viegas Boa tarde. Muito obrigado amigo. Já ajudou bastante nesse trecho do algoritmo.

Genilson20 · 4 de abril de 2022

@Leandro ads conseguiu responder?

Leandro ads · 4 de abril de 2022

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

Genilson20 · 4 de abril de 2022

@Leandro ads o pior que essa questão tambem caiu para mim , eu não conseguir responder vou perder esse ponto

@Leandro ads em qual escola voce estuda ?

Simon Viegas · 5 de abril de 2022

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

devair1010 · 5 de abril de 2022

@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 . ,,,,,