Hoïc
nöõa
hoïc
maõi
PHÒNG GIÁO DỤC CHAÂU THAØNH
TRƯỜNG THCS LONG TRÌ


Năm học: 2017- 2018
Môn: Tin học



GV : Löu Thò Ngoïc Thô
Viết cú pháp câu lệnh lặp For..do
Kiểm tra bài cũ

For biến đếm:=giá trị đầu to giá trị cuối do câu lệnh;
Nêu hoạt động câu lệnh lặp For..do
Kiểm tra bài cũ
B1: Ban đầu biến đếm nhận giá trị là giá trị đầu.
B2: Sau mỗi vòng lặp, biến đếm tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
Xác định số vòng lặp của câu lệnh lặp để tính tổng của các số nguyên từ 5 đến 25
For i:=5 to 25 do
S:=S+i;
Kiểm tra bài cũ
Số vòng lặp: 21 vòng lặp
Bài 7:
CÂU LỆNH LẶP (tt)
Tin học 8
Tiết : 34
ND: 12 /12 / 2017
MỤC TIÊU:
Vận dụng câu lệnh lặp để viết chương trình tính tổng và tích của các số.
Biết được cách viết giai thừa của một số.
Bài 7: CÂU LỆNH LẶP (tt)
3. Tính tổng và tích bằng câu lệnh lặp:
Bài 7: CÂU LỆNH LẶP (tt)
Bài toán 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên (khác số 0) với N nhập từ bàn phím.
Var N,i: integer;
S: longint;
Write( ‘Nhap N=‘ ); Readln(N);
For i:= 1 to N do
S:=S+i ;

Write( ‘Tong la ‘, S);
1
2
3
4
1
2
3
4
Program tinh_tong;
Var N,i: integer;
S: longint;
Begin
Writeln(‘Nhap so N =’);
Readln(N);
S:=0;
For i:=1 to N do
S:=S+i ;
Witeln(‘tong la:’,S);
Readln;
End.
3. Tính tổng và tích bằng câu lệnh lặp:
Bài 7: CÂU LỆNH LẶP (tt)
Bài toán 2: Ta kí hiệu N! (N giai thừa) là tích N số tự nhiên đầu tiên(khác số 0):
N! = 1.2.3…N
Ví dụ:
3! =…….
5! = ……
so sánh giữa tổng và tích khác nhau ở điểm nào?
tổng
tích
S=1+2+..+N
P=1.2…N
S:=S+i ;
P:=P*i ;
Program tinh_tong;
Var N,i: integer;
S: longint;
Begin
Writeln(‘Nhap so N =’);
Readln(N);
S:=0;
For i:=1 to N do S:=S+i ;
Witeln(‘tong la:’,S);
Readln;
End.
Program tinh_tich;
Var N,i: integer;
P: longint;
Begin
Writeln(‘Nhap so N =’);
Readln(N);
P:=1;
For i:=1 to N do P:=P*i ;
Witeln(‘tich la:’,P);
Readln;
End.
Program tinh_tich;
Var N,i: integer;
P: longint;
Begin
Writeln(‘Nhap so N =’);
Readln(N);
P:= 1;
For i:=1 to N do
P:=P*i ;
Witeln(‘tich la:’,P);
Readln;
End.
Program tinh_tong;
Var N,i: integer;
S: longint;
Begin
Writeln(‘Nhap so N =’);
Readln(N);
S:=0;
For i:=1 to N do
S:=S+i ;
Witeln(‘tong la:’,S);
Readln;
End.
For biến đếm:=giá trị đầu to giá trị cuối do câu lệnh;
Dạng tiến: giá trị đầu > giá trị cuối
For biến đếm:=giá trị đầu downto giá trị cuối do câu lệnh;
Dạng lùi: giá trị đầu < giá trị cuối
Bài 7: CÂU LỆNH LẶP (tt)
Ví dụ: in ra các số từ 1 đến 100:
For i:=1 to 100 do writeln(i);
Ví dụ: in ra các số từ 100 đến 1:
For i:=100 to 1 do writeln(i);
Hướng dẫn về nhà
3. Bài tập 3 trang 59
- Học bài và chuẩn bị tiết sau làm bài tập
Var N,i: integer;
S: longint;
Trong chương trình ta sử dụng những biến gì?
N: số nguyên
i: số nguyên
S: số nguyên
Bài toán 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên (khác số 0) với N nhập từ bàn phím
Sử dụng câu lệnh nào để nhập số N?
Write( ‘Nhap N=‘ ); Readln(N);
Bài toán 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên (khác số 0) với N nhập từ bàn phím
Trong câu lệnh lặp cần xác định các yếu tố nào?
Biến đếm:
Giá trị đầu:
Giá trị cuối:
Câu lệnh:
i
1
N
S:=S+i ;
For i:= 1 to N do
S:=S+i ;
Bài toán 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên (khác số 0) với N nhập từ bàn phím
Bài toán 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên (khác số 0) với N nhập từ bàn phím
Câu lệnh nào để thông báo kết quả tổng S ra màn hình?

Write( ‘Tong la ‘, S);