Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 17 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
17
Dung lượng
3,67 MB
Nội dung
Tin Học Tuần 27 Tiết 53 Bài Câu lệnh lặp www.themegallery.com KIỂM TRA BÀI CŨ www.themegallery.com Tuần 27 Tiết 53 Bài Câu lệnh lặp Tuần 27 Tiết 53 Bài Câu lệnh lặp Các công việc phải thực nhiều lần: www.themegallery.com Khi viết trình tính Để dẫn cho Mỗi ngày buổichương học chơiem thể phát thao biểu mộtvào bao lầnbuổi nhiêu vào buổi lần công làviệc công việc việc lặp xem tivi mộtmáy lần tối làsáng công lặp lại máy công việc,trước nhiều trường lặp lại với số thực không số lần biết trước định biết với sốtính lần định biết trước hợp ta cần phải viết lặp lại nhiều câu lệnh thực phép tính định Tuần 27 Tiết 53 Bài Câu lệnh lặp Câu lệnh lặp - lệnh thay cho nhiều lệnh: Ví dụ 1: Vẽ hình vng có cạnh đơn vị 2 www.themegallery.com Thuật toán Bước 1: Vẽ hình vng (vẽ liên tiếp bốn cạnh trở đỉnh ban đầu) Bước 2: Nếu số hình vng vẽ 3, di chuyển bút vẽ bên phải đơn vị trở lại bước 1, ngược lại kết thúc thuật toán Tuần 27 Tiết 53 Bài Câu lệnh lặp Câu lệnh lặp - lệnh thay cho nhiều lệnh: www.themegallery.com Bài toán vẽ hình vng Thuật tốn: Bước 1: k (k số đoạn thẳng vẽ được) Bước 2: k k+1 Vẽ đoạn thẳng đơn vị độ dài quay thước 900 sang phải Bước 3: Nếu k < trở lại bước 2; Ngược lại, kết thúc thuật tốn Trong đó, biến k sử dụng biến đếm để ghi lại số cạnh vẽ Tuần 27 Tiết 53 Bài Câu lệnh lặp Câu lệnh lặp - lệnh thay cho nhiều lệnh: Ví dụ 2: Tính tổng 100 số tự nhiên S=1+2+…+100 www.themegallery.com Bước 1: Sum 0; i Bước 2: i i + Bước 3: Nếu i ≤ 100, Sum Sum + i quay lại bước Bước 4: Thông báo kết kết thúc thuật toán - Cách mơ tả hoạt động lặp thuật tốn ví dụ gọi cấu trúc lặp - Để thị cho máy tính thực cấu trúc lặp với câu lệnh gọi câu lệnh lặp Tuần 27 Tiết 53 Bài Câu lệnh lặp Ví dụ câu lệnh lặp: For := to ; www.themegallery.com Hãy nêu cấu trúc dạng lặp tiến ? Trong đó: - For, to, từ khóa - Biến đếm biến kiểu nguyên - Giá trị đầu, giá trị cuối giá trị nguyên Lưu ý: - Giá trị đầu phải nhỏ giá trị cuối - Câu lệnh không làm thay đổi giá trị biến đếm - Nếu câu lệnh nhiều lệnh phải đặt cặp Begin…end Tuần 27 Tiết 53 Bài Câu lệnh lặp Ví dụ câu lệnh lặp: www.themegallery.com Ví dụ 3: Chương tình sau in hình thứ tự lần lặp Program Lap; Var i:Integer; Begin For i:=1 to 10 Writeln(‘ Day la lan lap thu ‘,i); Readln; End Tuần 27 Tiết 53 Bài Câu lệnh lặp Ví dụ câu lệnh lặp: www.themegallery.com Ví dụ 4: In chữ “O” hình Uses crt; Var i:Integer; Begin Clrscr; For i:=1 to 20 Begin Writeln(‘O’); Delay(100); End; Readln; End Tuần 27 Tiết 53 Bài Câu lệnh lặp Ví dụ câu lệnh lặp: Câu lệnh đơn www.themegallery.com … Writeln(‘O’); … Câu lệnh ghép … Begin Writeln(‘O’); Delay(100); End; … Tuần 27 Tiết 53 Bài Câu lệnh lặp Tính tổng tích câu lệnh lặp: www.themegallery.com Ví dụ 5: Tính tổng N số Program Tinh_Tong; Var N,i:Integer; S:Longint; Begin Write(‘Nhap so N = ‘);Readln(N); S:=0; For i:=1 to N S:=S+I; Writeln(‘ Tong cua ‘,N,’ so dau tien la ‘,S); Readln; End Tuần 27 Tiết 53 Bài Câu lệnh lặp www.themegallery.com Tính tổng tích câu lệnh lặp: Ví dụ 6: Tính tích N số tự nhiên N!= 1.2.3…N Program Tinh_Giai_Thua; Var N,i:Integer; P:Longint; Begin Write(‘Nhap so N = ‘);Readln(N); P:=1; For i:=1 to N P:=P*I; Writeln(N,’! = ‘,P); Readln; End Tuần 27 Tiết 53 Bài Câu lệnh lặp www.themegallery.com GHI NHỚ: Cấu trúc lặp sử dụng để thị cho máy tính thực lặp lại vài hoạt động điều kiện thỏa mãn Mọi ngơn ngữ lập trình có câu lệnh lặp để thể cấu trúc lặp Ngôn ngữ Pascal thể cấu trúc lặp với số lần cho trước câu lệnh For…do CỦNG CỐ Câu 1: Hãy ghi cấu trúc câu lệnh lặp tiến ? Cho ví dụ ? Câu 2: Cấu trúc lặp sau ? www.themegallery.com A For i:= 10 to C For i:= to 10 B For i:= 1.5 to 10 D For i= 10 to DẶN DÒ www.themegallery.com - Về nhà học - Trả lời câu hỏi tập trang 60 SGK - Xem trước Bài Lặp với số lần chưa biết trước Thực hiện: Tháng 11/2010 ... Cách mơ tả hoạt động lặp thuật tốn ví dụ gọi cấu trúc lặp - Để thị cho máy tính thực cấu trúc lặp với câu lệnh gọi câu lệnh lặp Tuần 27 Tiết 53 Bài Câu lệnh lặp Ví dụ câu lệnh lặp: For :=