1 Tiết 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: a/ Cú pháp: b/ Trong Câu lệnhđó: lặp với số lần biết trước Ngôn ngữ lập - For, To, Do là: trình Pascal có dạng? - Biến đếm: - Giá trị đầu, giá trị cuối: - Câu lệnh c/ Hoạt động câu lệnh: d/ Lưu ý: Tiết 40 BÀI 7: CÂU LỆNH LẶP i lặp: Kết viết hình 3.Lần Ví lặp dụ thứ câu lệnh 1 sẽ lan thứ lap lặp: Ví trình màn tự Ví dụ dụ 3: 3: Chương Chương trình sau sau sẽ in in ra Day mànlahình hình thứthu tự lần lần lặp: 2 Day la lan lap thu day la lan lap thu Program 3lap; Day la lan day laplathu lan 3lap thu day la lan lap thu Uses crt; 4 Day la lan day laplathu lan 4lap thu Var i: integer; day la lan lap thu 5 Day la lan lap thu Begin day la lan lap thu lan 6lap thu to 10 Day la lan day laplathu For i:= day la lan lap thu Writeln (‘day la lan i ); la lan day 7 lap thu ’,Day laplathu lan 7lap thu day la lan lap thu 10 Readln; 8 Day la lan lap thu end la lan Theo em9dự đốn Số lần lặp= ?10-1+1=10(lần) hìnhDay hiển thịlap lênthu kết9 10 chạy chương Day la lan lap thu 10 quả10 sau trình? Tiết 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: Áp dụng: Hãy viết chương trình in màn hình số từ đến 10 Program lap; Uses crt; Var i: integer; Begin For i:= to 10 Writeln (‘day la lan lap thu ’, i ); Readln; end day la lan1 lap thu day la lan2 lap thu day la lan3 lap thu day la lan4 lap thu day la lan5 lap thu day la lan6 lap thu day la lan7 lap thu day la lan8 lap thu day la lan9 lap thu day la lan10lap thu 10 Tiết 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: Áp dụng: Hãy viết chương trình in màn hình số từ đến 10 Program lap; Uses crt; Var i: integer; Begin For i:= to 10 Writeln ( i ); Readln; end 10 Tiết 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: Để in một chữ “O” màn hình ta sử dụng lệnh nào? Để in nhiều chữ “O” màn hình ta làm nào? For i:= to 20 Writeln (‘O’); Tiết 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: Ví dụ 4: Hiệu ứng trứng rơi For i:= to 20 Uses crt; begin Var i: integer; Writeln (‘O’); Begin delay(100) For i:= to 20 begin end; Writeln (‘O’); delay(100) end; Readln end O O O O O O O O O O O O O O O O O O O O Bài (SGK-61) Sau thực đoạn chương trình sau, giá trị j bao nhiêu? j:=0; For i:=0 to j:=j+2; Số lần lặp = – + = (Lần) Sau vòng lặp giá trị j tăng thêm Sau vòng lặp giá trị j = 12 Nhận biết câu lệnh lặp Bài (SGK-61) Các câu lệnh Pascal sau có hợp lệ hay khơng, sao? a/ For i:=100 to writeln(‘A’); b/ For i:=1.5 to 10.5 writeln(‘A’); c/ For i=1 to 10 writeln(‘A’); d/ For i:=1 to 10 do; writeln(‘A’); e/ Var x:Real; Begin For x:=1 to 10 writeln(‘A’); 10 End Tiết 40 BÀI 7: CÂU LỆNH LẶP Tính tổng tích câu lệnh lặp: Ví dụ 5: Tính tổng S = 1+2+3+…+N Uses crt; Var N, i: integer; S: longint; Begin Write(‘nhap so N=‘); readln(N); S:=0; For i:= to N S:= S + i; Writeln (‘Tong S= ‘, S); Readln end 11 Tiết 40 BÀI 7: CÂU LỆNH LẶP Tính tổng tích câu lệnh lặp: Ví dụ 5: Tính tổng S = 1+2+3+…+N Uses crt; Ví dụ 6: Tính Tích N! = 1*2*3*…*N Var N, i: integer; P: longint; Begin Write(‘nhap so N=‘); readln(N); P:=1; For i:= to N p:=p*i; Writeln (N ,’ != ’, p); Readln end 12 Tiết 40 BÀI 7: CÂU LỆNH LẶP Tính tổng tích câu lệnh lặp: Ví dụ 5: Tính tổng S = 1+2+3+…+N Ví dụ 6: Tính Tích N! = 1*2*3*…*N Program Tinh_tong; Uses crt; Var N, i: integer; S: longint; Begin Write(“nhap so N=‘); readln(N); S:=0; For i:= to N S:= S + i; Writeln (‘Tong S= ‘, S); Readln end Program Tinh_Giai_thua; Uses crt; Var N, i: integer; P: longint; Begin Write(‘nhap so N=‘); readln(N); P:=1; For i:= to N p:=p*i; Writeln (N ,’ != ’, p); Readln end 13 Bài tập nhóm Sau thực đoạn chương trình sau giá trị A, B bao nhiêu: Câu A:=0; B:=1; For i:=1 to A:=A+1; B:=B+1 Câu A:=0; B:=1; For i:=1 to Begin A:=A+1; B:=B+1; End; Nhóm 1,2,3 Nhóm 4,5,6 phút Hết Thời thờigian gian 60 03 02 06 05 20 23 22 26 25 30 33 32 36 35 50 53 52 56 55 00 01 04 10 09 08 07 19 18 17 16 15 14 13 12 21 24 29 28 27 31 34 49 48 47 46 45 44 43 42 41 40 39 38 37 51 54 59 58 57 11 14 Ghi nhớ Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực lặp lại vài hoạt động điều kiện được thoả mãn Mọi ngơn ngữ lập trình đều 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 lặp cho trước bằng câu lệnh For … 15 Củng cố 16 - Học cũ - Làm tập lại phần câu hỏi tập trang 60,61(sgk) - Xem trước: Bài thực hành số 17 ... trị đầu, giá trị cuối: - Câu lệnh c/ Hoạt động câu lệnh: d/ Lưu ý: Tiết 40 BÀI 7: CÂU LỆNH LẶP i lặp: Kết viết hình 3.Lần Ví lặp dụ thứ câu lệnh 1 sẽ lan thứ lap lặp: Ví trình màn tự Ví... 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: Để in một chữ “O” màn hình ta sử dụng lệnh nào? Để in nhiều chữ “O” màn hình ta làm nào? For i:= to 20 Writeln (‘O’); Tiết 40 BÀI 7: CÂU LỆNH...2 Tiết 40 BÀI 7: CÂU LỆNH LẶP Ví dụ câu lệnh lặp: a/ Cú pháp: b/ Trong Câu lệnh ó: lặp với số lần biết trước Ngơn ngữ lập - For, To, Do là: