Bài giảng VB 6.0 - Các thuật toán cơ bản

Các thuật toán cơ bản (1). Cộng dồn tong=0 for i=1 to n tong=tong+i Next (1). Cộng dồn Ví dụ: Viết chương trình nhập mảng 10 phần tử số nguyên thực hiện: Tính tổng các phần tử trong mảng là bội số của 3 Tìm max và min của mảng Giải Nhập mảng 10 pt Tính tổng Tong=0 For i=0 to 9 If (a(i) mod 3=0) then tong=tong+a(i) Next Tìm max, min Max=a(0) Min=a(0) For i=0 to 9 If maxa(i) then min=a(i) Next (*) nhập mảng For i=0 to n a(i)=val(inputbox(“Phan tu thu “ & i+1)) Next (**)xuất mảng For i=0 to n txtKq = txtKq & a(i) & “ “ Next (2).Max, Min max=a(0) min=a(0) for i=1 to n if maxa(i) then min=a(i) next (3).Đếm dem=0 for i=0 to n if then dem=dem+1 next Ví dụ: Viết chương trình nhập mảng số nguyên 10 phần tử, thực hiện các yêu cầu sau (lưu ý: khi nhập cần kiểm tra các giá trị nhập phải dương). Đếm số phần tử chắn trong mảng Dếm số lần xuất hiện của số x trong mảng (với x nguyên được nhập từ bàn phím). (4).Sắp xếp for i=0 to n-1 for j=i+1 to n if a(i)>a(j) then tam=a(i) a(i)=a(j) a(j)=tam end if next j next i Ví dụ: Viết chương trình xử lý sự kiện click() trên các nút lệnh trên form thực hiện các yêu cầu sau: Nhập mảng số nguyên 10 phần tử, khi nhập cần kiểm tra giá trị các phần tử phải >2 Sắp xếp mảng theo chiều giảm dần giá trị các phần tử (5).Kiểm tra flag=true for i=0 to n if then flag=false next if flag then msgbox else msgbox end if Ví dụ: Viết chương trình nhập mảng số nguyên 10 phần tử, khi nhập cần kiểm tra gia trị các phần tử phải dương. Thực hiện kiểm tra: Mảng có đối xứng hay không Mảng có tạo thành cấp số cộng hay không Giải Nhập mảng For i=0 to 9 If a(i)a(n-i) then flag=false Next If flag then Msgbox “mang dx” Else Msgbox “mang khong dx” End if d=a(1)-a(0) For i= 1 to 9 If a(i)-a(i-1) d then flag =false Next If flag then Msgbox “mang csc” Else Msgbox “mang khong csc” End if