|
Poslao: 04 Sep 2005 16:11
|
offline
- Dejan123
- Počasni građanin
- 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.
|
|
|
Poslao: 08 Sep 2005 16:25
|
offline
- Mr.D_D
- Građanin
- 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. 
|
|
|
|
|
|
|
Poslao: 08 Sep 2005 20:22
|
offline
- Dejan123
- Počasni građanin
- Pridružio: 29 Avg 2005
- Poruke: 720
- Gde živiš: Beograd
|
Hvala na savetu, samo da li znas neki naziv? Ja imam Korak po korak
|
|
|
|
|
|
|
Poslao: 08 Sep 2005 23:54
|
offline
- mnicic
- Super građanin
- 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......
|
|
|
|
|
|
|
|
|
Poslao: 09 Sep 2005 17:06
|
offline
- Mr.D_D
- Građanin
- 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.
|
|
|
|
|
|
|
|
|
Poslao: 14 Sep 2005 03:27
|
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
|
|
|
|
|
|
|
Poslao: 03 Nov 2005 16:40
|
offline
- Dejan123
- Počasni građanin
- 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... )
|
|
|
|
|
|
|
Poslao: 04 Nov 2005 18:50
|
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
|
|
|
|
|
|
