Giáo án Tin học 8 - Bài 7: Câu lệnh lặp

Câu lệnh lặpBài 7Giáo án điện tử tin học lớp 8 Em đánh răng 2 lần một ngày Kim giây quay 60 vòng trong 1 giờ Bài toán: Viết chương trình in ra mh các số từ 1 đến 10Hã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 nhất định và biết trước?10 lệnh in1. Các công việc phải thực hiện nhiều lầnOOOOOVí dụ1: In ra mh một chữ OVí dụ2: In ra mh bốn chữ OProgram in1;Uses crt;Begin Writeln('O');End.Program in4;Uses crt;Begin	Writeln('O');	Writeln('O');	Writeln('O');	Writeln('O');End.Kết quả2. Câu lệnh lặp - một lệnh thay cho nhiều lệnhOO Mọi ngôn ngữ lập trình đều có câu lệnh giúp thực hiện nhiều câu lệnh lặp đi lặp lại bằng một câu lệnh. Đó là các câu lệnh lặp.Nếu viết chương trình in ra màn hình 100 chữ ‘O’ thì sao nhỉ?chương trình quá dài, và viết mất nhiều thời gian ! Câu lệnh lặp với số lần lặp biết trước trong Pascal:FOR := TO DO ; Giá trị cuối phải lớn hơn giá trị đầu.	 Câu lệnh có thể là câu lệnh đơn giản(một lệnh) hoặc lệnh ghép (nhiều lệnh)Trong đó  Biến đếm thường có kiểu số nguyên 	For i:=1 to 100 do writeln(‘O’);	3. câu lệnh lặpProgram in4;Uses crt;Begin	Writeln('O');	Writeln('O');	Writeln('O');	Writeln('O');End.Program in4;Uses crt;Begin	 For i:=1 to 4 do Writeln('O');	End. Ban đầu biến đếm (i=1 100 thì kết thúc B4 : S:= S + i i := i +1 quay lại B3.Program tinhtong;Uses crt;Var S,i : Integer; Begin S:=0; For i:=1 to 100 do S:=S +i; Writeln('Tong S=',S);Readln;End.Chương trìnhUses crt;Var i,N : Integer; S : real;BEGIN Readln;END.S:=0;FOR i:=1 to N do S := S+1/i;Writeln(‘ Tong S =’,S:8:3);Write(‘ Nhap vao gia tri cua N :’);readln(N);Program Tinh_tong2;Dựa vào đề bài hãy xác định: Giá trị khởi tạo của S Giá trị đầu, cuối của biến đếm iCâu lệnh sẽ được lặp S:=0; For i:=1 to N do S:= S + 1/i;Lập chương trình tính tổng sau: Ví dụ 2: 1! = 12! = 1 . 23! = 1 . 2 . 34! = 1. 2 . 3 . 4Ví dụ 3: Tính N! (Tích N số tự nhiên đầu tiên) N! = 1.2.3.4...NGT = 1GT = GT . 2GT = GT . 3GT = GT . 4Hãy xác định: Giá trị khởi tạo của GT Giá trị đầu, cuối của biến đếm iCâu lệnh sẽ được lặp GT:=1; For i:=1 to N do GT:= GT*i;Em hãy khai báo biến cho bài toán trên?Em hãy viết câu lệnh nhập vào N?Begin Clrscr; Write('Nhap N= '); Readln(N);Khởi tạo GT bằng bao nhiêu? GT:=1;Hãy viết câu lệnh lặp với các giá trị của biến đếm và câu lệnh được lặp. For i:=1 to N do GT:=GT*i;In ra kết quả? Writeln('Tich cua N so tu nhien =',GT); Readln;End. N:integer; GT:longint;Tin học 8Ghi nhớ!Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một hoạt động nào đó, thường là vớic ác dữ liệu khác nhau, cho đên skhi một điều kiện nào đó được thỏa mãnMọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặpNgôn ngữ Pascal thể hiện cấu trúc lặp với số lần cho trước bằng câu lệnh for ... do.