Ljudi treba mi pomoc oko jednog zadatka koji glasi : "U Visual Basic-u napraviti program koji crta Paskalovu piramidu. Treba da uzme
parametar N i da ispisuje brojeve u celijama do nivoa N (u primeru je N=6)".
Stvarno bih vam bio zahvalan.
1 1 1 1 1 1
1 2 3 4 5
1 3 6 10
1 4 10
1 5
1
[Ovu poruku je menjao brzi62s dana 09.01.2012. u 17:14 GMT+1]
Code: Public Sub PaskalovaPiramida(n As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To n
k = 1
For j = 0 To n
If j >= i Then
Cells(i + 1, k) = Application.WorksheetFunction.Combin(j, i)
k = k + 1
End If
Next j
Next i
End Sub
Brate iskopiro sam i sad mi radi samo sam malo promenio
Option explicit
Sub main()
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
n = InputBox("Duzina paskalovog trougla")
For i = 0 To n-1
k = 1
For j = 0 To n-1
If j >= i Then
Cells(i + 1, k) = Application.WorksheetFunction.Combin(j, i)
k = k + 1
End If
Next j
Next i
End Sub
Imam samo jedan mali problem kada unesem 6 posle samo hoce ako je neki veci broj
ali ako je manj broj onda nece.
Hvala
[Ovu poruku je menjao brzi62s dana 09.01.2012. u 23:30 GMT+1]
Odradio sam nesto, mada nije ista forma kao sto si naveo ali moze da posluzi. Oyvori VBA editor i u Sheet1 je kod odatle ga mozes i pokrenuti, n je nivo trougla.
timmy hvala puno.
radi sve ali sad imam dva druga problema pa ako bi mogao
da mi pomognes:1. Isprogramirajte funkciju koja uzima ulaz N i ispisuje u Excel tabelu sve proste brojeve od
1 do N (jedan za drugim bez razmaka u redovima, u koloni A)
2.Napišite program u Visual Basic-u koji ucitava integer N i iscrtava sledecu šaru u Excel
tabeli (u primeru je N=15 i N mora da bude neparan broj):
nznm da stavim sliku ali uglavnom sara ide u x
kao ovako napr x
x
x
i za odredjeni broj napr 15 x-ova dijagonala je 15 crnih kvadratica sa jedne i 15 sa druge nadam se da me razumes
i to ulazi u novi x od 15 ali im je ona koja ih spaja ista crna tj drugi iks ima 14.
Samo mi kazi kako sliku da okacim i stavljam ti.
Hvala jos jednom za prvo resenje
Jer moze mala pomoc????
Imam zadatak u vb-u u excel-u...pa ako neko moze da mi pomogne....
evo teksta zadatka...
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)
upload sam sliku kako zadatak izgleda...
unapred hvala.....
Sub Piramida(N As Long)
On Error GoTo Handler
For i = 1 To 2 * N - 1 Step 2
For j = 1 To i
dodatak = Cells(i - j, j - 1)
Cells(i - j + 1, j) = 1 + dodatak
Next j
Next i
Jel moze pomoc za "Isprogramirajte funkciju koja uzima ulaz N i ispisuje u Excel tabelu sve proste brojeve od
1 do N (jedan za drugim bez razmaka u redovima, u koloni A)"?
nadam se da nisam fulio sekciju, naime ja imam jedan mali problem sa jednom excelomvom tabelom. Nju sam konvertovao iz pdf-a i sad bi je trebao malo srediti. Ako postoji VB code da napravi dopunu podataka na mjestima gdje bi poslije dobio još jednu kolonu pa poslije toga mogao tačno filtrirati podatke.
prvi sheet je original iz pdf-a, a drugi sheet sam dopunio onako kako sam zamislio da treba...sad me zanima da li je to moguće napraviti da se mogu npr sortirati-filtrirati osobe...Unaprije zahvalan!
Lijep pozdrav,
Alen
Zamolio bih za pomoc uz objasnjenje ako je neko u mogucnosti zaista mi je potrebno.
Zadatak glasi : Napišite program koji ispisuje „paskalovu“ piramidu u Excel tabeli. Kao ulaz se uzima dubina piramide (broj nivoa). Vrh piramide se nalazi u ćeliji A1, sledeći nivo u [A2, B1],