Cuộc thi thiết kế bài giảng điện tử E-Learning
Bài giảng môn: Tin Học 8
Giáo viên: Trương Thị Phương Thảo
Trường THCS Hồng Quang - Ứng Hoà – Hà Nội
Tháng 02 năm 2012
Câu 1:
Theo em cú pháp câu lệnh lặp nào sau đây là đúng
Bạn đã trả lời đúng
Bạn đã trả lời sai
Làm Lại
Câu 2: Khi thực hiện các hoạt động lặp, máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra ở đây là giá trị của biến đếm lớn hơn giá trị cuối, điều này là đúng hay sai?
Bạn đã trả lời đúng
Bạn đã trả lời sai
Tiết 38 – Bài 7
CÂU LỆNH LẶP
Chú ý:
Câu lệnh đơn giản để in kết quả ra màn hình là:

3. Một vài ví dụ về câu lệnh lặp
Ví dụ 4: Viết chương trình in ra màn hình vị trí rơi của một quả trứng từ trên cao xuống.
(số lần rơi là 20 lần).
Writeln(‘…….’);
Chương trình như sau:
Program rơi;
Uses crt;
Begin
For i:= 1 to 20 do
Begin
Writeln(‘O’);
delay(100);
End;
Readln;
End.
?Lệnh Delay(100) trong chương trình trên có tác dụng như thế nào khi chạy chương trình?
Chú ý:
Trong chương trình lệnh Delay có tác dụng dừng màn hình trong một khoảng thời gian nhât định để xem kết quả chạy của chương trình.
4. Tính tổng và tích bằng câu lệnh lặp
Ví dụ 5: Viết chương trình tính tổng N số tự nhiên đầu tiên, với N được nhập vào từ bàn phím.
Thuật toán: Giả sử tổng N số tự nhiên được kí hiệu là S
Bước 1: S ← 0; i ← 0;
Bước 2: i ← i + 1;
Bước 3: Nếu i ≤ n thì S ← S + i; và quay lại bước 2,ngược lại đi tới bước 4.
Bước 4: Thông báo kết quả và kết thúc thuật toán.
Chương trình như sau:
Program tinhtong;
Uses crt;
Var n,i:integer;
s:longint;
Begin
writeln(‘nhập giá trị n:’); readln(n);
S=0;
for i:= 1 to n do s:=s+i;
writeln(‘tổng của’, n ,’số tự nhiên đầu tiên là s=‘,s);
Readln;
End.
Ví dụ 6: Viết chương trình tính tích của N số tự nhiên đầu tiên
N!=1.2.3….N
Thuật toán: Giả sử tích của N số tự nhiên đầu tiên được kí hiệu là P.
Bước 1: P←1; i ← 0;
Bước 2: i ← i +1;
Bước 3: Nếu i ≤ n thì P ← P * i và quay lại bước 2, ngược lại đi tới bước 4
Bước 4: Thông báo kết quả và kết thúc thuật toán.

Chương trình như sau:
Program tinhtich;
Uses crt;
Var n,i:integer;
p:longint;
Begin
writeln(‘nhập giá trị n:’); readln(n);
p:=1;
For i:=1 to n do p:=p*i;
Writeln(N,’!=‘,p);
Readln;
End.
Củng cố
Trong bài học hôm nay chúng ta cần nắm được 3 vấn đề quan trọng sau:
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 vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn.
Mọ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ặp.
Ngôn ngữ pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh for…..do
Em hãy cho biết đâu là câu lệnh hợp lệ trong các câu lệnh sau:
Bạn đã trả lời đúng
Bạn đã trả lời sai
Làm Lại
Hãy cho biết đâu là đoạn lệnh lặp for..do để tính tổng s= 1+2+3+...+10
Bạn đã trả lời đúng
Bạn đã trả lời sai
Làm Lại
BÀI TẬP VỀ NHÀ
Viết chương trình tính tổng sau:
s = 1+1/2+1/3+……+1/n
Yêu cầu:
+ Viết thuật toán của bài toán trên.
+ Viết chương trình in tổng ra màn hình.
Tài liệu tham khảo
Những bài tập pascal đơn giản.
Bài tập tin học quyển 3

BÀI HỌC KẾT THÚC
XIN CẢM ƠN CÁC THẦY CÔ VÀ CÁC EM.