Onur Selek Kişisel web sitesi…

1 – 121 – 12321 şeklinde giden .net vb örneği

Direk kodları veriyorum anlamadığınız yerleri yorum olarak sorarsanız kısa sürede cevaplarım. Algoritmanın nasıl işlediğini yorum satırlarıyla anlatmaya çalıştım 4 for ile yapıldı.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' değişkenler tanımlandı

Dim m, n, a, b, c, bosluk, bos As Integer

Dim yazi As String

' m ve n yi elle girdim inputla alabilirsiniz siz.

m = 1

n = 7

bos = n

' bu for kaç satır işlem yapılcaksa o kadar çalışıyor.

For a = m To n

' aşağıdaki for boşluk koymak için başlara toplam uzunluğun bir eksiği tam geliyor o yüzden bos-1

For bosluk = 1 To bos - 1

'boşluk yerine alt çizgi kullandım çünkü boşluk az yer kaplıyor.

yazi = yazi & "_"

Next

' bu for sol tarafı yapıyor yani 3. satırsa 12 yi yazıyor sadece

For b = 1 To a - 1

yazi = yazi & b

Next

' aşağıdaki kod 3. satırsa 3 yazıyor öncedende 12 olduğu için 123 oluyor

yazi = yazi & a

' bu forda sağ tarafı yapıyor yani eksiye doğru gidiyor eskidenki kod 123 dü bu 21 ekliyor yani 12321 oluyor

For c = a - 1 To 1 Step -1

yazi = yazi & c

Next

' lb'a ekliyor ve siliyor bos'u azaltıyor çünkü aşağı gittikçe soldaki boşluk azalıyor.

ListBox1.Items.Add(yazi)

yazi = ""

bos = bos - 1

Next

End Sub