Search
Latest topics
Thao tac tren mang mot chieu
Page 1 of 1 • Share •
Thao tac tren mang mot chieu
- 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
Admin- Admin
- Tổng số bài gửi : 782
Join date : 2009-08-15
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
» Tuyệt kỹ cua giai
» NETCAT.........
» Bảo mật CSDL bằng phương pháp mã hóa.
» Hàm mã hóa MD5 bằng JavaScript
» Giá của món quà
» Sẽ chỉ yêu ai?
» Cách đọc bảng chữ cái!
» Gắn trojan, keylog, virus vào website, forum