HS: Thực hiện nhấn F2 để lưu với các giá trị cụ thể chương trình và thực hiện hiệu chỉnh.. d/ Vµo b¶ng chän Debug më cöa sæ hiÖu.[r]
Trang 1Ngày soạn: 13/11
Ngày dạy: 17/11
Tiết : 15, 16.
BÀI TẬP VÀ THỰC HÀNH 2.
I.Mục đớch:
- Xõy dựng ctrỡnh cú nhu cấu trỳc rẽ nhỏnh
- Làm quen với cỏc cụng cụ hiệu chỉnh ctrỡnh
II.Biện phỏp: Dạy và học hợp tỏc theo nhúm nhỏ.
III Phương tiện:
Gv: Giỏo ỏn, SGK, mỏy chiếu, phũng mỏy cho học sinh.
Hs: Vở, SGK, đồ dựng học tập.
IV Nội dung tiết dạy
1 ổn định tổ chức:
2 Kiểm tra bài cũ: Cấu trúc rẽ nhánh là gì? viết cấu trúc và lấy 1 ví dụ
3 Tiến trình bài học:
GV: Y/c HS mở sách và soạn thảo
chương trình giải bài toán bộ số
Pi_ta_go trong SGK vào máy
HS: Thực hiện soạn thảo
1 Bài toán: Bộ số Pi – Ta - Go
* ý tưởng: Kiểm tra xem có đẳng thức nào trong 3 đẳng thức sau sảy ra hay không
a2= b2+ c2
b2 =a2 +c2
c2 =a2 +b2
a/ Chương trình:
Program Pi_ta_go;
var a, b, c: Integer;
a2, b2, c2: Longint;
Begin Write('Nhap a, b, c:');
Readln(a, b, c);
a2:=a;
b2:=b;
Lop11.com
Trang 2GV: Lưu ý cách rẽ nhánh của bài
toán và cách sử dụng các biểu thức
logic
GV: Chú ý: Trong chương trình trước
từ khoá Else không có dấu
GV: Lưu chương trình và đặt tên là
Pi_ta_go
HS: Thực hiện nhấn F2 để lưu
chương trình và thực hiện hiệu chỉnh
GV: Thử với các Input trong SGK
c2:=c;
a2:=a2*a;
b2:=b2*2;
c2:=c2*2;
If (a2=b2+c2) or (b2=a2+c2)or (c2=a2+b2) then Writeln('Ba so da nhap la he so Pi_ta_go')
else Writeln('Ba so da nhap khong la bo so Pi_ta_go');
Readln End
b/ Lưu chương trình với tên là Pi_ta_go trên
đĩa c/ F7 để thực hiện từng câu lệnh chương trình với các giá trị cụ thể
d/ Vào bảng chọn Debug mở cửa sổ hiệu chỉnh xem giá trị a2, b2, c2
e/ Nhấn phím F7 để thực hiện các câu lệnh tính những giá trị nói trên
f/ Quan sát quá trình rẽ nhánh
4 Củng cố:
Nhắc lại những KN đã học
Cấu trúc lệnh: If <điều kiện> Then <câu lệnh 1>
If <điều kiện> Then <câu lệnh 1> Else <câu lệnh 2>
5 Dặn dò:
Các em về học bài và ôn tập lại bài giờ sau kiểm tra 1 tiết
Lop11.com