• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 12 di 12

Discussione: Programma equazioni II grado VB6

Cambio titolo
  1. #1
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Località
    Rapallo (GE)
    Messaggi
    13.504

    Programma equazioni II grado VB6

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

    Qualche consiglio?
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

  2. #2
    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.
    Webmaster di Haetal, la città lontana



    'Se puoi sognarlo, puoi farlo'

    "Solo et pensoso i più deserti campi
    vo mesurando a passi tardi et lenti,
    et gli occhi porto per fuggire intenti
    ove vestigio human l'arena stampi"

  3. #3
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Località
    Rapallo (GE)
    Messaggi
    13.504
    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
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

  4. #4
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Località
    Rapallo (GE)
    Messaggi
    13.504
    Citazione 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.
    lo faccio per imparare ,ovvio.
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

  5. #5
    Thrash 'til deth L'avatar di Drizzt
    Registrato il
    05-03
    Località
    Lissone (MB)
    Messaggi
    8.057
    Citazione The Matrix
    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
    Citazione Kelvan Visualizza Messaggio
    Io sono contro i biclasse perché non servono a niente.

  6. #6
    Ex ***** VIPz Estathé L'avatar di nicjedi
    Registrato il
    12-02
    Località
    non vivo
    Messaggi
    16.148
    Citazione 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")
    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
    "La violenza è l'ultimo rifugio degli incapaci"
    "Non lasciare mai che la morale ti impedisca di fare la cosa giusta"
    "La disumanità del computer sta nel fatto che, una volta programmato e messo in funzione, si comporta in maniera perfettamente onesta."
    "fare molte cose alla volta significa non farne bene nessuna"


  7. #7
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Località
    Rapallo (GE)
    Messaggi
    13.504
    Citazione Drizzt
    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
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

  8. #8
    Utente L'avatar di Kyle Lionheart
    Registrato il
    10-04
    Località
    Terra di Mezzo
    Messaggi
    1.147
    Dunque, vediamo...io te lo faccio in C++, poi eventualmente te lo converti in VB o quel che ti pare:
    Codice:
       #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)
    Ultima modifica di Kyle Lionheart; 17-03-2005 alle 18:22:57

  9. #9
    Utente L'avatar di devilheart
    Registrato il
    01-03
    Messaggi
    28.311
    Citazione Drizzt
    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

  10. #10
    Utente L'avatar di Kyle Lionheart
    Registrato il
    10-04
    Località
    Terra di Mezzo
    Messaggi
    1.147
    Citazione devilheart
    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)
    Citazione devilheart
    se delta è < 0, l'equazione è perfettamente risolvibile solo che le radici non sono numeri reali
    Certo, ma bisogna sapere i numeri complessi...

  11. #11
    ~ Over My Head ~ L'avatar di Finalfire
    Registrato il
    06-03
    Località
    Italy
    Messaggi
    5.013
    i

  12. #12
    Utente L'avatar di devilheart
    Registrato il
    01-03
    Messaggi
    28.311
    Citazione Kyle Lionheart
    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

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •