Lập trình Visual Basic 6.0 Lưu Đồ bài giảng

Chương BIỂU DIỄN THUẬT TOÁN DƯỚI DẠNG LƯU ĐỒ VB LT VB LT Lưu đồ (Flowchart) Các qui ước Khối nhập liệu Khối thao tác, tính toán Khối xuất liệu a, b, Thao tác/ Biểu thức a, b, … VB LT VB LT Các qui ước Khối kiểm tra Khối CT Biểu thức ĐK Tên CT Hướng lưu đồ VB Khối khởi đầu/kết thúc Start/Stop LT VB LT Các qui ước Điểm nối trang Điểm nối sang trang A A Khối thích VB LT VB LT Một số lưu đồ Rẽ nhánh (Nếu ) Nếu Delta < In câu thông báo : ‘Phương trình vô nghiệm’ Delta < no yes PT vô nghiệm VB LT VB LT Rẽ nhánh (Nếu ngược lại ) Nếu k = n In "n la so nguyen to" Ngược lại In "n khong phai so nguyen to" k=n no yes n la so nguyen to VB N khong la so nguyen to LT VB LT Rẽ nhánh (Nhiều nhánh) Nếu tháng = 1, 3, 5, 7, 8, 10, 12 songay = 31 Nếu tháng = 4, 6, 9, 11 songay = 30 Nếu tháng = Tháng =1,3, songay = 31 =4,6, songay = 30 =2 VB LT VB LT Lặp với số lần biết trước i=1 Nếu i 0) thang Nếu tháng = 1, 3, 5, 7, 8, 10, 12 =1,3, =4,6, =2 songay = 31 du=(nam mod Nếu thang = 4, 6, 9, 11 400=0)hoặc songay = 30 songay = 30 (nam mod 4=0 nam songay = 31 Nếu tháng = mod 1000) du = (nam mod 400=0) S (nam mod 4=0 nam mod 1000) du Nếu du = Đ Đ songay = 29 VB songay = 29 songay = 28 Ngược lại LT songay = 28 songay In songay VB Kết thúc LT stop Tính tổng S=1+2+…+n; n>0 Giải thuật : Bắt đầu Nhập n (nguyên, >0) s=0 i=1 Nếu i 0 s=0 Lặp với i = 1, 2, , n s=s+i KT lặp i i=1 i 0) k=2 Nếu (n mod k) (1) k=k+1 Nếu k < n Quay lại (1) Nếu k = n In "n la so nguyen to" Ngược lại In "n khong phai so nguyen to" Kết thúc Lặp với đk (k < n) (n mod k 0) k=k+1 KT lặp đk (k < n) (n mod k 0) VB LT VB LT Kiểm tra n nguyên, dương số nguyên tố Giải thuật : Bắt đầu Nhập n (nguyên, >0) k=2 Nếu (n mod k) (1) k=k+1 Nếu k < n Quay lại (1) Nếu k = n In "n la so nguyen to" Ngược lại In "n khong phai so nguyen to" Kết thúc N khong la so nguyen to start n>0 k=2 (k1 s = "" i=1 i 0 s = "" i=1 i B A=A- B Ngược lại (A no A B yes A>B yes A= A-B A yes A stop no B= B-A no VB LT Khong co USCLN VB LT Phân tích số nguyên, dương n thành thừa số nguyên tố Giải thuật : Nhập n (nguyên, > 1) s = “” (chuỗi rỗng) k=2 Lặp với đk (n > 1) - Xác định thừa số - Giữ lại thừa số s - Tính lại n (n chia thừa số) start n>1 s = "" k=2 no n>1 yes KT lặp với đk (n > 1) In s Kết thúc - Xác định thừa số - Giữ lại thừa số s - Tính lại n VB s LT VB stop LT start Phân tích số nguyên, dương n thành thừa số nguyên tố Giải thuật : Nhập n (nguyên, > 1) s = “” (chuỗi rỗng) k=2 Lặp với đk (n > 1)(Do While n>1) Lặp với đk (n mod k 0) k=k+1 KT lặp với đk (n mod k 0) Đổi k thành chuỗi cho vào s n = n chia nguyên k Nếu n > Thêm dấu “*” vào s KT lặp với đk (n > 1) (Loop) In s Kết thúc n>1 s = "" k=2 no n>1 yes n mod k yes no k=k+1 s = s & "k" n=n/k no n>1 yes s = s & "*" VB LT s VB stop LT Bài tập : Viết thuật toán kiểm tra tính đối xứng n số nguyên a1 , a2 , , an VB LT VB LT Bài tập : Tính tổng ước số số nguyên dương n VB LT VB LT   Bàitập3:Viếtthuậttoántính T = , n ≥ VB LT VB LT Bài tập : Tìm số phần tử có giá trị bé mảng a1 , , an VB LT VB LT Bài tập : Sắp xếp n (n > 0) số nguyên theo thứ tự tăng dần VB LT VB LT [...]... n=n/k no n>1 yes s = s & "*" VB LT s VB stop LT Bài tập 1 : Viết thuật toán kiểm tra tính đối xứng của n số nguyên a1 , a2 , , an VB LT VB LT Bài tập 2 : Tính tổng các ước số của một số nguyên dương n VB LT VB LT   Bàitập3:Viếtthuậttoántính T = , n ≥ 1 VB LT VB LT Bài tập 4 : Tìm chỉ số của phần tử có giá trị bé nhất trong mảng a1 , , an VB LT VB LT Bài tập 5 : Sắp xếp n (n > 0) số nguyên theo thứ...Giải phương trình ax2 + bx + c = 0; a0 start Giải thuật : Bắt đầu a(a0), b, Nhập a(a 0), b, c Tính Delta = b*b - 4*a*c Nếu Delta < 0 Delta=b*b-4*a*c In câu thông báo : ‘Phương trình vô nghiệm’ Ngược lại (Delta >= 0) Delta