Structure tam giác

by domauphap 7/11/2009, 13:16

Code:: structure tam giác bao gồm 3 điểm A, B, C File DiemOxy.vb Module DiemOxy Structure Diem Dim x As Double Dim y As Double End Structure Sub NhapDiem(ByRef P As Diem) Console.Write(" + nhap hoanh do x: ") P.x = Console.ReadLine() Console.Write(" + nhap tung do y: ") P.y = Console.ReadLine() End Sub Sub XuatDiem(ByVal P As Diem) Console.Write("(" & P.x & "," & P.y & ")" & vbNewLine) End Sub End Module File TamGiacOxy.vb Module TamGiacOxy Structure TamGiac Dim A As DiemOxy.Diem Dim B As DiemOxy.Diem Dim C As DiemOxy.Diem End Structure Sub NhapTamGiac(ByRef ABC As TamGiac) Console.Write("Nhap toa do diem A." & vbNewLine) DiemOxy.NhapDiem(ABC.A) Console.Write("Nhap toa do diem B." & vbNewLine) DiemOxy.NhapDiem(ABC.B) Console.Write("Nhap toa do diem C." & vbNewLine) DiemOxy.NhapDiem(ABC.C) End Sub Sub XuatTamGiac(ByVal ABC As TamGiac) Console.Write("Toa do cac dinh trong tam giac: " & vbNewLine) Console.Write(" + Toa do diem A: ") DiemOxy.XuatDiem(ABC.A) Console.Write(" + Toa do diem B: ") DiemOxy.XuatDiem(ABC.B) Console.Write(" + Toa do diem C: ") DiemOxy.XuatDiem(ABC.C) End Sub End Module File Module1.vb (hàm main) Module Module1 Sub Main() Dim ABC As TamGiacOxy.TamGiac TamGiacOxy.NhapTamGiac(ABC) TamGiacOxy.XuatTamGiac(ABC) End Sub End Module

by **ChuongTienPhat** 7/11/2009, 17:55

Thanks Pháp nhiều nhá,
cố gắng phát huy ^o^
Trình bày kiểu này dễ xem này, mỗi file 1 tag code khác nhau càng tốt

Re: Structure tam giác