20/04/09 20:26
10gc
Ciao a tutti, sto tentando di studiare il VB.Net dalla guida di Totem (ottima). Tra gli esercizi che ho trovato sul suo sito ce n'è uno che chiede di scrivere un funzione che deve restituire i valori di un equazione di secondo grado. Io ho scritto il codice, però ho un problema con la funzione return: nel caso del delta > 0, come posso far ritornare dalla funzione due valori? Con un valore ce la faccio, ma con due proprio no.
Grazie mille
Non mi mangiate per eventuali errori
PS: poi vorrei farvi un'altra domanda, ma sugli array mono e bidimensionali.
Grazie mille
Module Module1 Function soluzioni(ByVal a As Long, ByVal b As Long, ByVal c As Long) Dim delta, x1, x2 As Long delta = (b ^ 2) - 4 * a * c If delta = 0 Then Return x1 = (-b) / (2 * a) Else If delta < 0 Then Return 0 If delta > 0 Then Return x1 & x2 'come si fa?? End If End If End If x1 = (-b + Math.Sqrt(delta)) / 2 * a Return x1 End Function Sub Main() Dim a, b, c, d As Long Console.WriteLine("Inserisci a,b,c:") a = Console.ReadLine b = Console.ReadLine c = Console.ReadLine d = soluzioni(a, b, c) Console.WriteLine(" La soluzione è =" & d) Console.ReadKey() End Sub End Module
Non mi mangiate per eventuali errori
PS: poi vorrei farvi un'altra domanda, ma sugli array mono e bidimensionali.
Ultima modifica effettuata da 10gc 20/04/09 20:28
aaa