[ johana91 @ 26.11.2011. 20:12 ] @
treba napisati algoritam i potprogram za izracunavanje neke funkcije in(x) po nekoj formuli...kako bih to mogla.???? hvala
[ popmilan76 @ 12.12.2011. 15:42 ] @
napisacu ti ja ,samo reci koja formula i sta se izracunava,saljem ti na mail
[ Marko_L @ 12.12.2011. 20:13 ] @
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.
[ Joja11 @ 17.12.2011. 15:33 ] @
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)
[ dexivoje @ 13.10.2012. 13:29 ] @
Jel bi mogao neko da postavi reshenje ovde ako nije problem?
Unapred hvala!
[ FOX028 @ 13.10.2012. 23:31 ] @


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