Đó đây là bài giảng của cô lớp mk đóVí dụ. Chương trình Pascal dưới đây thực hiện thuật toán tính tổng n số trong ví dụ 2:Var S, n: integer;Begin S:= 0; n:=1; While S<= 1000 do Begin S:= S+ n; n:= n+1 end; Writeln (‘ so n nho nhat de tong > 1000 la ’ , n); Writeln (‘ tong dau tien >1000 la ’, S); ReadlnEnd. - Yêu cầu học sinh tìm hiểu chương trình ở SGK.? Hãy cho biết kết quả nhận được sau khi chạy chương trình.Gv yêu cầu HS viết chương trình tính tổng T=1 1 1 11 ...2 3 4 100+ + + + + bằng cách sử dụng câu lệnh lặp với số lần biết trước for... do và câu lệnh lặp với số lần chưa biết trước + Nghiên cứu chương trình ở SGK theo yêu cầu của giáo viên.+ Kết quả nhận được sau khi chạy chương trình là n = 45 và tổng tiên lớn hơn 1000 là 1034.HS viết chương trình bằng 2 cách.HS1: sử dụng câu lệnh for... do:T:= 0;For i:= 1 to 100 do T:= T+1/i;Writeln (T);HS2: sử dụng câu lệnh while ... do:T:= 0;Trịnh Kiều Nga2 Giáo án tin học 8 Ngày soạn: Ngày dạy: 09/03/2011.while... doGọi 2 HS lên bảng làm.GV cho HS nhận xét bài làm của bạn,? em có nhận xét gì về kết quả của hai chương trình trên?Ví dụ này cho thấy rằng chúng ta có thể sử dụng While... do thay cho câu lệnh For... do.i:= 1;while i<= 100 do begin T:= T+1/i; i:= i+1 end;writeln (T);2 chương trình trên có cùng kết quả.Hoạt dộng 3: Lặp vô hạn lần- Lỗi lập trình cần tránh.GV cho ví dụ:Var a: integer;Begin a:= 5; while a< 6 do writeln (‘ A’);end.? em hãy cho biết trong chương trình trên, vòng lặp có kết thúc không? Vì sao?GV lưu ý HS: khi viết chương trình sử dụng cấu trúc lặp cần chú ý tránh tạo nên vòng lặp không bao giờ kết thúc.Khi thực hiện vòng lặp, điều kiện trong câu lệnh phải được thay đổi để sớm hay muộn giá trị của điều kiện được chuyển từ đúng sang sai. Chỉ như thế chương trình mới không “rơi” vào những “vòng lặp vô tận