LẬP TRÌNH VISUAL BASIC BÀI TẬP THỰC HÀNH SỐ 4

LẬP TRÌNH VISUAL BASIC BÀI TẬP THỰC HÀNH SỐ CẤU TRÚC ĐIỀU KHIỂN Chuẩn đầu Sau học xong chương này, sinh viên có thể: - Trình bày cú pháp cấu trúc điều khiển - Chuyển đổi qua lại cấu trúc lặp sử dụng For … Next, Do While … Loop, Do … Loop Until - Viết chương trình có sử dụng cấu trúc điều khiển - Thái độ làm việc chăm chỉ, hình thành phong cách lập trình Chuẩn bị SV phải làm (trên giấy) tập mảng làm lớp lý thuyết làm thêm nhà Phương tiện Phòng máy có cài chương trình Microsoft Visual Basic 6.0 Thời lượng tiết Tóm tắt lý thuyết Cấu trúc điều khiển chia làm ba loại: cấu trúc tuần tự, cấu trúc chọn, cấu trúc lặp - Cấu trúc tuần tự: chương trình thực từ xuống dưới, dịng lệnh viết trước thực trước - Cấu trúc chọn: cho phép thực công việc khác tùy theo điều kiện o Cấu trúc If dạng khuyết If Then If Then End If o Cấu trúc If dạng đủ If then else If Then Else End If o Cấu trúc If dạng phức tạp If then ElseIf then ElseIf then Else EndIf o Cấu trúc Select Case dạng khuyết Select Case Case Case … Case End Select o Cấu trúc Select Case dạng đủ Select Case Case Case … Case Case Else End Select - Cấu trúc lặp: o Cấu trúc lặp xác định For … Next For = to [Step ] Next [] Chức năng: thực từ đến , giá trị thay đổi theo o Cấu trúc lặp không xác định Do … Loop Dạng 1: Do While Loop Chức năng: thực thi lặp lại sai Dạng 2: Do Until Loop Chức năng: sai thực thi lặp lại Dạng 3: Do Loop While Chức năng: thực thi lặp lại Dạng 4: Do Loop Until Chức năng: thực thi lặp lại sai Nội dung thực hành 6.1 Viết chương trình giải phương trình bậc hai ax2 + bx + c = 6.2 Viết chương trình tính số ngày tháng năm - Nếu tháng = 4, 6, 9, 11 số ngày = 30 - Nếu tháng = 1, 3, 5, 7, 8, 10, 12 số ngày = 31 - Nếu tháng = số ngày = 28 29 (nếu năm nhuận) - Năm nhuận năm chia hết cho 400 năm chia hết cho khơng chia hết cho 100 6.3 Viết chương trình tính tiền điện phải trả theo số kWh sử dụng nhập vào Bảng tính tiền điện cho sau: Ví dụ: sử dụng 223 kWh số tiền phải trả là: 100*1284 + 50*1457 + 50*1843 + 23*1997 = 339331 6.4 6.5 6.6 6.7 6.8 6.9 Cho số ngun n, tính s = n! = 1× × L × n , với n ≥ (0! =1) x x3 x5 x (−1)n x n+1 , với n ≥ − + − +L + 1! 3! 5! 7! (2n + 1)! Cho số nguyên dương n, tìm số đảo ngược n Ví dụ, với n = 12345 số đảo ngược n 54321 Cho số nguyên n, cho biết n có phải số ngun tố hay khơng? Viết chương trình tính ước số chung lớn hai số nguyên dương Viết chương trình kiểm tra số ngun dương n có phải số hồn hảo hay khơng? Cho số ngun n, tính tổng s = 6.10 Viết chương trình kiểm tra số ngun dương n có phải số phương hay không? Bài tập thêm 7.1 Viết chương trình nhập vào tử số mẫu số phân số, thực tối giản phân số 7.2 Viết chương trình xếp loại học lực theo điểm trung bình nhập vào - DiemTB < 5.0  Yếu - 5.0 r = n mod 10 t = t * 10 + r n = n / 10 Loop Print t Dùng Do Loop Until t=0 r=0 Do r = n mod 10 t = t * 10 + r n = n / 10 Loop Until n = Print t Thiết kết chương trình hồn chỉnh Thiết kế giao diện chương trình đặt tên đối tượng hình bên txtN cmdDaoNguoc lblKetQua Mã chương trình bên Bài 6.7: Cho số nguyên n, cho biết n có phải số nguyên tố hay khơng? Phân tích Số ngun tố số nguyên lớn có hai ước Để kiểm tra điều ta cần lấy n chia cho số 2, 3, , n-1 Ngay ta bắt gặp số ước n ta dừng xác định n số nguyên tố Ngược lại, khơng có số số 2, 3, , n-1 ước n n số nguyên tố Cách làm dựa vào định nghĩa số nguyên tố Tuy nhiên, liệu ta đề xuất thuật toán hiệu hơn? Giả sử n số nguyên tố, nghĩa n phân tích dạng n = a × b , với a > b > Khi đó, a ≤ n b ≤ n (vì khơng a × b > n ) Như vậy, n số nguyên tố n có ước ≤ n  Điều có nghĩa n khơng có ước ≤ n n số nguyên tố Như vậy, để kiểm tra xem n có phải số nguyên tố hay không, ta cần lấy n chia cho số 2, 3, , n ( n nhỏ đáng kể so với n n lớn) Ngay ta bắt gặp số ước n ta dừng xác định n khơng phải số ngun tố Ngược lại, khơng có số số 2, 3, , n ước n n số ngun tố Mơ tả thuật toán Xem lưu đồ bên Cài đặt thuật toán Dùng For If n < Then kt = False Else m = sqr(n) kt = True For i = To n If n mod i = Then kt = False Exit For End If Next i End If Print kt Dùng Do While Loop If n < Then kt = False Else m = sqr(n) i=2 kt = True Do While i m End If Print kt Thiết kết chương trình hồn chỉnh Thiết kế giao diện chương trình đặt tên đối tượng hình bên txtN cmdKiemTraSNT Mã chương trình bên lblKetQua