treba napisati algoritam i potprogram za izracunavanje neke funkcije in(x) po nekoj formuli...kako bih to mogla.???? hvala
jel moze mala pomoc ono zadatka???
Zaključano
Zakačeno
napisacu ti ja ,samo reci koja formula i sta se izracunava,saljem ti na mail
Ako ste već rešili da koristite ovaj forum za traženje i nuđenje pomoći, korektno bi bilo da se i rešenja razmenjuju preko foruma, a ne preko mejlova. Za druženje i mejlanje koristite fejsbuk i druge socijalne mreže. Dakle, zamolio bih postavljača teme da postavi konkretno pitanje, a one koji odgovaraju na to, da rešenja postavljaju ovde. Hvala.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Imali smo samo dva casa is Visual basica i vec su nam trazili da radimo seminarski, ja nisam najbolje sve razumela pa ako moze pomoc oko ovog zadataka?
Isprogramirajte piramidu: 1,121, 12321, 1234321, ... za dati ulaz N. Brojevi se
dijagonalno ispisuju u Excel tabelu do nivoa N (u primeru je N=5)
Isprogramirajte piramidu: 1,121, 12321, 1234321, ... za dati ulaz N. Brojevi se
dijagonalno ispisuju u Excel tabelu do nivoa N (u primeru je N=5)
Jel bi mogao neko da postavi reshenje ovde ako nije problem?
Unapred hvala!
Unapred hvala!
Code:
Sub Piramida()
'Dodati modul i u njemu upisati sledeci kod
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim p As Integer
ActiveSheet.UsedRange.Clear
N = Int(InputBox("Unesite celobrojnu vrednost N za nivo piramide:", "Piramida"))
p = N
For i = N * 2 - 1 To 1 Step -2
k = 0
For j = 0 To i - 1
k = k + 1
If k = p Then
k = -k
End If
Cells(i - j, 1 + j) = Abs(k)
Next j
p = p - 1
Next i
End Sub
Sub Piramida()
'Dodati modul i u njemu upisati sledeci kod
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim p As Integer
ActiveSheet.UsedRange.Clear
N = Int(InputBox("Unesite celobrojnu vrednost N za nivo piramide:", "Piramida"))
p = N
For i = N * 2 - 1 To 1 Step -2
k = 0
For j = 0 To i - 1
k = k + 1
If k = p Then
k = -k
End If
Cells(i - j, 1 + j) = Abs(k)
Next j
p = p - 1
Next i
End Sub