Programma equazioni II grado VB6

[The Matrix]

già, vorrei fare un programma che mi risolva le equazioni di II grado, in modo da utilizzarlo per facilitarmi la vita.

Qualche consiglio?

[Nimrandir]

Studia! :P

A parte gli scherzi, seriamente, credo che fare un programma per risolvere le equazioni di secondo grado è sicuramente più lungo e laborioso ke imparare il metodo.

Se invece lo fai per imparare, credo che tu possa usare la famosa "formula risolutiva" mettendo nel programma tre campi di testo che raccolgano i parametri a, b e c.

[The Matrix]

io ho provato a fare una cosa simile, ma non funziona come dovrebbe,dov'è l'errore?

Option Explicit
Sub EquazioniIIgrado_click()
Dim a As Single, b As Single, c As Single
Dim xuno As String, xdue As String, delta As String, segno As Integer

a = InputBox("inserisci a")
If a = 0 Then
MsgBox ("valore non numerico")
End If
If a < 0 Then
segno = 100
Else
b = InputBox("inserisci b")
c = InputBox("inserisci c")
End If
If segno = 100 Then
a = a * -1: b = b * -1: c = c * -1
Else
delta = b ^ 2 - 4 * a * c
End If
If delta < 0 Then
MsgBox ("l'equazione è impossibile")
Else
If delta = 0 Then
xuno = -b / (2 * a)
MsgBox ("l'equazione ha una sola soluzione x=" & xuno)
Else
xuno = (b + Sqr(delta) / (2 * a))
xdue = ((-b - Sqr(delta)) / (2 * a))
MsgBox ("l'equazione ha due soluzioni X1= " & xuno & "X2=" & xdue)
End If
End If
End Sub

[The Matrix]

Studia! :P

A parte gli scherzi, seriamente, credo che fare un programma per risolvere le equazioni di secondo grado è sicuramente più lungo e laborioso ke imparare il metodo.

Se invece lo fai per imparare, credo che tu possa usare la famosa "formula risolutiva" mettendo nel programma tre campi di testo che raccolgano i parametri a, b e c.

lo faccio per imparare ,ovvio.

[Drizzt]

lo faccio per imparare ,ovvio.

Già, visto che le equazioni di II grado sono una boiata

Piuttosto, qualcuno sa dove posso trovare le formule risolutive delle equazioni di III e IV grado? Giusto per curiosità, perchè il mio prof di Analisi ha detto che son due lavagnate di roba ognuna

[nicjedi]

io ho provato a fare una cosa simile, ma non funziona come dovrebbe,dov'è l'errore?

Option Explicit
Sub EquazioniIIgrado_click()
Dim a As Single, b As Single, c As Single
Dim xuno As String, xdue As String, delta As String, segno As Integer

a = InputBox("inserisci a")
If a = 0 Then
MsgBox ("valore non numerico")
Exit Sub
End If
If a < 0 Then
segno = 100
Else
b = InputBox("inserisci b")
c = InputBox("inserisci c")
End If
If segno = 100 Then
a = a * -1: b = b * -1: c = c * -1
End If
delta = b ^ 2 - 4 * a * c
Select Case delta
Case <0
MsgBox ("l'equazione è impossibile")
Case 0
xuno = -b / (2 * a)
MsgBox ("l'equazione ha una sola soluzione x=" & xuno)
Case >0
xuno = (b + Sqr(delta) / (2 * a))
xdue = ((-b - Sqr(delta)) / (2 * a))
MsgBox ("l'equazione ha due soluzioni X1= " & xuno & "X2=" & xdue)
End Select
End Sub

Ho corretto un po'..cmq non l'avrei creato proprio così...

Ciao

Nicola

[The Matrix]

Già, visto che le equazioni di II grado sono una boiata

Piuttosto, qualcuno sa dove posso trovare le formule risolutive delle equazioni di III e IV grado? Giusto per curiosità, perchè il mio prof di Analisi ha detto che son due lavagnate di roba ognuna

boh

[Kyle Lionheart]

Dunque, vediamo...io te lo faccio in C++, poi eventualmente te lo converti in VB o quel che ti pare:

   #include <iostream.h> 
 #include <math.h>
   
   void main()
   {
     int a,b,c;
     int delta,r1,r2;
   
     cout>>"Inserisci A: ";
     cin<<a;
     cout>>"Inserisci B: ";
      cin<<b;
     cout>>"Inserisci C: ";
      cin<<c;
   
  delta=b*b-4*(a*c);
  if (delta<0) 
    {
  	 cout>>"L'Equazione è impossibile!";
    }
  else if (delta==0)
   {
  	 r1=(-b+sqrt(delta))/2*a;
  	 cout>>"L'equazione ha una soluzione: ">>r1;
   }
  else
   {
  	 r1=(-b-sqrt(delta))/2*a;
  	 r2=(-b+sqrt(delta))/2*a;
  	 cout>>"L'equazione ha 2 soluzioni: ">>r1<<" e "<<r2;
   }
  getch();
  return 0;
   }

EDIT: mi ero dimenticato la radice nella formula finale Ora dovrebbe essere a posto(ricorda il math.h se usi C)

[devilheart]

Già, visto che le equazioni di II grado sono una boiata

Piuttosto, qualcuno sa dove posso trovare le formule risolutive delle equazioni di III e IV grado? Giusto per curiosità, perchè il mio prof di Analisi ha detto che son due lavagnate di roba ognuna

esiste un metodo anche per quelle? io le scomponevo fino a ottenere una equazione di secondo grado.
P.S.
se delta è < 0, l'equazione è perfettamente risolvibile solo che le radici non sono numeri reali

[Kyle Lionheart]

esiste un metodo anche per quelle? io le scomponevo fino a ottenere una equazione di secondo grado.
P.S.

infatti di solito si fa così, ma ci sono casi in cui non riesci a scomporle e allora devi usare le formule specifiche(si trovano qui)

se delta è < 0, l'equazione è perfettamente risolvibile solo che le radici non sono numeri reali

Certo, ma bisogna sapere i numeri complessi...

[Finalfire]

i

[devilheart]

infatti di solito si fa così, ma ci sono casi in cui non riesci a scomporle e allora devi usare le formule specifiche(si trovano qui)

che casino! cmq il fatto di ottenere soluzioni con quei metodi implica che il polinomio è scomponibile