BÀI TẬP TIN ĐẠI CƯƠNG Bài tập mang tính tham khảo chưa hoàn thiện mong bạn hoàn thiện thêm HUMG Page BÀI TẬP TIN ĐẠI CƯƠNG CHƯƠNG V Bài 5.5 Private Sub Command1_Click() Dim n%, s& Do n = InputBox("nhap so : ") Loop Until (n >= 0) s=1 For i = To n s=s*i Next i MsgBox (n & " ! " & " = " & s) End Sub Bài 5.6 Private Sub Command1_Click() Dim n%, s1&, s2&, s!, i% Do n = InputBox("nhap so") Loop Until (n > 0) s1 = 0: s2 = For i = To n s1 = s1 + i ^ s2 = s2 + i * (i + 1) Next i s = s1 / s2 MsgBox ("Tn = " & s) End Sub Bài 5.9 Private Sub Command1_Click() Dim a%, b%, c%, max% HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG Do a = InputBox("nhap so thu = ") b = InputBox("nhap so thu = ") c = InputBox("nhap so thu = ") Loop Until (a > 0) And (b > 0) And (c > 0) max = a If a > b Then If a < c Then max = c Else If b > c Then max = b Else max = c End If End If MsgBox ("so lon nhat = " & max) End Sub Bài 5.10 Private Sub Command1_Click() Dim a$, s$ a = InputBox("nhap ky tu ") If (Asc(a) >= 48) And (Asc(a) = 65) And (Asc(a) = 97) And (Asc(a) 0) s1 = For i = To n s1 = s1 + i Next i s2 = (n * (n + 1)) / Print Str(s1) & " " & Str(s2) If (s1 = s2) Then Print "cong thuc dung" End Sub Bài 5.12 Private Sub Command1_Click() Dim n%, s1&, s2&, i% Do n = InputBox("nhap so = ") Loop Until (n > 0) s1 = For i = To n s1 = s1 + i ^ Next i s2 = (n * (n + 1) * (2 * n + 1)) / HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG Print s1 & " " & s2 If (s1 = s2) Then Print "cong thuc dung" End Sub Bài 5.13 Function gt(n%) As Long Dim i% gt = For i = To n gt = gt * i Next i End Function Private Sub Command1_Click() Dim n%, m%, s!, s1&, i% Do n = InputBox("nhap n") m = InputBox("nhap m") Loop Until (m >= 0) And (n > m) s1 = For i = To m - s1 = s1 * (n - i) Next i s1 = n * s1 s = s1 / gt(m) Print "to hop chap " & m & " cua " & n & " la = " & s End Sub Bài 5.14 Private Sub Command1_Click() Dim chuc%, dv%, i%, s&, kq1$, kq2$, kq3$ kq1 = "": kq2 = "": kq3 = "" HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG For i = 10 To 99 chuc = i \ 10 dv = i Mod 10 s=s+i If (chuc >= 3) And (chuc = 2) And (dv 0) And (c < 1) k=1 i=1 e=1 Do While (k > c) HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG k = / gt(i) e=e+k i=i+1 Loop Print e End Sub Bài 5.16 Private Sub Command1_Click() Dim a#, i&, s# a = InputBox("nhap so") i=1 s=0 Do While (s < a) s=s+1/i i=i+1 Loop Print i End Sub Bài 5.17 Private Sub Command1_Click() Dim i% For i = To 100 s1 = i ^ (1 / 2) s2 = i ^ (1 / 3) s3 = i ^ (1 / 4) Print s1 & " " & s2 & " " & s3 Next i End Sub Bài 5.18 Private Sub Command1_Click() HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG Dim a&, x$, n%, dem% a = InputBox("nhap so") x = Cstr(a) n = Len(x) dem = For i = To n If Val(Mid(x, i, 1)) Mod Then dem = dem + Next i Print "so cac so le = " & dem End Sub Bài 5.19 Function kthh(n%) As Boolean Dim i%, s& kthh = True s=0 For i = To n - If (n Mod i = 0) Then s=s+i End If Next i If (s n) Then kthh = False End Function Private Sub Command1_Click() Dim n%, i%, j%, kp$ n = InputBox("nhap so") kq = "" For i = To n If kthh(i) = True Then kq = kq & Str(i) & " " Next i HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG Print kq End Sub Bài 5.20 Private Sub Command1_Click() Dim s&, a% s=0 Do a = InputBox("nhap so") s=s+a Loop While (a 0) Print s End Sub Bài 5.21 Private Sub Command1_Click() Dim a%, n% Do a = InputBox("nhap so") Loop Until a > n = Len(CStr(a)) Print n End Sub Bài 5.23 Function gt(n%) As Long Dim i% gt = For i = To n gt = gt * i Next i End Function HUMG’S VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG Private Sub Command1_Click() Dim x!, n%, e!, s!, i% Do e = InputBox("nhap sai so") Loop Until (e > 0) And (e < 1) x = InputBox("nhap x") k=1 s=0 i=1 Do While (Abs(k) > e) s=s+k k = x ^ i / gt(i) i=i+1 Loop Print ("gia tri e^" & x & " la = " & s) End Sub Bài 5.25 Function gt(n%) As Double Dim i%, s gt = For i = To n gt = gt * i Next i End Function Private Sub Command1_Click() Dim x!, i%, cos!, k! x = InputBox("nhap goc") k = 1: i = cos = HUMG’S VISUAL BASIC trang 10 BÀI TẬP TIN ĐẠI CƯƠNG V ĐẢO NGƯỢC DÃY SỐ: Để đảo ngược dãy số ta làm sau: Sub daonguocday(x() as single, n%) Dim i%, tam! For i=1 to n\2 tam=x(i) x(i) = x(n – i +1) x(n – i +1) = tam next i end sub VI CHUYỂN PHẦN TỬ VỀ ĐẦU CHUỖI: Muốn chuyển phần tử đầu chuỗi ta tạo biến tạm có kiểu liệu với phần tử chuỗi thực hiên sau: Tam = x(i) x(i) = x(i+1) x(i+1) = tam VII CHUYỂN PHẦN TỬ XUỐNG CUỐI CHUỖI: Muốn chuyển phần tử xuống cuối chuỗi ta tạo biến tam thực hi ện nh sau: Tam = x(i+1) x(i+1) = x(i) x(i) = tam VIII LẤY TỪ RA TỪ CHUỖI: Để lấy ký tự từ chuỗi ta làm sau: Giả sử ta có chuỗi ký tự x x=trim(x) & “ ” n=len(x) i=1 while (i= 0) And (n n Then ktcp = False End Function Private Sub Command1_Click() Dim n% Do n = InputBox("nhap n") Loop Until (n >= 0) If (ktcp(n) = True) And (n Mod = 0) Then Print n & " thoa man dieu kien dau bai" Else Print n & " khong thoa man dieu kien dau bai" End If End Sub Bài Private Type canbo hoten As String ngaysinh As Date donvi As String End Type Function ho(x$) As String Dim vt% vt = InStr(1, x, " ") HUMG’S VISUAL BASIC trang 33 BÀI TẬP TIN ĐẠI CƯƠNG ho = Mid(x, 1, vt - 1) End Function Private Sub Command1_Click() Dim cb() As canbo, i%, m%, n%, fn% n = InputBox("nhap so can bo") ReDim cb(n) For i = To n cb(i).hoten = InputBox("nhap ho ten can bo thu " & i) cb(i).ngaysinh = InputBox("nhap sinh can bo thu " & i) cb(i).donvi = InputBox("nhap don vi can bo thu " & i) Next fn = FreeFile Open "d:\danhsach.txt" For Output As #fn For i = To n If ho(cb(i).hoten) = "tran" Then Print #fn, cb(i).hoten Print #fn, cb(i).ngaysinh Print #fn, cb(i).donvi End If Next Close #fn End Sub Đề 2: Xây dựng chương trình nhập vào họ tên người sau in sâu họ tên với kí t ự từ đổi thành chữ hoa, ký tự lại chữ thường Vd: họ tên nhập vào “trAn vAN hUnG” xâu sau in “Tran Van Hung” Xây dưng chương trình cho phép nhập vào tọa độ (x,y) điểm, tính kiểm tra xem điểm có đối xứng qua gốc tọa độ hay không? Bài làm HUMG’S VISUAL BASIC trang 34 BÀI TẬP TIN ĐẠI CƯƠNG Bài Function chuanhoa(x$) As String Dim vt%, i%, x1 x1 = LCase(Trim(x)) vt = 1: i = Do While (vt 0) vt = InStr(i, x1, " ") x1 = Mid(x1, 1, vt) & UCase(Mid(x1, vt + 1, 1)) & Mid(x1, vt + 2) i = vt + Loop chuanhoa = x1 End Function Private Sub Command1_Click() Dim x$ x = InputBox("nhap chuoi") Print chuanhoa(x) End Sub Bài Private Sub Command1_Click() Dim x1%, x2%, y1%, y2% x1 = InputBox("nhap hoanh diem 1") y1 = InputBox("nhap tung diem 1") x2 = InputBox("nhap hoanh diem 2") y2 = InputBox("nhap tung diem 2") If (x1 = -x2) And (y1 = -y2) Then Print ("hai diem doi xung qua goc toa do") Else HUMG’S VISUAL BASIC trang 35 BÀI TẬP TIN ĐẠI CƯƠNG Print ("hai diem khong doi xung qua goc toa do") End If End Sub Đề 3: Xây dựng chương trình tìm in tất số tự nhiên có chữ số mà mỗ s ố khơng có chữ số giống Ví dụ 3742 khơng có chữ số giống Xây dựng chương trình cho phép nhập vào phân số (bao gồm tử số mẫu số) tin tổng phân số dạng tối giản Bài làm Bài Private Sub Command1_Click() Dim i%, n% For i = 1234 To 6789 x = CStr(i) n = Len(x) For j = To n For k = j + To n If Val(Mid(x, j, 1)) = Val(Mid(x, k, 1)) Then Exit For Next k If k n Then Print i Next i End Sub Bài Private Sub Command1_Click() Dim a1%, a2%, b1%, b2%, x1$, x2$, vt1%, vt2% Do x1 = InputBox("nhap phan so thu 1") HUMG’S VISUAL BASIC trang 36 BÀI TẬP TIN ĐẠI CƯƠNG x2 = InputBox("nhap phan so thu 2") vt1 = InStr(1, x1, "/") vt2 = InStr(1, x2, "/") Loop Until (vt1 0) And (vt2 0) a1 = Val(Mid(x1, 1, vt1 - 1)) a2 = Val(Mid(x1, vt1 + 1)) b1 = Val(Mid(x2, 1, vt2 - 1)) b2 = Val(Mid(x2, vt2 + 1)) a1 = a1 * b2 + b1 * a2 a2 = a2 * b2 For b1 = a1 To Step -1 If (a1 Mod b1 = 0) And (a2 Mod b1 = 0) Then Exit For Next b1 a1 = a1 / b1 a2 = a2 / b1 Print CStr(a1) & "/" & CStr(a2) End Sub Đề 4: Viết chương trình nhập vào số thực a (a#0) số nguyên dương n sau tính : S= Nhập vào số nguyên dương a b, xét xem tổng ch ữ số (a+b) có phải s ố chẵn hay không? Bài làm Bài Private Sub Command1_Click() Dim n%, a!, i%, s! Do n = InputBox("nhap so n") Loop Until n >= a = InputBox("nhap so thuc a") HUMG’S VISUAL BASIC trang 37 BÀI TẬP TIN ĐẠI CƯƠNG s=0 For i = n To Step -1 s = Sqr(s + Abs(a) ^ -i) Next i Print s End Sub Bài Đề 5: Viết chương trình nhập vào dãy số nguyên dương x1, …, xn (n 0) And (n < 100) ReDim x(n) For i = To n x(i) = InputBox("x[" & i & "] = ") Next i dem = For i = To n If (x(i) Mod 13 = 0) And (x(i) Mod = 0) Then dem = dem + Print x(i) HUMG’S VISUAL BASIC trang 38 BÀI TẬP TIN ĐẠI CƯƠNG End If Next i If dem = Then Print "khong co phan tu nao thoa man" End Sub Bài Đề : Viết chương trình nhập vào số ngun dương n, sau tính biểu thức sau: S = , j!! = Viết chương trình nhập vào mốt số nguyên dương n, sau chèn ch ữ số nhỏ n vào sau chữ số chẵn n Bài làm Bài Function gtt(n%) As Single Dim i% gtt = For i = To n If n Mod = Then If i Mod = Then gtt = gtt * i End If Else If i Mod Then gtt = gtt * i End If End If Next i End Function Private Sub Command1_Click() HUMG’S VISUAL BASIC trang 39 BÀI TẬP TIN ĐẠI CƯƠNG Dim n%, i%, j%, s!, s1! Do n = InputBox("nhap n = ") Loop Until n >= s=0 For i = To n s1 = For j = To i s1 = s1 + / gtt(j) Next j s = s + Log(i) * s1 Next i Print "tong can tim = " & s End Sub Bài Function min(a%) As Integer Dim x$, i%, n% x = Trim(a) n = Len(x) = Val(Mid(x, 1, 1)) For i = To n If Val(Mid(x, i, 1)) < Then = Val(Mid(x, i, 1)) End If Next i End Function Function demchan(a%) As Integer HUMG’S VISUAL BASIC trang 40 BÀI TẬP TIN ĐẠI CƯƠNG Dim i%, n%, x$ x = CStr(a) demchan = n = Len(x) For i = To n If Val(Mid(x, i, 1)) Mod = Then demchan = demchan + End If Next i End Function Private Sub Command1_Click() Dim n%, x$, i%, m% Do n = InputBox("nhap n = ") Loop Until n >= x = Trim(n) m = Len(x) + demchan(n) - Print demchan(n) For i = To m If Val(Mid(x, i, 1)) Mod = Then x = Mid(x, 1, i) & CStr(min(n)) & Mid(x, i + 1) i=i+1 End If Next i Print x End Sub Đề 7: HUMG’S VISUAL BASIC trang 41 BÀI TẬP TIN ĐẠI CƯƠNG Xây dựng chương trình nhập số liệu từ tệp “dayso.dat” vào dãy số nguyên x1,x2, ,xn gồm n phần tử in vị trí phẩn tử âm dãy khơng có phần tử in thơng báo Xây dựng chương trình cho phép nhập vào số nguyên dương n tach n so nguyên dương a,b (n = a+b), cho tích p= a*b2 đạt cực đại Bài làm Bài Private Sub Command1_Click() Dim n%, i%, fn%, x() As Integer fn = FreeFile Open "DATA.DAT" For Input As #fn Input #fn, n ReDim x(n) For i = To n Input #fn, x(i) Next i Close #fn For i = To n If x(i) < Then Exit For Next i If i max Then max = p a1 = a b1 = b End If Next Print "a = " & a1 Print "b = " & b1 End Sub HUMG’S VISUAL BASIC trang 43 ... VISUAL BASIC trang BÀI TẬP TIN ĐẠI CƯƠNG Print kq End Sub Bài 5.20 Private Sub Command1_Click() Dim s&, a% s=0 Do a = InputBox("nhap so") s=s+a Loop While (a 0) Print s End Sub Bài 5.21 Private... HUMG’S VISUAL BASIC trang 30 BÀI TẬP TIN ĐẠI CƯƠNG Print x2 End Sub Bài 2: nhập vào danh sách sinh viên in danh sách sinh viên t ệp danhsach.txt theo th ứ t ự ABC theo tên Bài làm: Function ten(x$)...