      00:45:00 Trả lời: Kiểm tra bài cũ ?Em hãy viết cú pháp của câu lệnh lặp For-do dạng tiến và dạng lùi? Cho ví dụ minh họa? For <biến đếm> := <giá trị đầu> to <giá trị cuối> do < câu lệnh>; Ví dụ: S:=1/a; For i:=1 to 100 do S:=S+1/(a+i); Dạng lùi: For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do < câu lệnh>; Ví dụ: S:=1/a; For i:=100 downto 1 do S:=S+1/(a+i); Dạng tiến: 00:44:50 BÀI GiẢNG ĐIỆN TỬ TIN HỌC LỚP 11 Bài 10 (Tiết 2) 00:44:47 XÂY DỰNG THUẬT TOÁN (Dạng tiến) 2. Lặp với số lần lặp biết trước B1: Nhập a; B2: S 1/a; N 1; B3: Nếu N > 100 thì chuyển xuống bước 6. B4 : S  S + 1/(a+N); B5: N  N +1 quay lại B3. Thuật toán Tong_1a: 1 1 1 1 . 1 2 S a a a a N = + + + + + + + § S Nhập a S  1/a ; N  1 N > 100 ? Đưa S ra màn hình rồi kết thúc! S  S + 1/(a + N) N  N + 1 B6: Đưa ra giá trị S rồi Kết thúc; 00:44:41 Viết chương trình cho thuật toán Tổng_1a(Lặp tiến) 2. Lặp với số lần lặp biết trước Program Tong_1a ; Uses crt ; Var a, N : Integer ; S : real ; Begin Write(‘Hay nhap vao gia tri a: ‘) ; Readln(a) ; Clrscr ; S := 1/a ; Write(‘Tong S la : ‘, S : 8 : 3) ; Readln End. For N := 1 to 100 do S := S + 1/(a + N) ; { Bước 1 } { Bước 2 } { Bước 3 và bước 5 } { Bước 4 } { Bước 6 } { Phần khai báo } 00:44:32 XÂY DỰNG THUẬT TOÁN (Dạng lùi) 2. Lặp với số lần lặp biết trước B1: Nhập a; B2: S 1/a; N 100; B3: Nếu N <1 thì chuyển xuống bước 6. B4 : S  S + 1/(a+N); B5: N  N -1 quay lại B3. Thuật toán Tong_1b: 1 1 1 1 . 1 2 S a a a a N = + + + + + + + § S Nhập a S  1/a ; N  100 N <1 ? Đưa S ra màn hình rồi kết thúc! S  S + 1/(a + N) N  N - 1 B6: Đưa ra giá trị S rồi Kết thúc; 00:44:28 2. Lặp với số lần lặp biết trước Viết chương trình cho thuật toán Tổng_1a(Lặp lùi) Program Tong_1a ; Uses crt ; Var a, N : Integer ; S : real ; Begin Write(‘Hay nhap vao gia tri a: ‘) ; Readln(a) ; Clrscr ; S := 1/a ; Write(‘Tong S la : ‘, S : 8 : 3) ; Readln End. For N := 100 downto 1 do S := S + 1/(a + N) ; { Bước 1 } { Bước 2 } { Bước 3 và bước 5 } { Bước 4 } { Bước 6 } { Phần khai báo } 00:44:26 Ví dụ 2: Nhập từ bàn phím 2 số nguyên dương M và N (M<N). Tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ M đến N. 2. Lặp với số lần lặp biết trước Program Tong_2 ; Var M, N, i : Integer ; T : longint ; Begin Write(‘Hay nhap vao gia tri M nho hơn N ‘) ; Write(‘Nhap M = ‘); Readln(M) ; T := 0 ; Write(‘Tong T la : ‘, T) ; Readln End. For i := M to N do T := T + i ; Write(‘Nhap N = ‘); Readln(N) ; If (i mod 3 = 0) or (i mod 5 = 0) then 00:45:00 Ví dụ 3: Lập trình tính giá trị biểu thức T = 1 2 + 2 2 + 3 2 +…+ n 2 . Với n được nhập từ bàn phím (n >0). 2. Lặp với số lần lặp biết trước Program Tong_3 ; Uses crt ; Var i, n : Integer ; T : Longint ; Begin Write(‘Hay nhap vao gia tri n : ‘) ; Readln(n) ; Clrscr ; T := 0 ; Write(‘Tong T la : ‘, T) ; Readln End. For i := n to 1 do T := T + i*i ; 00:45:00 Bài học hôm nay đến đây kết thúc! Xin chào các thầy cô và các em học sinh! 00:45:00 . S:=S+1/(a+i); Dạng tiến: 00:44:50 BÀI GiẢNG ĐIỆN TỬ TIN HỌC LỚP 11 Bài 10 (Tiết 2) 00:44:47 XÂY DỰNG THUẬT TOÁN (Dạng tiến) 2. Lặp với số lần lặp biết trước