Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 16 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
16
Dung lượng
335 KB
Nội dung
1 2 I. KIỂM TRA BÀI CŨ : Câu hỏi: Th nào là cấu trúc lặp? Câu lệnh lặp?ế BÀI 7: CÂU LỆNH LẶP (tt) 3 Trả lời: Cấu trúc lặp trong thuật toán được dùng để mô tả việc thực hiện lặp lại nhiều lần một hoặc một nhóm các đối tượng Mọi ngôn ngữ lập trình đều có cách để chỉ thò cho máy tính thực hiện cấu trúc lặp, trong đó một hoặc nhiều lệnh được viết một lần lại được điều khiển để thực hiện lặp lại một số hữu hạn lần. Các lệnh điều khiển quá trình như vậy được gọi là câu lệnh lặp. BÀI 7: CÂU LỆNH LẶP (tt) 4 Ti t 30ế Bài 7: BÀI 7: CÂU LỆNH LẶP (tt) 1. Các công việc phải thực hiện nhiều lần. 2. Câu lệnh lặp – một lệnh thay cho nhiều lệnh. 3. Ví dụ về câu lệnh lặp. 4. Tính tổng và tích bằng câu lệnh lặp. 5 3. Ví dụ về câu lệnh lặp. Cú pháp câu lệnh lặp: For <biến đếm>:= <giá trò đầu> to <giá trò cuối> do <câu lệnh>; Trong đó: For, to, do là các từ khoá. Biến đếm là biến kiểu nguyên. BÀI 7: CÂU LỆNH LẶP (tt) 6 Giá trò đầu và giá trò cuối là các giá trò nguyên. Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng. Giá trò cuối – giá trò đầu + 1 Ví dụ: For i:= 1 to 5 do BÀI 7: CÂU LỆNH LẶP (tt) 7 Khi thực hiện, ban đầu biến đếm sẽ nhận giá trò là giá trò đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm một đơn vò cho đến khi bằng giá trò cuối. BÀI 7: CÂU LỆNH LẶP (tt) 8 BÀI 7: CÂU LỆNH LẶP (tt) SƠ ĐỒ KHỐI LỆNH LẶP XÁC ĐỊNH (FOR…DO) SƠ ĐỒ KHỐI LỆNH LẶP XÁC ĐỊNH (FOR…DO) • Diễn giải: • Đầu tiên biến đếm được gán giá trò đầu, thực hiện các lệnh lặp nằm trong khối Begin…End; • Sau mỗi lần lặp biến đếm tăng lên 1 số nguyên lần. • Quá trình lặp sẽ tiếp tục chừng nào biến còn nhỏ hơn giá trò cuối, có nghóa là sau lần lặp mà biến có giá trò bằng giá trò cuối thì vòng lặp sẽ kết thúc. Biến = giá trò đầu Biến < giá trò cuối Lệnh trong vòng lặp . . . . . . . Ra Đúng Sai 9 Xét ví dụ 3: Chương trình in ra màn hình thứ tự lần lặp. Program Lap; Var i: integer; Begin For i:=1 to 10 do Writeln(‘day la lan lap thu’,i); Readln; End. BÀI 7: CÂU LỆNH LẶP (tt) 10 Xét ví dụ 4: Chương trình in chữ “O” trên màn hình. Ghi nhận các vò trí của một quả trứng rơi từ trên cao xuống, có thể lặp lại lệnh trên 20 lần. BÀI 7: CÂU LỆNH LẶP Program InchuO; Var i: integer; Begin For i:=1 to 20 do Begin Writeln(‘O’); Delay(100) end; Readln; End. [...]... P:=1 ;For i:=1 to n do P:=P*i; Writeln(N,’!=’,P); Readln; End 14 BÀI 7: CÂU LỆNH LẶP (tt) BÀI TẬP VẬN DỤNG: Chọn câu trả lời đúng ? Hãy chỉ ra chỗ sai ở các câu mà em cho rằng sai a For i:=1 to 10; do x:=x+1; b For i:=10 to 1 do x:=x+1; c For i:=1 to 10 do x:=x+1; d For i:=1 to 10 for j:=1 to 10 do x:=x+1; Sau khi thực hiện đoạn chương trình sau, giá trò của biến j bằng bao nhiêu? j:=0; For i:=0 to 5 do. .. câu lệnh For do có thể là: - Một câu lệnh đơn (như lệnh gán, lệnh tính toán, lệnh điều kiện, lệnh lặp…) - Một câu lệnh ghép Begin…end 11 BÀI 7: CÂU LỆNH LẶP (tt) 4 Tính tổng và tích bằng câu lệnh lặp Ví dụ 5: Chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím Program Tinhtong; Var n, i: integer; S: longint; Begin Write(‘nhap n’); Readln(n); S:=0; For i:= 1... Chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím Program Tinhtong; Var n, i: integer; S: longint; Begin Write(‘nhap n’); Readln(n); S:=0; For i:=1 to n do S:=S+i; Writeln(‘tong cua n so tu nhien dau tien S=’,S); Readln; End 12 BÀI 7: CÂU LỆNH LẶP (tt) Lưu ý: Vì N lớn nên tổng của N số tự nhiên lớn nên trong chương trình trên ta sử dụng kiểu Longint để . sai ở các câu mà em cho rằng sai. a. For i:=1 to 10; do x:=x+1; b. For i:=10 to 1 do x:=x+1; c. For i:=1 to 10 do x:=x+1; d. For i:=1 to 10 for j:=1 to 10 do x:=x+1; Sau khi thực hiện đoạn chương. LỆNH LẶP (tt) 8 BÀI 7: CÂU LỆNH LẶP (tt) SƠ ĐỒ KHỐI LỆNH LẶP XÁC ĐỊNH (FOR DO) SƠ ĐỒ KHỐI LỆNH LẶP XÁC ĐỊNH (FOR DO) • Diễn giải: • Đầu tiên biến đếm được gán giá trò đầu, thực hiện các. ví dụ 3: Chương trình in ra màn hình thứ tự lần lặp. Program Lap; Var i: integer; Begin For i:=1 to 10 do Writeln(‘day la lan lap thu’,i); Readln; End. BÀI 7: CÂU LỆNH LẶP (tt) 10 Xét ví