TIN HỌC : chương trình được viết bằng lệnh For
Ti t 2ế2: BÀI T PẬ
I. M c tiêuụ
1. Ki n th c:ế ứ T ng k tổ ế cho h c sinh nh ng ki n th c v c u trúc rọ ữ ế ứ ề ấ ẽ
nhánh và l p.ặ
2. Kĩ năng: Rèn luy n kĩ năng v n d ng và linh ho t trong công vi cệ ậ ụ ạ ệ
l a cựh n c u trúc r nhánh và c u trúc l p phù h p đ gi i quy t bàiọ ấ ẽ ấ ặ ợ ể ả ế
toán đ t ra.ặ
II. Chu n bẩ ị
Giáo viên: Máy chi u, SGK, sách giáo viên, sách bài t p.ế ậ
2. H c sinhọ: SGK, sách bài t p, đ dùng h c t p. ậ ồ ọ ậ
III. T ch c các ho t đ ng h c t pổ ứ ạ ộ ọ ậ
1. n đ nh t ch c l p:Ổ ị ổ ứ ớ
2. Ki m tra bài cũ:ể Ti n hành trong quá trình th c hành.ế ự
3. Ti n trình bài h cế ọ
Ho t đ ng c a th y và tròạ ộ ủ ầ N i dungộ
Ho t đ ng 1: Bài t p 1(25 phút)ạ ộ ậ
GV: Nêu N i dungộ bài t p. ậ
GV: Nêu h ng gi i cho bài t p trên?ướ ả ậ
HS: S d ng c u trúc l p v i s l nử ụ ấ ặ ớ ố ầ
không bi t tr c While - Do.ế ướ
GV: Chia nhóm cho các nhóm ho t đ ng.ạ ộ
HS: Th o lu n nhóm.ả ậ
GV: Cho các nhóm báo cáo k t qu th oế ả ả
lu n.ậ
GV: Chính xác hóa ki n th c.ế ứ
Bài 1: Cho ch ng trình đ c vi t b ngươ ượ ế ằ
l nh For:ệ
Var x, i:word; nt:boolean;
Begin
Readln(x); nt :=true;
For i :=2 to x – 1 do
if x mod i = 0 then nt:=false;
If nt = true then write(x,’la so
nguyen to’) else write(x, ‘khong phai
snt’);
readln;
End.
Câu h iỏ: Hãy vi t l i ch ng trình trênế ạ ươ
trong đó l nh l p For đ c thay b ngệ ặ ượ ằ
l nh l p While. Hãy cho bi t, trong bàiệ ặ ế
toán trên s d ng l nh l p nào là t t h n?ử ụ ệ ặ ố ơ
Đáp án:
Var x, i:word; nt:boolean;
Begin
Readln(x);
I:=2;
While (i<= x-1) and (x mod i <>0 )do
i:=i+1;
If i> x-1 then write(x,’la so nguyen to’)
else write(x, ‘khong phai snt’);
readln;
End.
Tin h c 11ọ
Ho t đ ng c a th y và tròạ ộ ủ ầ N i dungộ
GV: Nên s d ng c u trúc l p nào t tử ụ ấ ặ ố
h n?ơ
HS: Dùng c u trúc l pWhile.ấ ặ
GV: Gi i thích?ả
HS: Vì s l n th c hi n l nh ít h n. Chố ầ ự ệ ệ ơ ỉ
c n g p tr ng h p x mod i = 0 thì thoátầ ặ ườ ợ
kh i vòng l p mà không c n ki m tra cácỏ ặ ầ ể
tr ng h p còn l i.ườ ợ ạ
GV: Chính xác hóa ki n th c.ế ứ
Ho t đ ng 2: Th c hành (15 phút)ạ ộ ự
GV: Yêu c u HS th c hành ch y ch ngầ ự ạ ươ
trình trên máy.
HS: Th c hành theo yêu c u c a GV.ự ầ ủ
GV: Quan sát s a l i cho HS.ử ỗ
Nên s d ng c u trúc l p While.ử ụ ấ ặ
4. T ng k t và h ng d n h c t p nhà (05 phút)ổ ế ướ ẫ ọ ậ ở
* T ng k tổ ế
+ Câu l nh For - Do: S l n l p đã xác đ nh.ệ ố ầ ặ ị
+ Câu l nh While - Do: S l n l p ch a xác đ nh.ệ ố ầ ặ ư ị
* Bài t p v nhà:ậ ề
Nghiên c u n i dung bài ki u m ng.ứ ộ ể ả
Tin h c 11ọ
có thể bạn quan tâm
Tuyệt chiêu tìm kiếm Gmail bằng lệnh để lục được những thứ siêu hay
4
658
298
Tài liệu CNTT khác
4
(New)
Hướng dẫn quản lý chương trình Ubuntu qua dòng lệnh
11
2.433
327
Cơ sở dữ liệu
11
(New)
TIN HỌC :Các lệnh soạn thảo, dịch, thực hiện chương trình
3
754
323
Giáo án, bài giảng lớp 11
3
(New)
Luận văn: tìm kiếm trong chương trình nguồn các lệnh SQL và sau đó chu...
22
1.173
575
Thạc sĩ cao học
22
(New)
BẢNG KÊ CHƯƠNG TRÌNH
1
756
336
Biểu mẫu, văn bản khác
1
(New)
Lý thuyết và bài tập Chương trình bảng tính
2
741
330
Giáo án, bài giảng lớp 7
2
(New)
SỬ DỤNG HÀM TRONG CHƯƠNG TRÌNH BẢNG TÍNH
2
818
298
Giáo án, bài giảng lớp 7
2
(New)
BẢNG KÊ GIẤY TỜ CÓ GIÁ ĐƯỢC CHẤP NHẬN CẦM CỐ ĐỂ VAY VỐN TAI NGÂN HÀNG...
1
833
339
Biểu mẫu, văn bản khác
1
(New)
thông tin tài liệu
TIN HỌC : chương trình được viết bằng lệnh For
Bài 1: Cho chương trình được viết bằng lệnh For:
Var x, i:word; nt:boolean;
Begin
Readln(x); nt :=true;
For i :=2 to x – 1 do
if x mod i = 0 then nt:=false;
If nt = true then write(x,’la so nguyen to’) else write(x, ‘khong phai snt’);
readln;
End.
Câu hỏi: Hãy viết lại chương trình trên trong đó lệnh lặp For được thay bằng lệnh lặp While. Hãy cho biết, trong bài toán trên sử dụng lệnh lặp nào là tốt hơn?
Đáp án:
Var x, i:word; nt:boolean;
Begin
Readln(x);
I:=2;
While (i<= x-1) and (x mod i <>0 )do
i:=i+1;
If i> x-1 then write(x,’la so nguyen to’) else write(x, ‘khong phai snt’);
readln;
End.
Mở rộng để xem thêm
từ khóa liên quan
tài liệu mới trong mục này
tài liệu hot trong mục này
tài liệu giúp tôi
Nếu bạn không tìm thấy tài liệu mình cần có thể gửi yêu cầu ở đây để chúng tôi tìm giúp bạn!
×
