Polinomi - do pola reseno

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li je moguce da u Visual Basic 6 napravim program koji rastavlja polinome na cinioce. Bio bih zahvalan na nekom primeru.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zasto da ne, ali verovatno dosta tesko pa mislim da ti na to niko nece moci odgovoriti pa probaj da nadjes knjigu za vb u kojoj ima mnogo mate.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala na savetu, samo da li znas neki naziv? Ja imam Korak po korak

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

prodji malo kroz tu knjigu koju imas i kroz programe koje ces da izradis pa ce ti onda pasti ideja, ako nista ne nadjes u medjuvremenu......

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nista nisam nasao u knjizi vezano za matematiku

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Posto i ja imam korak po korak,i ako pricamo o istoj knjizi mislim da ni ja nisam primetio nista sto bi ti pomoglo pa nemoj dzaba da trazis.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa sta sad? Jel imas neku ideju, sajt, bilo sta

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

prodji ti dobro kroz tu knjigu, nema veze sto nema matematike mnogo (kad hoces da se bavis programiranjem, podrazumeva se da znas matematiku veoma dobro) naucices dosta novih stvari (ako si pocetnik).
a ako znas da rastavis polinome "na papiru" onda ces (kad budes ovladao nekim osnovnijim stvaqrima) lako napisati kod za to.

poz

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo prve verzije koda:
Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, charst As String Dim chars() As String Dim theString As String If txtPolinom.Text <> "" Then         ReDim chars(Len(txtPolinom.Text))     charst = Len(txtPolinom.Text)     theString = ""         For i = 1 To Len(txtPolinom.Text)             chars(i) = Mid(txtPolinom.Text, i, 1)         Next i         '''''''''''''''''''''''''''''''''''''''''         For i = 1 To charst             If IsNumeric(chars(i)) = True Then             For j = 1 To charst                             If j = i Then GoTo sledeci:                                 If Mid(txtPolinom.Text, j, 1) = chars(i) Then                     theString = theString & chars(i) & "("                                         For k = i To charst                         If chars(k) = "+" Or chars(k) = "-" Then GoTo endk:                                                 If IsNumeric(chars(k)) = False And (chars(k) <> "+" Or chars(k) <> "-") Then                             theString = theString & chars(k)                         End If                                             Next k endk:                     theString = theString & chars(k)                                         For k = j To charst                         If chars(k) = "+" Or chars(k) = "-" Then GoTo endk2:                                                 If IsNumeric(chars(k)) = False And (chars(k) <> "+" Or chars(k) <> "-") Then                             theString = theString & chars(k)                         End If                                             Next k endk2:                     theString = theString & ")"                     txtRastavljeno.Text = theString                     Exit Sub                 End If sledeci:                         Next j         End If     Next i     End If End Sub
Ovo samo izracunava polinome sa istim brojevima. Na primer:
4x+4y, ili 3a+3b... jos malo pa cu da zavrsim celu verziju kod koje ce moci da se koiste i razliciti brojevi ( 9x+18y... )

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

samo jedna mala zamerka, mnogo koristis goto tako da ces na kraju dobiti tzv "spagetty code" koji je veoma tezak za odrzavanje. (bolje je da se jos u startu odviknes od loseg stila programiranja)

recimo; ovo:
 For k = i To charst                         If chars(k) = "+" Or chars(k) = "-" Then GoTo endk:                                                 If IsNumeric(chars(k)) = False And (chars(k) <> "+" Or chars(k) <> "-") Then                             theString = theString & chars(k)                         End If                                             Next k endk:

zameni sa:
 For k = i To charst                         If chars(k) = "+" Or chars(k) = "-" Then                           Exit For                         End If                         If IsNumeric(chars(k)) = False And (chars(k) <> "+" Or chars(k) <> "-") Then                             theString = theString & chars(k)                         End If                                             Next k