• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

hugomta

Forma resolvente com fusao

2 mensagens neste tópico

Boas caros membros!!!

Neste momento ando a fazer revisoes para o teste de algoritemia e sou novo nestas andancas e estou com 1 grande problema o meu stor mandou me fazer em VB 2008 a forma resolvente e com funcao e como sabemos a funcao so passa 1 valor e ele quer so passar 1 valor nao 2 por isso nao posso fazer 2 funcoes...ele diz que so pode ser com 1 vector e ainda nao sou la muito bom nisso...vou por aqui o meu codigo que fiz ate agora a parte de baixo sem funcao foi facil mas funcoes partem me todo se alguem me poder ajudar que diga...agredeco muito...

Public Class Form1
   Dim a, b, c, x1, x2, raiz, res1, res2 As Integer
   Public Function F_resolvente(ByVal Var1, ByVal var2) As Integer


   End Function
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       a = TextBox1.Text
       b = TextBox2.Text
       c = TextBox3.Text
       raiz = (b * b) - 4 * (a * c)
       If (raiz < 0) Then
           MsgBox("é impossivel")
       Else
           If (a = 0) Then
               x1 = -b / c
               MsgBox(x1)
           Else

               res1 = (-b + raiz) / 2 * a
               res2 = (-b - raiz) / 2 * a
               TextBox4.Text = res1
               TextBox5.Text = res2
           End If
       End If
   End Sub

End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não estou a entender muito bem ... queres uma função que retorne dois valores, é isso ? (res1 e res2)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora