Hãy kể tên những hoạt động được thực hiện lặp đi lặp lại với số lần lặp không thể xác định trước?
F Bài toán: Viết chương trình nhập vào
một dãy số cho đến khi gặp 0 thì dừng
lại, tính tổng các số vừa nhập
Lặp với số lần chưa biết trướcBài 8Giáo án điện tử tin học lớp 8 Học cho đến khi thuộc bài Nhặt từng cọng rau cho đến khi hết rau Bài toán: Viết chương trình nhập vào một dãy số cho đến khi gặp 0 thì dừng lại, tính tổng các số vừa nhập Hãy kể tên những hoạt động được thực hiện lặp đi lặp lại với số lần lặp không thể xác định trước?1. Các hoạt động lặp với số lần chưa biết trướcBài toán 1:Bài toán 2: Cho đến khi S>1000. Cho biết N Tính tổng Tính tổng2. Ví dụ về lệnh lặp với số lần chưa xác địnhXuất phát Lần 1Lần 2+Lần NMỗi lần thực hiện giá trị tổng S tăng thêm bao nhiêu? Sau mỗi lần thực hiện giá trị tổng S tăng thêm i đơn vị với i= 1;2;3;.N?Cùng tìm thuật toán Bài toán 1:Bài toán 2: Cho đến khi S>1000 Số lần lặp xác định Việc tăng giá trị cho tổng S được lặp đi lặp lại cho đến khi S>1000Việc tăng giá trị cho tổng S được lặp đi lặp lại N lần. Số lần lặp chưa xác định.tìm sự khác biệtWHILE DO ;Điều kiệnĐúngCâu lệnhĐiều kiện: thường là một phép so sánh SaiTrong đó:Câu lệnh lặp với số lần lặp chưa xác định trong Pascal:Câu lệnh: là câu lệnh đơn hay câu lệnh ghépVí dụ: While S sang B2B4: In kết quả: N là số tự nhiên nhỏ nhất sao cho S>1000, Tổng S và kết thúc S:=0; N:=0;WHILE S1000’, N)Writeln(‘ Tổng đầu tiên >1000’,S);Thuật toánChương trìnhVí dụ 1 : cho đến khi S>1000. Cho biết NTính tổngProgram Bai_toan;Uses Crt;Var N:Integer; S:Real;BEGIN Clrscr; S:=0;N:=0; WHILE s1000 la’,N); Writeln(‘Gia tri cua tong S =',S); Readln;END.Hãy hoàn thiện chương trình giải bài toán trên? S:=0; For i:=1 to 100 do S:=S + 1/i;Writeln(‘ S = ’, S:7:2);Dùng lệnh FOR ...DO Dùng lệnh Whie...Do S:=0; i:=1; While i<=100 do begin S:=S + 1/i; i:=i+1; end;Writeln(‘ S = ’, S:7:2); Có thể sử dụng lệnh While ... do thay cho câu lệnh For...DoVí dụ 2 : Tính tổngLưu ý: Khi viết chương trình với câu lệnh lặp, điều kiện phải được thay đổi để chương trình không gặp lỗi lặp vô hạn.Ví dụ : Var a:integer;Begin a:=5; While a<6 do Write(' Chuong trinh chay mai khong thoat duoc');End.4. Lặp vô hạn -Lỗi lập trình cần tránh Tin học 8Ghi nhớ!Ngoài cấu trúc lặp với số lần lặp xác định trước, các ngôn ngữ lập trình còn có các câu lệnh lặp với số lần chưa biết trước.While. . . do là câu lệnh lặp với số lần chưa biết trước trong Pascal
Tài liệu đính kèm: