Polinomi - do pola reseno

1

Polinomi - do pola reseno

offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 15 Avg 2005
  • Poruke: 112
  • Gde živiš: Belgrade

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. Wink



offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

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

offline
  • Pridružio: 01 Maj 2003
  • Poruke: 1300
  • Gde živiš: Kragujevac

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......

offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

Nista nisam nasao u knjizi vezano za matematiku

offline
  • Pridružio: 15 Avg 2005
  • Poruke: 112
  • Gde živiš: Belgrade

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.

offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

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

offline
  • Pridružio: 15 Jul 2005
  • Poruke: 36
  • Gde živiš: Cacak

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

offline
  • Pridružio: 29 Avg 2005
  • Poruke: 720
  • Gde živiš: Beograd

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... )

offline
  • Pridružio: 15 Jul 2005
  • Poruke: 36
  • Gde živiš: Cacak

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

Ko je trenutno na forumu
 

Ukupno su 651 korisnika na forumu :: 62 registrovanih, 7 sakrivenih i 582 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., atrkulja, Cobi026, dacha74 2, dehhhhi, dekipg, Detective, DH2, Dicus, djboj, dragoljub11987, drdoca, Drug pukovnik, eighty-one, Faki-Valjevo, Filodendron, FOX, Gama, Georgius2, goran.vvv, ivance95, joca83, Kordon, Kožedub, KRCO95, Kubovac, KUZMAR, ljuba sd, Lucije Kvint, MarKhan, Markoni29, MB120mm, Metanoja, MiG-29M2, MIG-3, Mihajlo2, Milan A. Nikolic, milijarder, Mixelotti, mocnijogurt, Mr. Majevica, ostoja, pein, powSrb, repac, Revolucion, sasa.zoric, Snorks, Sr.Stat., SsssssNOVI, suca41, theNedjeljko, vathra, vespa nikola, vlvl, wolf431, x92, YU-UKI, yufighter, Zmaj 99, Zvrk2, 79693