Giáo án môn Tin học lớp 11 bài 19

Hoạt động của thầy và trò

Nội dung

Hoạt động 1: Giới thiệu nội dung thực hành (10 phút)

GV: nêu Nội dung thực hành - Bài toán bộ số Pitago trang 49 SGK.

GV: Gọi HS nêu khái niệm về bộ số Pitago và lấy một ví dụ cụ thể.

HS: Nêu khái niệm

GV: Để kiểm tra bộ ba số a, b, c bất kì có phải là bộ Pitago, ta phải kiểm tra các đẳng thức nào?

HS: Ví dụ về bộ số Pitago: 5 4 3

a² = b² + c².

b² = a² + c².

c² = a² + b².

Hoạt động 2: Hướng dẫn học sinh thực hành ( 30 phút)

GV: Chiếu chương trình mẫu bằng máy chiếu.

HS: Quan sát, ghi nhớ.

GV: Thực hiện mẫu các thao tác: lưu, thực hiện từng lệnh chương trình, xem kết quả trung gian, thực hiện chương trình và nhập dữ liệu.

- Yêu cầu học sinh gõ chương trình mẫu vào máy.

- Yêu cầu học sinh lưu chương trình lên đĩa với tên Pitago.pas

- Yêu cầu học sinh thực hiện từng lệnh của chương trình.

- Yêu cầu học sinh xem các kết quả a2, b2, c2.

HS: Soạn chương trình vào máy theo yêu cầu của giáo viên.

HS: Thực hiện theo yêu cầu của giáo viên.

Quan sát quá trình rẽ nhánh của từng bộ dữ liệu- vào và trả lời.

GV: Yêu cầu học sinh thực hiện với bộ dữ liệu a =700, b= 1000, c= 800.

GV: Yêu cầu học sinh quan sát kết quả với trường hợp thay dãy lệnh:

a2:=a*a;

b2:=b*b;

c2:= c*c;

Quan sát kết quả và nhận xét nguyên nhân?

HS: Giá trị của a2, b2, c2 thay đổi (không trả về giá trị đúng).

=> Nguyên nhân: Vì kiểu dữ liệu không phù hợp (longint và Integer).

GV: quan sát học sinh thực hành và giải đáp những khó khăn của học sinh.

HS: Thực hành trên máy.

Bài toán: Bộ số Pitago

Bộ số Pitago: Tổng bình phương của hai số bằng bình phương của số còn lại.

Chương trình:

Program Pitago;

Uses crt;

Var a,b,c: integer;

a2,b2,c2: longint;

Begin

Clrscr;

Writeln('Nhap a,b,c:');

Readln(a,b,c);

a2:=a;

b2:=b;

c2:=c;

a2:=a2*a;

b2:=b2*b;

c2:=c2*c;

if (a2 =b2+c2) or (b2 =a2+c2) or (c2 =b2+a2) then writeln('ba so da nhap la bo so pitago')

else

writeln('Ba so da nhap khong la bo so Pitago');

readln;

end.

- Bấm F2, gõ tên file và enter.

- Bấm F7, nhập các giá trị a=3, b=4, c=5.

- Chọn menu Debug để mở cửa sổ hiệu chỉnh (hoặc nhấn Ctrl+F₇).