[ Misureee @ 24.12.2015. 23:26 ] @
HITNO mi je potrebno resenje ovog zadatka ako je neko u mogucnosti da uradi :
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],
[ Ivek33 @ 25.12.2015. 11:36 ] @
Pogledaj ovdje

btw:
Code:
Option Explicit 
   
 Private Sub CommandButton1_Click() 
     
    Dim pascalTr(10, 10) As Integer 
    Dim row, col As Integer 
    pascalTr(0, 0) = 1 
    pascalTr(1, 0) = 1 
    pascalTr(1, 1) = 1 
    For row = 2 To 10 
        pascalTr(row, 0) = 1 
        For col = 1 To row 

         pascalTr(row, col) = pascalTr(row - 1, col - 1) + pascalTr(row - 1, col) 
        Next 
    Next 
    For row = 0 To 10 
     
        For col = 0 To row 
          Cells(row + 1, col + 1) = pascalTr(row, col) 
          Next 
    Next 
 End Sub 
[ 3okc @ 26.12.2015. 12:09 ] @
Jedan alternativni pristup, bez ijedne petlje kao ni deklarisanja promenjljive.

Code:

Sub Paskalov_Trougao_iz_A1()
' Dimenzija trougla u A1

    With [b2].Resize( _
            IIf(1 < [a1].Value, [a1].Value, 1), _
            IIf(1 < [a1].Value, [a1].Value, 1))
        ActiveCell.CurrentRegion.ClearContents
        .FormulaR1C1 = "=IF(ROW()-COLUMN()-4 < " & _
            .Rows.Count & "-2*COLUMN(),rc[-1]+r[-1]c,0)"
        [b2].Value = 1
        .Copy:   .PasteSpecial xlValues
        .Replace What:="0", Replacement:="", _
            LookAt:=xlWhole
        .Cut Destination:=.Offset(-1, -1)
    End With
End Sub


Verovatno neće zadovoljiti zamisao nastavnika ali je ovo toliko prost zadatak da ne znam sa čime bih ga uporedio.. - Šta može biti elementarnije? Sabiranje dva broja? Upravo se o tome ovde i radi.
[ Ivek33 @ 27.12.2015. 19:53 ] @
Citat:
Misureee: Vrh piramide se nalazi u ćeliji A1, sledeći nivo u [A2, B1],
Evo primjera i sa formulama.
[ 3okc @ 28.12.2015. 11:48 ] @
U najelementarnijem obliku, mogli bismo do rešenja praktično iz dva koraka: prvo dve katete trougla ispunimo jedinicama a u drugom, prostor između, jedinstvenom formulom za sabiranje dva suseda -- već prema pravilu za pružanje.

Code:

Sub Paskalov_Trougao_iz_A1()
   ' Dimenzija trougla u A1: radi za dimenzije >= 2

    If [a1].Value >= 2 Then
        Names.Add Name:="\dim", RefersTo:=[a1].Value
        ActiveCell.CurrentRegion.ClearContents
        Range([a1].Resize([\dim]), [a1].Resize(, [\dim])) _
            .Value = 1
        [b2].Resize([\dim] - 1, [\dim] - 1) _
            .FormulaR1C1 = "=IF(COLUMN()-ROW()-2<" _
            & [\dim] & "-2*ROW(),rc[-1]+r[-1]c,"""")"
        Names("\dim").Delete
    End If
End Sub


Sad, s obzirom da je navedeno da "sledeći nivo" čine A2, B1 to znači da se katete pružaju u pravcima A1:A2 i A1:B1.