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 đơn thức

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

code đơn thức

Bài gửi by TranNgocSang on 10/11/2009, 07:20

Structure Don_Thuc
Dim iHeSo As Integer
Dim iSoMu As Integer
'bài 491: định nghĩa toán tử *
Shared Operator *(ByVal A As Don_Thuc, ByVal B As Don_Thuc) As Don_Thuc
Dim C As Don_Thuc
C.iHeSo = A.iHeSo * B.iHeSo
C.iSoMu = A.iSoMu + B.iSoMu
Return C
End Operator
'bài 492: định nghĩa toán tử /
Shared Operator /(ByVal A As Don_Thuc, ByVal B As Don_Thuc) As Don_Thuc
Dim C As Don_Thuc
C.iHeSo = A.iHeSo / B.iHeSo
C.iSoMu = A.iSoMu - B.iSoMu
Return C
End Operator
End Structure

Sub Nhap_Don_Thuc(ByRef A As Don_Thuc)
Console.Write("Nhap vao he so: ")
A.iHeSo = Console.ReadLine()
Console.Write("Nhap vao so mu: ")
A.iSoMu = Console.ReadLine()
End Sub
Sub Xuat_Don_Thuc(ByVal A As Don_Thuc)
Console.Write(vbCrLf & "Don thuc la: " & A.iHeSo & "x^" & A.iSoMu & vbCrLf)
End Sub
'bài 486: tính tích hai đơn thức
Function Tinh_Tich_Hai_Don_Thuc(ByVal A As Don_Thuc, ByVal B As Don_Thuc) As Don_Thuc
Dim C As Don_Thuc
C.iHeSo = A.iHeSo * B.iHeSo
C.iSoMu = A.iSoMu + B.iSoMu
Return C
End Function
'bai 487: tính đạo hàm đơn thức
Function Tinh_Dao_Ham_Don_Thuc(ByVal A As Don_Thuc) As Don_Thuc
Dim C As Don_Thuc
C.iHeSo = A.iHeSo * A.iSoMu
C.iSoMu = A.iSoMu - 1
Return C
End Function
'bài 488: tính thương hai đơn thức
Function Tinh_Thuong_Hai_Don_Thuc(ByVal A As Don_Thuc, ByVal B As Don_Thuc) As Don_Thuc
Dim C As Don_Thuc
C.iHeSo = A.iHeSo \ B.iHeSo
C.iSoMu = A.iSoMu - B.iSoMu
Return C
End Function
'bai 489: tính đạo hàm cấp k đơn thức
Function Tinh_Dao_Ham_Cap_K_Don_Thuc(ByVal A As Don_Thuc, ByVal k As Integer) As Don_Thuc
Dim i As Integer = 0
Dim C As Don_Thuc
While (i < k)
A.iHeSo = Tinh_Dao_Ham_Don_Thuc(A).iHeSo
A.iSoMu = Tinh_Dao_Ham_Don_Thuc(A).iSoMu
i = i + 1
End While
C.iHeSo = A.iHeSo
C.iSoMu = A.iSoMu
Return C
End Function
'bài 490: tính giá trị đơn thức tại x0
Function Tinh_Gia_Tri_Tai_X0(ByVal A As Don_Thuc, ByVal x0 As Integer) As Integer
Dim Ket_Qua As Integer = A.iHeSo * Math.Pow(x0, A.iSoMu)
Return Ket_Qua
End Function
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