Tải bản đầy đủ (.pdf) (4 trang)

Giáo án Tin Học lớp 11: TỔ CHỨC LẶP(tiết 2) pps

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (150.59 KB, 4 trang )

TỔ CHỨC LẶP(tiết 2)
I. Mục đích yêu cầu:
1. Kiến thức: Giới thiệu tổ chức lặp, Ví dụ minh hoạ câu lệnh FOR-
DO
2. Kỹ năng: Rằng luyện kỹ sử dụng cấu trúc lặp trong mô tả thuật toán
3. Thái độ: Học tập nghiêm túc, tập trung tư duy.
II. Chuẩn bị của giáo viên và học sinh:
1. Chuẩn bị của giáo viên: Giáo án, đồ dùng dạy học.
2. Chuẩn bị của học sinh:Xem bài trứơc ở nhà. Đọc tài liệu, nghe
giảng, thảo luận, trả lời câu hỏi của giáo viên
III. Tiến trình tiết dạy:
1. Ổn định tổ chức
1. Kiểm tra bài cũ
Trình bày cú pháp và ý nghĩa lệnh FOR -DO.
3. Nội dung:
Hoạt động của thầy và trò
Nội dung bài giảng

GV: Yêu cầu học sinh nhắc lại bài
toán?
HS:Trả lời.
GV:Bài toán yêu cầu gì?


d. ví dụ minh hoạ:
Ví dụ 1:Sau đây là chương trình
tính tổng S bằng thuật toán1 và
thuật toán 2:
Program Thuat_toan1;
Uses crt;
Var S:real;




GV: Khai báo những biến nào?
HS: trả lời.
GV: Nhập gía trị a?
HS lên bảng thể hiện câu lệnh.
GV: Yêu cầu học sinh thể hiện
bước 1; 2; 3 của thuật toán.








Tương tự gọi một học sinh trình
bày chương trình thể hiện thuật
toán 2




A,n:integer;
Begin
Clrscr;
Write(‘nhap gia tri a=’);
Readln(a);
S:=1/a;
For n:=1 to 100 do

S:=S+1/(a+n);
Writeln(‘ tong S la:’,S:8:2);
Readln;
End.
Program Thuat_toan2;
Uses crt;
Var S:real;
A,n:integer;
Begin
Clrscr;
Write(‘nhap gia tri a=’);
Readln(a);
S:=1/a;
For n:=100down to 1 do
S:=S+1/(a+n);
Writeln(‘ tong S la:’,S:8:2);









GV: Yêu cầu học sinh xác định bài
toán
GV: khai báo biến?

GV: G

ọi từng học sinh thể hiện
từng lệnh 1
Readln;
End.
Ví dụ 2:Chương trình sau thực
hiện việc nhập từ bàn phím hai số
nguyên dương m, n (m<n) tính và
đưa ra màn hình tổng các số chia
hết cho 3 hoặc 5 trong phạm vi từ
m đến n.
Program vidu2;
Uses crt;
Var m,n,i:integer;
T: longint;
Begin
Clrscr;
Writeln(‘ Nhap so m nho hon
n’);
Write(‘m=’); readln(m);
Write(‘n=’); readln(n);
T:=0;
For i:= m to n do
If (i mod 3= 0) or (i mod 5 =0)
then T:=T+i;
Writeln(‘ ket qua:’,T);
Readln
End.

4.Củng cố:
Nhắc lại hoạt động của câu lệnh FOR-DO

5. Dặn dò, bổ sung:
Làm bài tập:6 sgk. Chuẩn bị bài mới




×