Visual Basic za Aplikacije ili za Excel Pomoc

Visual Basic za Aplikacije ili za Excel Pomoc 25.12.2015. u 00:26 · pre 132 meseca #1

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],

Re: Visual Basic za Aplikacije ili za Excel Pomoc 25.12.2015. u 12:36 · pre 132 meseca #2

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

Re: Visual Basic za Aplikacije ili za Excel Pomoc 26.12.2015. u 13:09 · pre 132 meseca #3

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.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: Visual Basic za Aplikacije ili za Excel Pomoc 27.12.2015. u 20:53 · pre 132 meseca #4

Citat:

Misureee: Vrh piramide se nalazi u ćeliji A1, sledeći nivo u [A2, B1],

Evo primjera i sa formulama.

PascalPiramida.xlsx10.01k

Re: Visual Basic za Aplikacije ili za Excel Pomoc 28.12.2015. u 12:48 · pre 132 meseca #5

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.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Forum kao aplikacija na telefonu

Srodne teme