Giao an hoc ki 1
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 (111.66 KB, 6 trang )
Lớp
Ngày soạn
8A
8B
04/11/2018
8C
Ngày giảng
Tiết
Sĩ số
... / ... / 2018
30
... / ... / 2018
30
... /... / 2018
29
Vắng
Tiết 23: Bài thực hành số 4
SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF...THEN
I. Mục tiêu:
1. Kiến thức:
- Luyện tập sử dụng câu lệnh If...then
2. Kĩ năng:
- Rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa
của thuật toán sử dụng trong chương trình
3. Thái độ:
- Thái độ học tập nghiêm túc, u thích mơn học.
II. Chuẩn bị:
- GV: SGK, giáo án, tài liệu tham khảo
- Chuẩn bị phòng thực hành đủ số máy hoạt động tốt
- HS: Học kỹ lý thuyết, đọc trước bài thực hành
III. Tiến trình dạy và học:
1. Phân việc cho từng nhóm thực hành.
2. Bài mới:
Hoạt động của thầy
Hoạt động của trò
Nội dung
Hoạt động 1: Ôn lại câu lệnh điều kiện
? Nêu cú pháp và hoạt động
1. Ôn lại câu lệnh điều
của câu lệnh điều kiện dạng
thiếu và dạng đủ.
kiện:
a) Dạng thiếu:
a) Dạng thiếu:
- Cú pháp:
- Cú pháp:
IF <điều kiện> then
<câu lệnh>;
- Hoạt động: Chương trình
sẽ kiêm tra điều kiện. Nếu
điều kiện được thỗ mãn,
chương trình sẽ thực hiện
câu lệnh sau từ khoá then,
ngược lại câu lệnh đó bị
bỏ qua.
b) Dạng đủ:
b) Dạng đủ:
- Cú pháp: If <điều kiện>
- Cú pháp: If <điều kiện> then <Câu lệnh 1>
then <Câu lệnh 1> Else
Else <câu lệnh 2>;
<câu lệnh 2>;
- Hoạt động: Chương trình
sẽ kiểm tra điều kiện. Nếu
+ Làm bài tập 1/52
điều kiện được thỗ mãn,
chương trình sẽ thực hiện
- Viết chương trình nhập hai
số nguyên a và b khác nhau
từ bàn phím và in hai số đó
câu lệnh 1 sau từ khoá
then, ngược lại câu lệnh 2
sẽ được thực hiện.
ra màn hình theo thứ tự
khơng giảm
2. Viết chương trình
- Gõ chương trình sau:
program sapxep;
+ Học sinh chú ý lắng
nhập hai số nguyên a và
uses crt ;
nghe
b khác nhau từ bàn phím
và in hai số đó ra màn
var a, b: integer;
hình theo thứ tự không
begin
giảm
clrscr;
write(‘ nhap so a : ‘);
program sap_xep;
readln(a);
uses crt;
write(‘nhap so b : ‘); + Học sinh độc lập gõ
var a, b: integer;
readln(b);
chương trình vào máy
begin
if a < b then write(a,’ ‘,b)
else
clrscr;
writeln(b,’ ‘,a);
write(‘ nhap so a : ‘);
readln(a);
readln;
- Tìm hiểu ý nghĩa của các
câu lệnh trong chương trình.
- Dịch và chạy chương trình
write(‘ nhap so b : ‘);
+ Học sinh tìm hiểu ý readln(b);
nghĩa của các câu lệnh
if a < b then
trong chương trình theo
write(a,’ ‘,b) else
yêu cầu của giáo viên.
+ Nhấn F9 để dịch và writeln(b,’ ‘,a);
nhấn Ctrl + F9 để chạy
chương trình.
readln
end.
3. Củng cố:
- Giáo viên nhận xét và đánh giá tiết thực hành.
4. Dặn dò:
- Tiết sau thực hành: “ Bài thực hành số 4” (tt)
Lớp
Ngày soạn
Ngày giảng
8A
05/11/2018
... / ... / 2018
30
... / ... / 2018
30
8B
Tiết
Sĩ số
Vắng
8C
... /... / 2018
Tiết 24
29
Bài thực hành số 4 (tt)
SỬ DỤNG CÂU LỆNH ĐIỀU KIỆN IF...THEN
I. Mục tiêu:
1. Kiến thức:
- Luyện tập sử dụng câu lệnh If...then
2. Kĩ năng:
- Rèn kĩ năng ban đầu về đọc các chương trình đơn giản và hiểu được ý nghĩa
của thuật toán sử dụng trong chương trình
3. Thái độ:
- Thái độ học tập nghiêm túc, u thích mơn học.
II. Chuẩn bị:
- GV: SGK, giáo án, tài liệu tham khảo
- HS: Học kỹ lý thuyết, đọc trước bài thực hành
III. Tiến trình dạy và học:
1. Phân việc cho từng nhóm thực hành.
2. Bài mới:
Hoạt động của thầy
Hoạt động của trò
Nội dung
Hoạt động 1: Làm bài tập
+ Làm bài tập 2/53
1. Bài tập 2:
- Viết chương trình nhập chiều
* Gõ chương trình sau:
cao của hai bạn Long và + Học sinh chú ý lắng
Trang, in ra màn kết quả so nghe.
Program Ai_cao_hon;
sánh chiều cao của 2 bạn.
+ Viết và gõ chương Var Long, Trang: real;
- Yêu cầu học sinh viết và gõ trình vào máy.
Begin
chương trình vào máy.
Program Ai_cao_hon;
Writeln(‘ nhap chieu cao
Var long, trang: real;
cua Long’); Readln(Long);
Begin
Writeln(‘nhap chieu cao cua
Writeln(‘ nhap chieu
cao
cua
Long’); If Long > Trang then
Readln(long);
Writeln(‘nhap
cao
cua
Trang’); Readln(Trang);
Writeln(‘bạn Long cao
chieu hon’);
Trang’); If Long < Trang then
Readln(trang);
Writeln(‘ban Trang cao
If long>trang then
hon’) else
Writeln(‘bạn Long cao Writeln(‘hai ban bang
- Lưu chương trình với tên
hon’);
nhau’);
aicaohon.pas. Dịch và sửa lỗi
If Long
Readln;
chương trình
Writeln(‘ban
Trang End.
cao hon’) else
+ Làm bài tập 3/54
Writeln(‘hai ban bang 2. Bài tập 3:
- Dưới đây là chương trình nhau’);
* Gõ chương trình sau:
nhập ba số dương a, b, c từ Readln;
bàn phím, kiểm tra và in ra
End.
màn hình kết quả kiểm tra ba
số đó có thể là độ dài các cạnh + Học sinh lưu, sửa lỗi Program ba_canh_tam_giac;
và chạy chương trình
của một tam giác hay khơng.
theo u cầu của giáo Var a,b,c: real;
+ Gõ chương trình vào Begin
máy.
Write(‘nhap ba so a, b và
Program
c:’);
ba_canh_tam_giac;
Readln(a,b,c);
Var a,b,c: real;
If (a+b>c) and (b+c>a) and
(c+a>b) then
- Tìm hiểu ý nghĩa của các câu Begin
lệnh trong chương trình.
Write(‘nhap ba so a, b Writeln(‘a,b,c la ba cạnh
cua tam giac:’) else
và c:’);
- Dịch và chạy chương trình.
Readln(a,b,c);
Writeln(‘a,b,c khong la ba
If (a+b>c) and (b+c>a)
Readln;
+ Nhấn F9 để dịch và nhấn
and (c+a>b) then
Ctrl + F9 để chạy chương
Writeln(‘a,b,c
trình.
cạnh của tam giác’)
là
ba End.
else
Writeln(‘a,b,c khong la
ba canh cua tam giac’);
Readln;
End.
+ Học sinh tìm hiểu ý
nghĩa của các câu lệnh
trong chương trình.
3. Củng cố
- Giáo viên nhận xét và đánh giá tiết thực hành.
4. Dặn dò:
- Về nhà xem lại bài, tiết sau làm bài tập.
canh cua tam giac.’);
