Trabalho de VB

[Marcosjf 0]

Boa tarde,

Estou com muita dificuldade em resolver um trabalho da faculdade

Um fazendeiro deseja saber quantos patos e coelhos existe em sua fazenda,porém a unica informação que ele possui e a quantidade total de cabeças e patas no geral dos animais.

ajude a calcular a quantidade de patos e de coelhos.

Patas [ ]

cabeças [ ]

Calcular

Patos[ ]

Coelhos [ ]

[KhaosDoctor 242]

Qual é a dificuldade? O que você já fez? Qual é a linguagem?

[Marcosjf 0]

visual basic

então fiz apenas a tela

pra fazer isso a duvida e a seguinte consigo fazer isso com if else For,while,switch case

Public Class Form1    Private Sub BTNLIMPAR_Click(sender As Object, e As EventArgs) Handles BTNLIMPAR.Click
        TXTN1.Text = String.Empty
        TXTN2.Text = String.Empty
        TXTR1.Text = String.Empty
        TXTR2.Text = String.Empty
    End Sub


    Private Sub BTNCALCULAR_Click(sender As Object, e As EventArgs) Handles BTNCALCULAR.Click
        Dim n1, n2, r1, r2 As Integer
        If (n1 = 2) Then
            TXTR1 = Val(TXTN1.Text)
            If else
        TXTR2 = Val(TXTN2.Text)
        End If
    End Sub
End Class

[KhaosDoctor 242]

Acredito que while não seria necessário nesse caso, e nem o case... O seu código tem alguns problemas de sintaxe como em

If else
TXTR2 = Val(TXTN2.Text)
End If

O correto seria

Else if
        TXTR2 = Val(TXTN2.Text)
        End If

Fora isso, esse seu código não faz muita coisa, ele apenas testa se o n1 é 2... Você vai precisar pensar em como dividir o numero de patas e cabeças. Lembre que patos e coelhos só tem 1 cabeça, mas diferem no número de patas, ou seja, contando as cabeças todas você sabe qual é o número total de animais.

Se você dividir isso por 4, poderá ter a quantidade provavel de coelhos, o que sobrar seriam os patos.

Se você dividir isso por 2 você terá a quantidade provavel de patos, o resto seriam os coelhos.

Já é um bom inicio, agora você teria que pensar como saber com certeza quantos patos e quantos coelhos.

[Marcosjf 0]

tava colocando pato=(pata\cabeça)

coelho(pata mod cabeça)

mesmo assim da erro

[snowstormdelivery 19]

Vejo que estás tentando entender e usar oque o Khaos disse, mas não estás, nem irás progredir assim.
Se quiseres resolver, terás que pensar como resolver isso fora de um computador, primeiro. Depois preocupe-se com sintaxe!

Uma forma que me fez chegar a conclusão foi com testes empíricos, ou seja, criei uma hipótese que existiam 1 pato e 1 coelho, que eram a resposta. Sabendo um resultado hipotético consegui criar uma forma de resolução, mais facilmente.

O meu incremento seria te falar que animais com 2 patas ou 4 possuem uma relação, a qual ajudará na resolução.

PS: Vá tentando resolver e postando mais dúvidas. Chegaremos na resposta juntos, se você realmente quiser aprender a raciocinar.

[Marcosjf 0]

Resolvido:

Dim pata, cabeca, patos, coelhos As Integer

pata = Val(TextBox1.Text)

cabeca = Val(TextBox2.Text)

patos = Val(TextBox3.Text)

coelhos = Val(TextBox4.Text)

patos = (cabeca * 4) - pata

patos = patos \ 2

coelhos = (cabeca - patos)

TextBox3.Text = patos

TextBox4.Text = coelhos