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

Kiến thức: Giới thiệu tổ chức lặp, Ví dụ minh hoạ câu lệnh FOR- DO 2.. 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.. Chuẩn bị của học sinh:Xe

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