- Chạy và sửa lỗi cỏc chương trỡnh trờn Rỳt kinh nghiệm:
H: Gừ chương trỡnh vào mỏy tớnh Program Bảngnhõn;
TRẢI NGHIỆM: HỌC MÀ CHƠI, CHƠI MÀ HỌC I Mục tiờu:
I. Mục tiờu:
1. Kiến thức:
- Sử dụng cỏc kiến thức đó học để làm một số bài tập 2. Kĩ năng:
- Rốn luyện kĩ năng sử dụng cỏc cõu lệnh trong Pascal 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
4.Định hướng phỏt triển năng lực: năng lực sử dụng mỏy tớnh, năng lực giải quyết vấn đề, năng lực sỏng tạo, ứng dụng KHKT, năng lực tự học, năng lực hợp tỏc, làm việc nhúm.
PHƯƠNG PHÁP:
Luyện tập thực hành.
II. CHUẨN BỊ BÀI HỌC:
Sỏch giỏo khoa, mỏy tớnh điện tử.
III. Tiến trỡnh bài dạy:
1.Hoạt động 1: Khởi động (5 phút)
2.Hoạt động 2: Hỡnh thành kiến thức (30 phút)
Hoạt động của GV và HS Nội dung
+ Bài tập 1.
- Sau khi thực hiện đoạn chương trỡnh sau, giỏ trị của biến j bằng bao nhiờu ? j:= 0; For i:= 1 to 5 do j:= j + 2; + Bài tập 2. - Cỏc cõu lệnh Pascal sau cú hợp lệ khụng? Vỡ sao? a) For i:= 100 to 1 do
+ Sau khi thực hiện đoạn chương trỡnh trờn, giỏ trị của biến j = 10
+ Học sinh đọc đề bài => suy nghĩ và trả lời.
a) Cõu lệnh này khụng hợp lệ vỡ giỏ trị đầu lớn hơn giỏ trị
1. Bài tập 1
- Sau khi thực hiện đoạn chương trỡnh sau, giỏ trị của biến j bằng bao nhiờu ?
j:= 0;
For i:= 1 to 5 do j:= j + 2;
2. Bài tập 2.
- Cỏc cõu lệnh Pascal sau cú hợp lệ khụng? Vỡ sao? a) For i:= 100 to 1 do
Writeln(‘A’);
Writeln(‘A’);
b) For i:= 1.5 to 10.5 do Writeln(‘A’);
c) For i:= 1 to 10 do Writeln(‘A’); d) For i:= 1 to 10 do;
Writeln(‘A’); + Bài tập 3
- Viết chương trỡnh in ra màn hỡnh bảng cửu chương 2.
- Yờu cầu học sinh viết chương trỡnh.
- Nhận xột chương trỡnh của học sinh.
- Yờu cầu học sinh dịch, sửa lỗi và chạy chương trỡnh
cuối.
b) Cõu lệnh này khụng hợp lệ vỡ giỏ trị đầu và giỏ trị cuối khụng phải là giỏ trị nguyờn. c) Đõy là cõu lệnh hợp lệ. d) Đõy là cõu lệnh khụng hợp lệ vỡ sau từ khúa do khụng cú dấu chấm phẩy.
+ Học sinh tỡm hiều đề bài.
+ Học sinh viết chương trỡnh theo yờu cầu của giỏo viờn. Program in_bang_cuu_chuong ; Var i: integer; Begin Clrscr; For i:= 1 to 10 do Writeln(2,’ x ‘,i,’ = ’,i*2); Readln; End.
+ Thực hiện theo yờu cầu của giỏo viờn.
Writeln(‘A’); c) For i:= 1 to 10 do
Writeln(‘A’); d) For i:= 1 to 10 do;
Writeln(‘A’); 3. Bài tập 3 - Viết chương trỡnh in ra màn hỡnh bảng cửu chương 2. 3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phỳt): - Cỳ phỏp cõu lệnh lặp?
- Sử dụng for…do lồng vào nhau.
- cõu lệnh Gotoxy(a,b) cú tỏc dụng gỡ? Wherex,wherey dựng để làm gỡ?
.Dặn dũ
- Về nhà làm bài tập trong sỏch bài tập Giỏo viờn nhận xột và đỏnh giỏ tiết bài tập.
- Về nhà hệ thống lại cỏc kiến thức đó học, tiết sau làm bài tập (tiếp)
\
TRẢI NGHIỆM: HỌC MÀ CHƠI, CHƠI MÀ HỌC (tiếp) I. Mục tiờu:
1. Kiến thức:
- Sử dụng cỏc kiến thức đó học để làm một số bài tập 2. Kĩ năng:
- Rốn luyện kĩ năng sử dụng cỏc cõu lệnh trong Pascal 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ BÀI HỌC:
Sỏch giỏo khoa, mỏy tớnh điện tử.
III. Tiến trỡnh bài dạy:
1.Hoạt động 1: Khởi động (5 phút) 2.Hoạt động 2: Hỡnh thành kiến thức (30 phút)
Hoạt động của GV và HS Nội dung
+ Bài tập 1.
- Đối với từng đoạn chương trỡnh Pascal sau đõy, hóy cho biết lệnh Writeln in ra màn hỡnh giỏ trị của i, j, k là bao nhiờu? - Đoạn 1: j:=2; k:=3; for i:=1 to 5 do j:=j+1; k:=k+1; cach:=’ ‘; writeln(j,cach,k); - Đoạn 2: j:=2; k:=3; for i:=1 to 5 do begin j:=j+1; k:=k+1;
+ Học sinh đọc đề bài => suy nghĩ và trả lời. - In ra màn hỡnh: 7 4 - In ra màn hỡnh: 7 8 1.) Bài tập 1:
- Đối với từng đoạn chương trỡnh Pascal sau đõy, hóy cho biết lệnh Writeln in ra màn hỡnh giỏ trị của i, j, k là bao nhiờu? - Đoạn 1: j:=2; k:=3; for i:=1 to 5 do j:=j+1; k:=k+1; cach:=’ ‘; writeln(j,cach,k); - Đoạn 2: j:=2; k:=3; for i:=1 to 5 do begin j:=j+1; k:=k+1;
end; cach:=’ ‘; writeln(j,cach,k); - Đoạn 3: j:=2; k:=3; for i:=1 to 5 do if i mod 2 = 0 then j:=j+1; k:=k+1; cach:=’ ‘; writeln(j,cach,k); + Bài tập 2. - Viết chương trỡnh tớnh tổng: S=1/1+1/2+... +1/n với giỏ trị n nhập vào từ bàn phớm
- Yờu cầu học sinh viết chương trỡnh.
- Nhận xột chương trỡnh của học sinh.
- Yờu cầu học sinh dịch, sửa lỗi và chạy chương trỡnh
- In ra màn hỡnh: 4 4
+ Học sinh tỡm hiều đề bài.
+ Học sinh viết chương trỡnh theo yờu cầu của giỏo viờn. Program Tinh_tong;
Var i,n: integer; S: real; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); S:=0; For i:= 1 to n do S:=S+1/i; Writeln(‘S=’,S); Readln; End.
+ Thực hiện theo yờu cầu của giỏo viờn. end; cach:=’ ‘; writeln(j,cach,k); - Đoạn 3: j:=2; k:=3; for i:=1 to 5 do if i mod 2 = 0 then j:=j+1; k:=k+1; cach:=’ ‘; writeln(j,cach,k); 2.) Bài tập 2: - Viết chương trỡnh tớnh tổng: S=1/1+1/2+...+1/n với giỏ trị n nhập vào từ bàn phớm
3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phỳt):
- Cỳ phỏp cõu lệnh lặp?
- Sử dụng for…do lồng vào nhau.
- cõu lệnh Gotoxy(a,b) cú tỏc dụng gỡ? Wherex,wherey dựng để làm gỡ?
.Dặn dũ
- Về nhà làm bài tập trong sỏch bài tập Giỏo viờn nhận xột và đỏnh giỏ tiết bài tập. - Về nhà hệ thống lại cỏc kiến thức đó học, Ngày soạn:...
Ngày giảng:...
Tiết 33+34: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC I.Mục đớch
1.Kiến thức
Biết nhu cầu cần cú cấu trỳc lặp với số lần chưa biết trước trong ngụn ngữ lập trỡnh.
Biết ngụn ngữ lập trỡnh dựng cấu trỳc lặp với số lần chưa biết trước để chỉ dẫn mỏy tớnh thực hiện lặp đi lặp lại cụng việc đến khi một điều kiện nào đú được thỏa món.
Hiểu hoạt động của cõu lệnh lặp với số lần chưa biết trước while .. do trong Pascal.
2.Kĩ năng
Viết đỳng lệnh while .. do trong một số tỡnh huống đơn giản
3.Thỏi độ
Cú ý thức tư duy, cú thỏi độ ham học hỏi, tỏc phong làm việc nghiờm tỳc.
4. Định hướng phỏt triển năng lực:
năng lực sử dụng mỏy tớnh, năng lực giải quyết vấn đề, năng lực sỏng tạo, ứng dụng KHKT, năng lực tự học, năng lực hợp tỏc, làm việc nhúm.
PHƯƠNG PHÁP:
Đặt và giải quyết vấn đề