Câu lệnh lặp
Chia sẻ bởi Nguyễn Thị Vân Anh |
Ngày 29/04/2019 |
106
Chia sẻ tài liệu: Câu lệnh lặp thuộc Tin học 9
Nội dung tài liệu:
PHÒNG GIÁO DỤC VĂN GIANG
TRƯỜNG THCS LONG HƯNG
GV: Nguyễn Thị Vân Anh
BÀI GIẢNG TIN HỌC 9
1- Nhắc lại có ph¸p câu lệnh lặp với số lần biết trước?
FOR
Tên biến do người dùng tự đặt
Giá trị đầu < =Giá trị cuối
Từ khoá
1- Nhắc lại câu lệnh lặp với số lần biết trước:
FOR
BT Logic
Việc
Sai
Đúng
BEGIN
END
Viết chương trình tính tổng
S = 1 + 2 + 3 + … + n, với n nhập từ bàn phím
- Khai báo:
S,n,i kiểu Integer
- Nhập giá trị của n
- Tính tổng S:
S:=S+i;
- Hiển thị kết quả
Viết chương trình tính tổng
S = 1 + 2 + 3 + … + n, với n nhập từ bàn phím
Program Tinh;
Var n,i, s: Integer;
Begin
s:=0;
For i:=1 to n do s:=s+i;
Writeln(‘ S= ‘, s);
Readln;
End.
PHÒNG GIÁO DỤC VĂN GIANG
TRƯỜNG THCS LONG HƯNG
GV: Nguyễn Thị Vân Anh
Tiết 57: Thực hành
Viết chương trình tính tổng
S = 1 + 2 + 3 + … + n, với n nhập từ bàn phím
Program Tinh;
Var i, s: Integer;
Begin
s:=0;
For i:=1 to n do s:=s+i;
Writeln(‘ S= ‘, s);
Readln;
End.
- Dữ liệu ra (Output) : Tổng S
Lập chương trình tính tổng sau:
- Dữ liệu vào (Input) : Nhập N
Hãy xác định dữ liệu nhập vào từ bàn phím và dữ liệu cần đưa ra của bài toán trên!
Bài tập 1:
Phân tích bài toán với N =4
Nhận xét:
i = 1
I = 2
Việc tính S được lặp đi lặp lại theo quy luật
Ssau = Strước+ 1/i
i chạy từ 1 đến n.
S1 = 1
S2 = 1 + 1/2
I = 3
S3 = 1 + 1/2 + 1/3
I = 4
S4 = 1 + 1/2+1/3+1/4
S
Đ
B1 : Nhập N;
B2: S:=0; i:=1;
B3 : Nếu i <= N thì S:= S+1/i
B4 : i := i +1 quay lại B3.
Xây dựng thuật toán
i:= i+1
B5 : Nếu i > N thì đưa ra giá trị S => Kết thúc;
S := 0 ; i := 1;
i <=N
KT
S := S +1/ i ;
i := i +1;
1.83
1.5
1
0
3
2
1
Lượt
i
S
2.08
4
Nhập N
S := 0 ; i := 1;
1<=4 ?
Đ
Đ
S := 0+ 1/1;
i := 1 +1;
2<=4 ?
S := 1+1/2 ;
i := 2 +1;
3<=4 ?
S := 1.5+1/3 ;
i := 3 +1;
4<=4?
S := 1.83 +1/4;
i := 4 +1;
5
Đ
Đ
In Tổng S
Tổng S=2.08
Với N = 4
2.08
S
S
Mô phỏng thuật toán
5<=4?
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);
Write(` Nhap vao gia tri cua N :`);Readln(N);
Program Tinh_tong;
Viết chương trình tính tổng trên?
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);
Write(` Nhap vao gia tri cua N :`);Readln(N);
Program Tinh_tong;
Lập chương trình tính tổng sau:
gtđ: 1
Hãy xác định gtđ, gtc, công việc để giải bài tập trên?
Lập chương trình tính tích sau:
gtc: n
Công việc: Tính S=S*i;
Lập chương trình tính :
Thuật toán tìm max
3
Người ta đặt 5 quả bóng có kích thước khác nhau trong hộp đã được đậy nắp như hình bên. Chỉ dùng tay hãy tìm ra quả bóng có kích thước lớn nhất .
Quả này lớn nhất
Quả này mới lớn nhất
ồ! Quả này lớn hơn
Tìm ra quả lớn nhất rồi!
Cùng tìm thuật toán
Nếu S=10, Sau khi thực hiện câu lệnh
For i:= 1 to 3 do
begin S:=S-i end;
writeln(S);
Thì giá trị của S là:
10
09
08
07
06
05
04
03
02
01
00
0
:
D. 6
A. 4
B. 5
C. 10
A. 4
BẠN SAI RỒI!
BẠN SAI RỒI!
Bạn sai rồi!
Nêu kết quả hiển thị trên màn hình khi chạy chương trình sau:
10
09
08
07
06
05
04
03
02
01
00
0
:
Program VD;
Var i:Integer;
Begin
For i:=1 to 9 do
Write(i);
Readln;
End.
Câu lệnh sau lặp bao nhiêu lần thao tác tính tổng S?
For i:=5 to 18 do S:=S+I;
10
09
08
07
06
05
04
03
02
01
00
0
:
D. 15
B. 14
A. 10
C.0
B. 14
BẠN SAI RỒI!
BẠN SAI RỒI!
Bạn Sai rồi!
3
Hãy nhớ!
Câu lệnh rẽ nhánh.
Câu lệnh lặp
IF <đk> THEN
FOR
IF <đk> THEN
ESLE
Dạng khuyết.
Dạng đầy đủ.
Lặp với số lần lặp biết trước.
Hướng dẫn về nhà
Ôn lại về các câu lệnh đã học.
- Lµm c¸c bµi tËp
Xin chân thành cảm ơn
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Thị Vân Anh
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)