Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Tuyệt Kỹ Đong Giai Chân Kinh (tuyệt Kỹ cua trai)
Thu Aug 23, 2012 5:38 am by Admin

» Tuyệt kỹ cua giai
Thu Aug 23, 2012 5:36 am by Admin

» NETCAT.........
Mon Aug 13, 2012 6:35 am by Admin

» Bảo mật CSDL bằng phương pháp mã hóa.
Tue Apr 17, 2012 10:04 pm by Admin

» Hàm mã hóa MD5 bằng JavaScript
Tue Apr 17, 2012 10:03 pm by Admin

» Giá của món quà
Fri Apr 13, 2012 6:01 am by Admin

» Sẽ chỉ yêu ai?
Fri Apr 13, 2012 6:01 am by Admin

» Cách đọc bảng chữ cái!
Thu Apr 12, 2012 10:37 pm by Admin

» Gắn trojan, keylog, virus vào website, forum
Tue Apr 10, 2012 1:14 am by Admin

Shopmotion


Affiliates
free forum


Thao tac tren mang mot chieu

Go down

Thao tac tren mang mot chieu

Post  Admin on Sat Jan 15, 2011 1:20 am

Code:
Imports System.Console
Module Module1
    Sub nhap(ByRef a() As Integer, ByVal n As Integer)
        Dim s As String
        For i = 0 To n - 1
            Write("Nhap phan tu thu[" & CStr(i) & "]: ")
            s = ReadLine()
            a(i) = Integer.Parse(s)
        Next
    End Sub
    Sub xuat(ByVal a() As Integer, ByVal n As Integer)
        For i = 0 To n - 1
            Write(a(i) & " ")
        Next
    End Sub
    Function tongmang(ByVal a() As Integer, ByVal n As Integer) As Integer
        Dim tong As Integer = 0
        For i = 0 To n - 1
            tong = tong + a(i)
        Next
        Return tong
    End Function
    Sub sort(ByVal a() As Integer, ByVal n As Integer)
        For i = 1 To n - 1 Step 1
            For j = n - 1 To i Step -1
                If (a(j - 1) > a(j)) Then
                    Dim tmp As Integer
                    tmp = a(j - 1)
                    a(j - 1) = a(j)
                    a(j) = tmp
                End If
            Next
        Next
    End Sub

    Sub Main()
        Dim a(30) As Integer
        Dim n As Integer
        Write("Nhap so phan tu cua mang: ")
        n = ReadLine()
        nhap(a, n)
        xuat(a, n)
        WriteLine()
        WriteLine(CStr(tongmang(a, n)))
        sort(a, n)
        xuat(a, n)
        ReadKey()
    End Sub
End Module







avatar
Admin
Admin

Tổng số bài gửi : 782
Join date : 2009-08-15

View user profile http://hackis.forumvi.com

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum