Vizual

Zad 1
Sub Main(args As String())
        Dim x, iloczyn As Integer
        Dim wynik As String
        Console.Write("Podaj wyraz ciągu: ")
        x = Console.ReadLine
        If x > 0 Then
            iloczyn = x
        End If

        While x <> 0
            Console.Write("Podaj wyraz ciągu: ")
            x = Console.ReadLine
            If x > 0 Then
                iloczyn = iloczyn * x
            End If
        End While
        wynik = "iloczyn dodatnich elementów ciągu to: " + CStr(iloczyn)
        Console.WriteLine(wynik)
        Console.ReadKey()
    End Sub
Zad.2
Sub Main(args As String())
        Dim n, m, i, j, ile,lod,ldo As Integer
        Dim wynik As String
        lod = 0
        ldo = 10
        Console.Write("Podaj liczbę wierszy (mniej niż 5): ")
        n = Console.ReadLine
        Console.Write("Podaj liczbę kolumn (mniej niż 5): ")
        m = Console.ReadLine
        Dim tablica(n, m) As Integer
        ile = 0
        For i = 1 To n
            For j = 1 To m
                tablica(i, j) = Int(Rnd*(ldo-lod)+lod)
                If tablica(i, j) = 0 Then
                    ile = ile + 1
                End If
            Next
        Next
        For i = 1 To n
            For j = 1 To m
                Console.Write(tablica(i, j))
                Console.Write(" ")
            Next
            Console.WriteLine("")
        Next
        wynik = "ilość 0 t tej tablicy to: " + CStr(ile)
        Console.WriteLine(wynik)
        Console.ReadKey()
    End Sub






TABLICA 2  WYMIAROWA

Dim w, k, x, i, j As Integer
        Console.WriteLine("Proszę wprowadzić liczbę wieszy(w) i  kolumn(k)")
        Console.Write("w = ")
        w = Console.ReadLine()
        Console.Write("k = ")
        k = Console.ReadLine()
        w = w - 1
        k = k - 1
        Dim tablica(w, k) As Integer
        For i = 0 To (w)
            Console.WriteLine("Wprowadź dane : ")
            For j = 0 To (k)
                Console.Write("Podaj x : ")
                x = Console.ReadLine()
                tablica(j, i) = x
            Next
        Next
        Console.WriteLine("Dane zostały  wprowadzone :")
        Console.WriteLine("Dane zostaną  wyświetlone")
        For i = 0 To w
            For j = 0 To k
                Console.Write(tablica(j, i))
                Console.Write(" ")
            Next
            Console.WriteLine()
        Next
        Console.ReadKey()
    End Sub


TABLICA  JEDNOWYMIAROWA

Module Program
    Sub Main()
        Dim n, x, i As Integer
        Console.Write("Proszę wrpowadzić n: ")
        n = Console.ReadLine()
        Dim tablica(n - 1) As Integer
        For i = 0 To (n - 1)
            Console.Write("Wprowadz x: ")
            x = Console.ReadLine()
            tablica(i) = x
        Next
        Console.WriteLine("Dane do tablicy zostały wprowadzone")
        For i = 0 To (n - 1)
            Console.Write(tablica(i))
        Next
        Console.ReadKey()

    End Sub
End Module




TABLICA  2 WYMIAR  z  MAX I  MIN
 Sub Main(args As String())
        Dim w, k, x, i, j, max, min As Integer
        Console.WriteLine("Proszę wprowadzić liczbę wieszy(w) i  kolumn(k)")
        Console.Write("w = ")
        w = Console.ReadLine()
        Console.Write("k = ")
        k = Console.ReadLine()
        w = w - 1
        k = k - 1
        Dim tablica(w, k) As Integer
        For i = 0 To (w)
                Console.WriteLine("Wprowadź dane : ")
                For j = 0 To (k)
                    Console.Write("Podaj x : ")
                    x = Console.ReadLine()
                    tablica(j, i) = x
                Next
        Next
        Console.WriteLine("Dane zostały  wprowadzone :")
        Console.WriteLine("Dane zostaną  wyświetlone")
        For i = 0 To w
            For j = 0 To k
                Console.Write(tablica(j, i))
                Console.Write(" ")
            Next
            Console.WriteLine()
        Next
        min = 100
        max = 0
        For i = 0 To w
            For j = 0 To k
                If tablica(i, j) < min Then
                    min = tablica(i, j)
                End If

                If tablica(i, j) > max Then
                        max = tablica(i, j)
                    End If
            Next
        Next
        Console.Write("Maksimum : ")
        Console.WriteLine(max)
        Console.Write("Minimum : ")
        Console.WriteLine(min)
        Console.ReadKey()




Macierz  symetryczna kwadratowa

    Dim w, k, x, i, j As Integer
        Console.WriteLine("Proszę wprowadzić wymiar  macierzy")
        Console.Write("w = ")
        w = Console.ReadLine()
        w = w - 1
        k = w
        Dim tablica(w, k) As Integer
        For i = 0 To (w)
            Console.WriteLine("Wprowadź dane : ")
            For j = i To (k)
                Console.Write("Podaj x : ")
                x = Console.ReadLine()
                tablica(i, j) = x
                tablica(j, i) = tablica(i, j)
            Next
        Next
        Console.WriteLine("Dane zostały  wprowadzone :")
        Console.WriteLine("Dane zostaną  wyświetlone")
        For i = 0 To w
            For j = 0 To k
                Console.Write(tablica(j, i))
                Console.Write(" ")
            Next
            Console.WriteLine()
        Next
        Console.ReadKey()