Lời Hay Ý Đẹp
Latest topics
» Tự học lập trình IOS trong vòng 24h
by kenanh 27/1/2014, 22:28

» xin tài liệu một số môn học
by nguyentvvan 21/8/2013, 21:34

» [Thảo luận] Bài toán đong nước
by giathinh9x 9/1/2013, 22:39

» Học Marketing Online, Học Chuyên viên Internet Marketing Online tại iNET
by NIIT-iNET 19/6/2012, 14:23

» Học PHP nâng cao, Học lập trình web với PHP nâng cao tại học viện iNET
by NIIT-iNET 19/6/2012, 14:22

» Học PHP, học lập trình web với PHP tại iNET vào ngày 19/07/2012
by NIIT-iNET 19/6/2012, 14:20

» PHIÊN BẢN MỚI CHO THIÊN ĐƯỜNG CÁ Ô LA LA !!!
by todaytv 13/3/2012, 15:35

» [hot] game khu vườn địa đàng phiên bản mobile của KVTM
by trantinh1713 3/1/2012, 15:20

» Đề tham khảo (update phút 90)
by ndc_2209 29/12/2011, 10:26

» Học bổng Lời Dịch tuần này.
by tienganh123 1/11/2011, 13:13

» [Thảo luận] Quản lý phân công giảng dạy PTTH
by huyquang0510 5/10/2011, 09:52

» Học tiếng Nhật - Top Globis
by tuquynh 21/9/2011, 10:35

» Học tiếng Nhật - Top Globis
by tuquynh 8/8/2011, 11:19

» Order Imitrex Online
by Khách viếng thăm 4/8/2011, 18:46

» Speeds Caffeine Metabolism Up
by Khách viếng thăm 4/8/2011, 18:12

» Skin For Good Caffeine
by Khách viếng thăm 3/8/2011, 14:54

» Cheap Pvc Figures
by Khách viếng thăm 1/8/2011, 19:32

» Action Rapid Onset Zolpidem Of
by Khách viếng thăm 31/7/2011, 01:13

» TUYỂN NHÂN VIÊN KINH DOANH ( làm việc tại văn phòng )
by canhkientp 5/7/2011, 14:59

» Demo + Vài điểm thảo luận về LINQ - Nhóm 7
by ChuongTienPhat 3/7/2011, 12:19


code hình cầu

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

code hình cầu

Bài gửi by TranNgocSang on 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
avatar
TranNgocSang

Nam
Tổng số bài gửi : 17
Age : 28
Registration date : 11/05/2009

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết