vb.net matrisler ile ilgili sorular

[Fedoralover]

Göster: Sorularım:

1.Resim:

2.Resim:

Göster: 2.Resim, 1.soru'nun cevabı:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dizi(0 To 9) As Integer
        dizi(0) = 5
        dizi(1) = 10
        dizi(2) = 15
        dizi(3) = 13
        dizi(4) = 15
        dizi(5) = 22
        dizi(6) = 42
        dizi(7) = 21
        dizi(8) = 99
        dizi(9) = 4
        Array.Sort(dizi)
        For sayac As Integer = 0 To 9
        ListBox1.Items.Add(dizi(sayac))
        Next
    End Sub
End Class

Göster: Bir türlü birleştiremediğim kodlarım:

Bu kod da dışarıdan girilen NxN matris'in satır veya sutun değerlerinin değiştirilmesi için yazılan programı yapmaya çalıştım.

Public Class Form1
    Dim i, j, n, m, l As Integer
    Dim dizi(n), yenidizi(n) As Integer
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        n = InputBox("Matris kaç satır olsun:")
        m = InputBox("Matris kaç sütun olsun:")
        TextBox1.Text = ""
        For i = 1 To n
            For j = 1 To m
                dizi(i, j) = Val(InputBox(" .matris" & i & "---" & j & ".elemanın değeri:"))
                TextBox1.Text = TextBox1.Text & "" & dizi(i, j)
            Next j
            TextBox1.Text = TextBox1.Text & vbCrLf 'vbCrlf alt satıra atlamak için
        Next i
        Dim eleman, yenisayi As Integer
        Dim dizi(i, j), yenidizi(i, j) As Integer

        eleman = InputBox("değiştirmek istediğin elemanın satır numarasını gir")
        yenisayi = InputBox("yeni değeri giriniz")
        dizi(eleman) = yenisayi

        For i = 0 To n
            yenidizi(i) = dizi(i)
            ListBox1.Items.Add(yenidizi(i, j))
        Next
    End Sub

    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim n, eleman, yenisayi As Integer
        Dim dizi(n), yenidizi(n) As Integer

        eleman = InputBox("değiştirmek istediğin elemanın index numarasını gir")
        yenisayi = InputBox("yeni değeri giriniz")
        dizi(eleman) = yenisayi

        For i = 0 To n
            yenidizi(i) = dizi(i)
            ListBox1.Items.Add(yenidizi(i))
        Next
    End Sub
End Class

Resimde ki soruları çözmeye ve diziler ile alakalı konuyu kavramaya çalışıyorum ama bir türlü satır ve sütun değerlerini değiştirmeyi öğrenemedim. İnternette yabancı kaynakların altını üstüne getirdim ama bir türlü şu matrislerin satır ve sütun değeri girilen soruları çözemiyorum. Bu sorulara benzer sorular vb. hiç bir bilgi bulamadım. Eğer bu sorulara benzer veya bu konuyu anlamama yardımcı olacak web adresi biliyorsanız ve önerirseniz sevinirim. Bir de soruları çözmeye çalışıyorum ama yukarı da attığım kodları bir türlü birleştiremedim. Yardımcı olursanız sevinirim. Teşekkürler.

 

[Desp0tizm]

Göster: Sorularım:

1.Resim:
Ekli dosyayı görüntüle 137874
2.Resim:
Ekli dosyayı görüntüle 137875

Göster: 2.Resim, 1.soru:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dizi(0 To 9) As Integer
        dizi(0) = 5
        dizi(1) = 10
        dizi(2) = 15
        dizi(3) = 13
        dizi(4) = 15
        dizi(5) = 22
        dizi(6) = 42
        dizi(7) = 21
        dizi(8) = 99
        dizi(9) = 4
        Array.Sort(dizi)
        For sayac As Integer = 0 To 9
        ListBox1.Items.Add(dizi(sayac))
        Next
    End Sub
End Class

Göster: Bir türlü birleştiremediğim kodlarım:

Bu kod da dışarıdan girilen NxN matris'in satır veya sutun değerlerinin değiştirilmesi için yazılan programı yapmaya çalıştım.

Public Class Form1
    Dim i, j, n, m, l As Integer
    Dim dizi(n), yenidizi(n) As Integer
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        n = InputBox("Matris kaç satır olsun:")
        m = InputBox("Matris kaç sütun olsun:")
        TextBox1.Text = ""
        For i = 1 To n
            For j = 1 To m
                dizi(i, j) = Val(InputBox(" .matris" & i & "---" & j & ".elemanın değeri:"))
                TextBox1.Text = TextBox1.Text & "" & dizi(i, j)
            Next j
            TextBox1.Text = TextBox1.Text & vbCrLf 'vbCrlf alt satıra atlamak için
        Next i
        Dim eleman, yenisayi As Integer
        Dim dizi(i, j), yenidizi(i, j) As Integer

        eleman = InputBox("değiştirmek istediğin elemanın satır numarasını gir")
        yenisayi = InputBox("yeni değeri giriniz")
        dizi(eleman) = yenisayi

        For i = 0 To n
            yenidizi(i) = dizi(i)
            ListBox1.Items.Add(yenidizi(i, j))
        Next
    End Sub

    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim n, eleman, yenisayi As Integer
        Dim dizi(n), yenidizi(n) As Integer

        eleman = InputBox("değiştirmek istediğin elemanın index numarasını gir")
        yenisayi = InputBox("yeni değeri giriniz")
        dizi(eleman) = yenisayi

        For i = 0 To n
            yenidizi(i) = dizi(i)
            ListBox1.Items.Add(yenidizi(i))
        Next
    End Sub
End Class

Kardesim daha detayli anlatirsan iyi olur

 

[ProgramBoy]

İlk sorunun çözümü fakat vb.net değil

 

[Fedoralover]

İlk sorunun çözümü fakat vb.net değil

Yazdığınız yazılım dilini hayatımda ilk defa görüyorum. Sublime text genellikle php vb. diller için kullanıyorlar ama bu yazılım dilinin adı ne?

 

[rover_xp]

Yazdığınız yazılım dilini hayatımda ilk defa görüyorum. Sublime text genellikle php vb. diller için kullanıyorlar ama bu yazılım dilinin adı ne?

Visual basic

 

[ProgramBoy]

Yazdığınız yazılım dilini hayatımda ilk defa görüyorum. Sublime text genellikle php vb. diller için kullanıyorlar ama bu yazılım dilinin adı ne?

Dosya uzantısından belli: Lisp
Sublime Text'te Lisp deneme ekranı (REPL) ekledim sadece.