thầy vừa cứu em 1 điểm trong bài tập rồi ạ

Thầy giảng hay và dễ hiểu quá ạ!

Chia sẻ kiến thức rất bổ ích. Đã ĐK 544+1 ủ.ng hộ bạn.

Function doc(x) m = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", "n" & ChrW(259) & "m ", "sáu ", "b" & ChrW(7843) & "y", "tám ", "chín ") doc = (m(x)) End Function Function doctram(tram) t = doc(tram) + "tr" & ChrW(259) & "m " doctram = t End Function Function ddv(chuc, dv) t = doc(dv) If dv = 1 And (chuc = 0 Or chuc = 1) Then t = "m" & ChrW(7897) & "t " End If If dv = 1 And chuc > 1 Then t = "m" & ChrW(7889) & "t " End If If dv = 4 And chuc > 1 Then t = "t" & ChrW(7881) + " " End If If dv = 5 And chuc = 0 Then t = "n" & ChrW(259) & "m " End If If dv = 5 And chuc > 0 Then t = "l" & ChrW(259) & "m " End If If dv = 0 Then t = "" End If ddv = t End Function Function docchuc(chuc, dv) t = doc(chuc) + "m" & ChrW(432) & ChrW(417) & "i " If chuc = 0 And dv > 0 Then t = "linh " End If If chuc = 0 And dv = 0 Then t = "" End If If chuc = 1 Then t = "m" & ChrW(432) & ChrW(7901) & "i " End If docchuc = t End Function

Function doc_mot_lop(N) t = "" chuc = -1 tram = -1 dv = -1 If N >= 100 Then tram = Int((N Mod 1000) / 100) t = t + doctram(tram) End If If N >= 10 Then chuc = Int((N Mod 100) / 10) dv = N Mod 10 t = t + docchuc(chuc, dv) + ddv(chuc, dv) End If If N < 10 Then t = doc(N) End If If tram = 0 And chuc = 0 And dv = 0 Then t = "" End If doc_mot_lop = t End Function

Function xdlop(landoc) lop = "" If landoc = 0 Then lop = "" End If If landoc = 1 Then lop = "nghìn " End If If landoc = 2 Then lop = "tri" & ChrW(7879) & "u " End If If landoc = 3 Then lop = "t" & ChrW(7881) + " " End If xdlop = lop End Function Function bangchu(N) landoc = 0 lop = "" kq = "" Do t = "" t = doc_mot_lop(N) If t <> "" Then lop = xdlop(landoc) End If t = t + lop kq = t + kq N = Int(N / 1000) landoc = landoc + 1 If landoc > 3 Then landoc = 1 End If Loop While N > 0 bangchu = kq End Function

Mả các từ bị lỗi ở đây nhé: MỘT: "m" & ChrW(7897) & "t " MỐT: "m" & ChrW(7889) & "t " BỐN: "b" & ChrW(7889) & "n " TƯ: "t" & ChrW(432) NĂM: "n" & ChrW(259) & "m " BẢY: "b" & ChrW(7843) & "y" LĂM: "l" & ChrW(259) & "m " MƯỜI : "m" & ChrW(432) & ChrW(7901) & "i " MƯƠI: "m" & ChrW(432) & ChrW(417) & "i " TRĂM : "tr" & ChrW(259) & "m " TRIỆU: "tri" & ChrW(7879) & "u " Tỉ: "t" & ChrW(7881)+" "

Bạn có thể copy code của hai hàm trong bình luận sau nhé

Function layten(hovaten As String) ten = "" d = Len(hovaten) Do k = Mid(hovaten, d, 1) ten = k + ten d = d - 1 Loop While k <> " " layten = LTrim(ten) End Function Function layhodem(hovaten As String, ten As String) d = Len(hovaten) - Len(ten) layhodem = Left(hovaten, d) End Function

Hay quá anh

Chứng minh: UCLN(a,b)=UCLN(b,R) với R là số dư của a/b Giả sử m là UCLN(a,b) ta có a "᎒" m và b "᎒" m. Ta viết a=b*x+R =>(b*x+R) "᎒" m Do tổng (b*x+R) "᎒" m và có b*x "᎒" m => R "᎒" m tức là m cũng là UCLN của b và R Vậy UCLN(a,b)=UCLN(b,R)=m

Chứng minh: Nếu tổng (a+b) ᎒ m, a ᎒ m, Thì b ᎒ m Xét biểu thức (a+b):m = a/m+b/m là biểu thức nguyên vì (a+b)᎒ m Mà a/m nguyen=> b/m nguyên tức là b᎒m

Em chào thầy! Ra nhiều video thầy nhé!

Ủng hộ bạn!

Dạ em cám ơn Thầy rất nhiều, mong Thầy ngày càng được Nhiều Người biết đến và ra nhiều videos hơn nữa. Dạ video hôm nay rất dễ hiểu và hay ạ

Có cánh tính trong excel không thầy

cho em hỏi làm sao để xuất ra file tiếng việt có dấu vậy được ạ? em làm có dấu in ra được, còn ghi nó sẽ báo lỗi, em cảm ơn!

code hay

dạ em cảm ơn thầy ạ

Ko khai báo biến self.chieudai mà dùng đc trong hàm diênn tích lun hạ thầy

hay qua ah

cho tệp văn bản dulieu.inp mỗi dòng chứa một số hãy lập trình đọc tệp vaf đưa ra giá trị lớn nhất màn hình, em hỏi bài này với ạ

cảm ơn thầy nhiều ạ mong thầy ra nhiều video hướng dẫn như này hơn

Làm sao dung cython trên pycripter được vậy thầy

moi ng oi co cach nao lam cho chuwx o phan ket qua cau lenh to len ko vay

thầy ơi thầy có thêm tài liệu ko ạ

Cảm ơn thầy! mong thầy mạnh khỏe và chia sẻ nhiều video hơn

Cảm ơn thầy đã chia sẻ

Người xem thứ 500

Học 1 học kì ko bằng 1 tiếng xem c thầy 🥲🥲

cho em hỏi là chỗ x=i+x thì chương trình chạy sao để có thể đảo ngược chữ vậy ạ?

thầy hơi tính chỉnh hợp thì làm như nào ạ

dạ em nhập .inp thì nó a .inp.txt ý ạ, làm sao để tắt txt v ạ

em cảm mơnư thầy, thầy dạy rất dễ hiểu.

Hay thầy ơi

Thầy không cần dùng IDE nhắc lệnh code mà vẫn code trơn tru. Rất ngưỡng mộ thầy

Thầy làm video rất dễ hiểu

Cảm ơn thầy đã chia sẻ

Thầy hướng dẫn rất dễ hiểu

thầy cho e xin face ạ

hôm nào rèn em 1 khóa nhé thầy. hihhi