Latest topics
» Tự học lập trình IOS trong vòng 24hby 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 điểm không gian
..:: Diễn đàn lớp 07CK2 - ĐH.KHTN - TP.HCM ::.. :: [ GÓC HỌC TẬP ] :: CÁC MÔN ĐÃ HỌC :: LẬP TRÌNH ỨNG DỤNG QUẢN LÝ -1
Trang 1 trong tổng số 1 trang
code điểm không gian
'bài 555: khai báo kiểu dữ liệu điểm trong không gian
Structure Diem_Khong_Gian
Dim x As Integer
Dim y As Integer
Dim z As Integer
End Structure
'bài 556: nhập tọa độ điểm
Sub Nhap_Diem(ByRef A As Diem_Khong_Gian)
Console.Write("Nhap vao toa do diem x: ")
A.x = Console.ReadLine()
Console.Write("Nhap vao toa do diem y: ")
A.y = Console.ReadLine()
Console.Write("Nhap vao toa do diem z: ")
A.z = Console.ReadLine()
End Sub
'bài 557: xuất tọa độ điểm
Sub Xuat_Diem(ByVal A As Diem_Khong_Gian)
Console.Write("(" & A.x & "," & A.y & "," & A.z & ")")
End Sub
'bài 558: tính khỏang cách giữa hai điểm trong không gian
Function Tinh_Khoang_Cach(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Sqrt(Math.Pow(A.x - B.x, 2) + Math.Pow(A.y - B.y, 2) + Math.Pow(A.z - B.z, 2))
Return d
End Function
'bài 559: tính khỏang cách giữa hai điểm theo phương x
Function Tinh_Khoang_Cach_Theo_Phuong_x(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Abs(A.x - B.x)
Return d
End Function
'bài 560: tính khỏang cách giữa hai điểm theo phương y
Function Tinh_Khoang_Cach_Theo_Phuong_y(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Abs(A.y - B.y)
Return d
End Function
'bài 561: tính khỏang cách giữa hai điểm trong không gian
Function Tinh_Khoang_Cach_Theo_Phuong_z(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Abs(A.z - B.z)
Return d
End Function
'bài 562: tìm tọa độ điểm đối xứng qua gốc tọa độ
Function Tim_Diem_Doi_Xung_Qua_Goc_Toa_Do(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.x = -A.x
A.y = -A.y
A.z = -A.z
Return A
End Function
'bài 563: Tìm tọa độ điểm qua mặt phẳng oxy
Function Tim_Diem_Doi_Xung_Qua_oxy(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.z = -A.z
Return A
End Function
'bài 564: Tìm tọa độ điểm qua mặt phẳng oxz
Function Tim_Diem_Doi_Xung_Qua_oxz(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.y = -A.y
Return A
End Function
'bài 565: Tìm tọa độ điểm qua mặt phẳng oyz
Function Tim_Diem_Doi_Xung_Qua_oyz(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.x = -A.x
Return A
End Function
Structure Diem_Khong_Gian
Dim x As Integer
Dim y As Integer
Dim z As Integer
End Structure
'bài 556: nhập tọa độ điểm
Sub Nhap_Diem(ByRef A As Diem_Khong_Gian)
Console.Write("Nhap vao toa do diem x: ")
A.x = Console.ReadLine()
Console.Write("Nhap vao toa do diem y: ")
A.y = Console.ReadLine()
Console.Write("Nhap vao toa do diem z: ")
A.z = Console.ReadLine()
End Sub
'bài 557: xuất tọa độ điểm
Sub Xuat_Diem(ByVal A As Diem_Khong_Gian)
Console.Write("(" & A.x & "," & A.y & "," & A.z & ")")
End Sub
'bài 558: tính khỏang cách giữa hai điểm trong không gian
Function Tinh_Khoang_Cach(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Sqrt(Math.Pow(A.x - B.x, 2) + Math.Pow(A.y - B.y, 2) + Math.Pow(A.z - B.z, 2))
Return d
End Function
'bài 559: tính khỏang cách giữa hai điểm theo phương x
Function Tinh_Khoang_Cach_Theo_Phuong_x(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Abs(A.x - B.x)
Return d
End Function
'bài 560: tính khỏang cách giữa hai điểm theo phương y
Function Tinh_Khoang_Cach_Theo_Phuong_y(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Abs(A.y - B.y)
Return d
End Function
'bài 561: tính khỏang cách giữa hai điểm trong không gian
Function Tinh_Khoang_Cach_Theo_Phuong_z(ByVal A As Diem_Khong_Gian, ByVal B As Diem_Khong_Gian) As Double
Dim d As Double = Math.Abs(A.z - B.z)
Return d
End Function
'bài 562: tìm tọa độ điểm đối xứng qua gốc tọa độ
Function Tim_Diem_Doi_Xung_Qua_Goc_Toa_Do(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.x = -A.x
A.y = -A.y
A.z = -A.z
Return A
End Function
'bài 563: Tìm tọa độ điểm qua mặt phẳng oxy
Function Tim_Diem_Doi_Xung_Qua_oxy(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.z = -A.z
Return A
End Function
'bài 564: Tìm tọa độ điểm qua mặt phẳng oxz
Function Tim_Diem_Doi_Xung_Qua_oxz(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.y = -A.y
Return A
End Function
'bài 565: Tìm tọa độ điểm qua mặt phẳng oyz
Function Tim_Diem_Doi_Xung_Qua_oyz(ByVal A As Diem_Khong_Gian) As Diem_Khong_Gian
A.x = -A.x
Return A
End Function
TranNgocSang-
Tổng số bài gửi : 17
Age : 34
Registration date : 11/05/2009
..:: Diễn đàn lớp 07CK2 - ĐH.KHTN - TP.HCM ::.. :: [ GÓC HỌC TẬP ] :: CÁC MÔN ĐÃ HỌC :: LẬP TRÌNH ỨNG DỤNG QUẢN LÝ -1
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|