code hình cầu

by TranNgocSang 10/11/2009, 07:15

Module Xu_Ly_Hinh_Cau
Structure Diem
Dim x As Integer
Dim y As Integer
Dim z As Integer
End Structure
Structure Hinh_Cau
Dim Tam As Diem
Dim Bankinh As Integer
End Structure
Sub NhapDiem(ByRef A As Diem)
Console.Write("Nhap vao toa do x: ")
A.x = Console.ReadLine()
Console.Write("Nhap vao toa do y: ")
A.y = Console.ReadLine()
Console.Write("Nhap vao toa do z: ")
A.z = Console.ReadLine()
End Sub
Sub NhapHinhCau(ByRef C As Hinh_Cau)
Console.Write("Nhap tam: " & vbCrLf)
NhapDiem(C.Tam)
Console.Write("Nhap ban kinh: ")
C.Bankinh = Console.ReadLine()
End Sub
Sub XuatDiem(ByRef A As Diem)
Console.Write("(" & A.x & "," & A.y & "," & A.z & ")")
End Sub
Sub XuatHinhCau(ByRef C As Hinh_Cau)
Console.Write("(")
XuatDiem(C.Tam)
Console.Write("," & C.Bankinh & ")")
End Sub
Function Tinh_Dien_Tich_Xung_Quanh(ByVal A As Hinh_Cau) As Double
Return 4 * 3.14 * A.Bankinh * A.Bankinh
End Function
Function Tinh_The_Tich(ByVal C As Hinh_Cau) As Double
Return (4 / 3) * 3.14 * Math.Pow(C.Bankinh, 3)
End Function
Function Tinh_Khoang_Cach_Giua_Hai_Diem(ByVal A As Diem, ByVal B As Diem)
Return Math.Sqrt(Math.Pow(A.x - B.x, 2) + Math.Pow(A.y - B.y, 2) + Math.Pow(A.z - B.z, 2))
End Function
'bài 579: xét vị trí tương đối của hai hình cầu
Sub Xet_Vi_Tri_Hai_Hinh_Cau(ByVal A As Hinh_Cau, ByVal B As Hinh_Cau)
Dim Khoang_Cach As Double = Tinh_Khoang_Cach_Giua_Hai_Diem(A.Tam, B.Tam)
If (Khoang_Cach = A.Bankinh + B.Bankinh) Then
Console.Write("Hai hinh cau tiep xuc nhau")
ElseIf (Khoang_Cach < A.Bankinh + B.Bankinh) Then
Console.Write("Hai hinh cau cat nhau")
Else
Console.Write("Hai hinh cau khong cat nhau")
End If
End Sub
'bài 580: kiểm tra tọa độ một điểm có năm trong hình cầu không
Sub Kiem_Tra(ByVal A As Hinh_Cau, ByVal d As Diem)
Dim Khoang_Cach As Double = Tinh_Khoang_Cach_Giua_Hai_Diem(A.Tam, d)
If (Khoang_Cach = A.Bankinh) Then
Console.Write("diem nay tiep xuc hinh cau")
ElseIf (Khoang_Cach < A.Bankinh) Then
Console.Write("diem nay nam trong hinh cau")
Else
Console.Write("diem nay nam ngoai hinh cau")
End If
End Sub

End Module