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 phan so
..:: 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 phan so
Structure Phan_So
Dim Tu_So As Integer
Dim Mau_So As Integer
''bài 516: định nghĩa toán tử +
Shared Operator +(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
If (A.Mau_So = B.Mau_So) Then
C.Tu_So = A.Tu_So + B.Tu_So
C.Mau_So = A.Mau_So
Else
C.Tu_So = A.Tu_So * B.Mau_So + B.Tu_So * A.Mau_So
C.Mau_So = A.Mau_So * B.Mau_So
End If
Return C
End Operator
'bài 517: định nghĩa toán tử -
Shared Operator -(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
If (A.Mau_So = B.Mau_So) Then
C.Tu_So = A.Tu_So - B.Tu_So
C.Mau_So = A.Mau_So
Else
C.Tu_So = A.Tu_So * B.Mau_So - B.Tu_So * A.Mau_So
C.Mau_So = A.Mau_So * B.Mau_So
End If
Return C
End Operator
'bài 518: định nghĩa toán tử *
Shared Operator *(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
C.Tu_So = A.Tu_So * B.Tu_So
C.Mau_So = A.Mau_So * B.Mau_So
Return C
End Operator
'bài 519: định nghĩa toán tử /
Shared Operator /(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
C.Tu_So = A.Tu_So * B.Mau_So
C.Mau_So = A.Mau_So * B.Tu_So
Return C
End Operator
Shared Operator -(ByVal A As Phan_So) As Phan_So
End Operator
End Structure
Sub Nhap_Phan_So(ByRef A As Phan_So)
Console.Write("Nhap vao tu so: ")
A.Tu_So = Console.ReadLine()
Console.Write("Nhap vao mau so: ")
A.Mau_So = Console.ReadLine()
End Sub
Sub Xuat_Phan_So(ByRef A As Phan_So)
Console.Write(vbCrLf & A.Tu_So & "/" & A.Mau_So & vbCrLf)
End Sub
Function TimUocLonNhat(ByVal A As Integer, ByVal B As Integer) As Integer
While (A * B <> 0)
If (A > B) Then
A = A - B
Else
B = B - A
End If
End While
Return A
End Function
'bài 506: Rút gọn phân số
Function Rut_Gon_Phan_So(ByVal A As Phan_So) As Phan_So
Dim C As Phan_So
C.Tu_So = A.Tu_So / TimUocLonNhat(A.Tu_So, A.Mau_So)
C.Mau_So = A.Mau_So / TimUocLonNhat(A.Tu_So, A.Mau_So)
Return C
End Function
'bài 507: tính tổng hai phân số
Function Tinh_Tong_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A + B
Return C
End Function
'bài 508: tính hiệu hai phân số
Function Tinh_Hieu_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A - B
Return C
End Function
'bài 509: tính tích hai phân số
Function Tinh_Tich_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A * B
Return C
End Function
'bài 510: tính thương hai phân số
Function Tinh_Thuong_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A / B
Return C
End Function
'bài 511: kiểm tra phân số tối giản
Function Kiem_Tra_Phan_So_Toi_Gian(ByVal A As Phan_So) As Boolean
Dim C As Phan_So = Rut_Gon_Phan_So(A)
If (A.Mau_So = C.Mau_So And A.Tu_So = C.Tu_So) Then
Return True
End If
Return False
End Function
'bài 512: quy đồng hai phân số
Sub Quy_Dong_Hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A
A.Tu_So = A.Tu_So * B.Mau_So
A.Mau_So = A.Mau_So * B.Mau_So
B.Tu_So = B.Tu_So * C.Mau_So
B.Mau_So = B.Mau_So * C.Mau_So
Console.Write("Phan so da quy dong la: ")
Xuat_Phan_So(A)
Xuat_Phan_So(B)
End Sub
'bài 513: kiểm tra phân số dương
Function Kiem_Tra_Phan_So_Duong(ByVal A As Phan_So) As Boolean
If (A.Mau_So < 0 Or A.Tu_So < 0) Then
Return False
End If
Return True
End Function
'bài 514: kiểm tra phân số dương
Function Kiem_Tra_Phan_So_Am(ByVal A As Phan_So) As Boolean
If (A.Mau_So > 0 Or A.Tu_So > 0) Then
Return False
End If
Return True
End Function
'bài 515: so sánh hai phân số
Function So_Sanh_Hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So) As Integer
Dim C As Phan_So = A
A.Tu_So = A.Tu_So * B.Mau_So
A.Mau_So = A.Mau_So * B.Mau_So
B.Tu_So = B.Tu_So * C.Mau_So
B.Mau_So = B.Mau_So * C.Mau_So
If (A.Tu_So < B.Tu_So) Then
Return -1
ElseIf (A.Tu_So = B.Tu_So) Then
Return 0
End If
Return 1
End Function
Dim Tu_So As Integer
Dim Mau_So As Integer
''bài 516: định nghĩa toán tử +
Shared Operator +(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
If (A.Mau_So = B.Mau_So) Then
C.Tu_So = A.Tu_So + B.Tu_So
C.Mau_So = A.Mau_So
Else
C.Tu_So = A.Tu_So * B.Mau_So + B.Tu_So * A.Mau_So
C.Mau_So = A.Mau_So * B.Mau_So
End If
Return C
End Operator
'bài 517: định nghĩa toán tử -
Shared Operator -(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
If (A.Mau_So = B.Mau_So) Then
C.Tu_So = A.Tu_So - B.Tu_So
C.Mau_So = A.Mau_So
Else
C.Tu_So = A.Tu_So * B.Mau_So - B.Tu_So * A.Mau_So
C.Mau_So = A.Mau_So * B.Mau_So
End If
Return C
End Operator
'bài 518: định nghĩa toán tử *
Shared Operator *(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
C.Tu_So = A.Tu_So * B.Tu_So
C.Mau_So = A.Mau_So * B.Mau_So
Return C
End Operator
'bài 519: định nghĩa toán tử /
Shared Operator /(ByVal A As Phan_So, ByVal B As Phan_So) As Phan_So
Dim C As Phan_So
C.Tu_So = A.Tu_So * B.Mau_So
C.Mau_So = A.Mau_So * B.Tu_So
Return C
End Operator
Shared Operator -(ByVal A As Phan_So) As Phan_So
End Operator
End Structure
Sub Nhap_Phan_So(ByRef A As Phan_So)
Console.Write("Nhap vao tu so: ")
A.Tu_So = Console.ReadLine()
Console.Write("Nhap vao mau so: ")
A.Mau_So = Console.ReadLine()
End Sub
Sub Xuat_Phan_So(ByRef A As Phan_So)
Console.Write(vbCrLf & A.Tu_So & "/" & A.Mau_So & vbCrLf)
End Sub
Function TimUocLonNhat(ByVal A As Integer, ByVal B As Integer) As Integer
While (A * B <> 0)
If (A > B) Then
A = A - B
Else
B = B - A
End If
End While
Return A
End Function
'bài 506: Rút gọn phân số
Function Rut_Gon_Phan_So(ByVal A As Phan_So) As Phan_So
Dim C As Phan_So
C.Tu_So = A.Tu_So / TimUocLonNhat(A.Tu_So, A.Mau_So)
C.Mau_So = A.Mau_So / TimUocLonNhat(A.Tu_So, A.Mau_So)
Return C
End Function
'bài 507: tính tổng hai phân số
Function Tinh_Tong_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A + B
Return C
End Function
'bài 508: tính hiệu hai phân số
Function Tinh_Hieu_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A - B
Return C
End Function
'bài 509: tính tích hai phân số
Function Tinh_Tich_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A * B
Return C
End Function
'bài 510: tính thương hai phân số
Function Tinh_Thuong_hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A / B
Return C
End Function
'bài 511: kiểm tra phân số tối giản
Function Kiem_Tra_Phan_So_Toi_Gian(ByVal A As Phan_So) As Boolean
Dim C As Phan_So = Rut_Gon_Phan_So(A)
If (A.Mau_So = C.Mau_So And A.Tu_So = C.Tu_So) Then
Return True
End If
Return False
End Function
'bài 512: quy đồng hai phân số
Sub Quy_Dong_Hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So)
Dim C As Phan_So = A
A.Tu_So = A.Tu_So * B.Mau_So
A.Mau_So = A.Mau_So * B.Mau_So
B.Tu_So = B.Tu_So * C.Mau_So
B.Mau_So = B.Mau_So * C.Mau_So
Console.Write("Phan so da quy dong la: ")
Xuat_Phan_So(A)
Xuat_Phan_So(B)
End Sub
'bài 513: kiểm tra phân số dương
Function Kiem_Tra_Phan_So_Duong(ByVal A As Phan_So) As Boolean
If (A.Mau_So < 0 Or A.Tu_So < 0) Then
Return False
End If
Return True
End Function
'bài 514: kiểm tra phân số dương
Function Kiem_Tra_Phan_So_Am(ByVal A As Phan_So) As Boolean
If (A.Mau_So > 0 Or A.Tu_So > 0) Then
Return False
End If
Return True
End Function
'bài 515: so sánh hai phân số
Function So_Sanh_Hai_Phan_So(ByVal A As Phan_So, ByVal B As Phan_So) As Integer
Dim C As Phan_So = A
A.Tu_So = A.Tu_So * B.Mau_So
A.Mau_So = A.Mau_So * B.Mau_So
B.Tu_So = B.Tu_So * C.Mau_So
B.Mau_So = B.Mau_So * C.Mau_So
If (A.Tu_So < B.Tu_So) Then
Return -1
ElseIf (A.Tu_So = B.Tu_So) Then
Return 0
End If
Return 1
End Function
TranNgocSang-
Tổng số bài gửi : 17
Age : 34
Registration date : 11/05/2009
Similar topics
» code phan so
» lỗi o friend ?? trong bài phan số C++
» code đơn thức
» code ngày tháng
» code hình cầu
» lỗi o friend ?? trong bài phan số C++
» code đơn thức
» code ngày tháng
» code hình cầu
..:: 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
|
|