jel moze mala pomoc ono zadatka???

jel moze mala pomoc ono zadatka??? 26.11.2011. u 20:12 · pre 181 meseci #1

treba napisati algoritam i potprogram za izracunavanje neke funkcije in(x) po nekoj formuli...kako bih to mogla.???? hvala

Re: jel moze mala pomoc ono zadatka??? 12.12.2011. u 15:42 · pre 180 meseci #2

napisacu ti ja ,samo reci koja formula i sta se izracunava,saljem ti na mail

Re: jel moze mala pomoc ono zadatka??? 12.12.2011. u 20:13 · pre 180 meseci #3

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

Re: jel moze mala pomoc ono zadatka??? 17.12.2011. u 15:33 · pre 180 meseci #4

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)

Untitled.png55.8k

Re: jel moze mala pomoc ono zadatka??? 13.10.2012. u 13:29 · pre 170 meseci #5

Jel bi mogao neko da postavi reshenje ovde ako nije problem?
Unapred hvala!

Re: jel moze mala pomoc ono zadatka??? 13.10.2012. u 23:31 · pre 170 meseci #6

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

Potpis

[email protected]=

Srodne teme