II. CHUẨN BỊ CỦA GV VÀ HS
1. Chuẩn bị của GV: Giỏo ỏn, SGK
2. Chuẩn bị của HS: - SGK, Vở ghi
III. HOẠT ĐỘNG DẠY HỌC
1. Hoạt động khởi động Mục tiờu:
- Giỳp học sinh huy động kiến thức và kĩ năng để tổng hợp cỏc kiến thức về mảng trong lập trỡnh.
- Giỏo viờn quan sỏt học sinh, hướng dẫn học sinh thực hành về xử lớ mảng. Tiến hành:
- Hướng dẫn viết về mảng trong Pascal.
- Giỏo viờn kết luận về hoạt động của học sinh và vào bài mới. 2. Bài mới:
Hoạt động của GV và HS Nội dung chớnh
HĐ1:Giỏo viờn nờu nội dung bài tập Hình thức: Chia lớp thành 6 nhúm Thời gian: 35’
Bước 1: GV nờu yờu cầu của bài và
hướng dẫn
Bài 1: Tại sao mảng là kiểu dữ liệu cú
cấu trỳc
I. Nội dung
Bài 1:
Vỡ cỏc kiểu dữ liệu chuẩn khụng đủ để biểu diễn dữ liệu của cỏc bài toỏn trong thực tế. Cỏc ngụn ngữ lập trỡnh cú cỏc quy tắc, cỏch thức
Bài 2: Tại sao phải khai bỏo kớch thước
của mảng
Bài 3: Cỏc phần tử của mảng cú thể cú
những kiểu gỡ
Bài 4: Tham chiếu tới phần tử của
mảng bằng cỏch nào
Bài tập 5:Viết chương trỡnh nhập từ
bàn phớm số nguyờn dương N(N<=100) và dóy A gồm N số
nguyờn A1, A2…AN cú trị tuyệt đối khụng lớn hơn 1000. Hóy cho biết dóy A cú phải là cấp số cộng hay khụng và thụng bỏo kết quả ra màn hỡnh?
- Trong bài này ta cú những khai bỏo biến nào
- Thao tỏc nhập mảng được thực hiện như thế nào
Bài tập 6:
Nhập một xõu kớ tự gồm cỏc từ,chẳng hạn:st=‘Thu Do Ha Noi’.In ra màn hỡnh xõu đú sao cho cỏc từ chỉ cỏch
cho phộp người lập trỡnh xõy dựng những kiểu dữ liệu phức tạp từ những kiểu dữ liệu đó cú Bài 2:
Vỡ nếu khụng khai bỏo kớch thước của mảng thỡ sẽ khụng xỏc định được số lượng phần tử của mảng:
Bài 3:
Cỏc phần tử của mảng cú thể cú cỏc kiểu dữ liệu mà ta đó cú như: Số thực, số nguyờn….
Bài 4:
Tham chiếu tới phần tử của mảng được xỏc đinh:
<Tờn biến mảng>[ Chỉ số phần tử của mảng] Vớ dụ: A[2]
Bài tập 5(Trang 79)
Program baitap5trang79; var A: array[1..50] of integer; N, d,i:integer;
Begin
Write('Nhap so phan tu day A(N<=100),N:'); readln(N); for i:=1 to N do Begin write('A[',i,']='); readln(A[i]); end; d:=0; for i:=1 to N do d:=A[2]-A[1];// dựng tớnh cụng sai if A[i]=a[1]+(i-1)*d then
writeln('day A la cap so cong voi d=',d) else
writeln('day A khong la cap so cong'); for i:=1 to N do write(' ',A[i], ' '); readln; end. Bài 6: Program So_tu;
nhau đỳng một kớ tự trống.
Bước 2: Học sinh làm theo nhúm
- Bài 1 nhúm 1 thực hiện - Bài 2 nhúm 2 thực hiện - Bài 3 nhúm 3 thực hiện - Bài 4 nhúm 4 thực hiện - Bài 5 nhúm 5 thực hiện - Bài 6 nhúm 6 thực hiện
Bước 3: GV chuẩn lại kiến thức
Var St:String; i:Byte; Begin
Write(‘Nhap vao mot xau: ’); Readln(St); While st[1]=‘ ‘ do delete(st,1,1);
While st[length(st)]=‘ ‘ do delete(st,length(st),1); repeat
if (st[i]= ‘ ‘) and (st[i+1]=‘ ‘) then delete(st,i,1)
else i= i+1; until i> length(st);
write(‘Cau chuan la:’,st); Readln; End.
c. Củng cố, luyện tập: (3’)
Nhắc lại kiến thức cơ bản về khai bỏo mảng, xõu, cỏc thao tỏc về mảng, xõu d. Hướng dẫn hs tự học ở nhà: (2’)
- Về nhà xem lại cỏc thao tỏc trong cỏc bài tập - Xem tiếp cỏc bài tập cũn lại
Lớp Ngày dạy Sĩ số Học sinh vắng B8 …../…../ 2020 .../… B9 …../…../ 2020 .../… Tiết 35: BÀI TẬP (Tiếp) I. MỤC TIấU: 1. Kiến thức.
- Biết khai bỏo và truy cập đến phần tử của mảng hai chiều - Biết khai bỏo xõu và truy cập đến phần tử của xõu
2. Kĩ năng.
- Thực hiện được khai bỏo, truy cập, tớnh toỏn cỏc phần tử của mảng - Thực hiện được khai bỏo, truy cập đến phần tử của xõu
3. Thỏi độ
- Ham thớch mụn học, cú tớnh kỉ luật cao và tinh thần làm việc theo nhúm 4. Phỏt triển năng lực
Giỳp học sinh khỏm phỏ, tự học, năng lực hợp tỏc trong thực hành, năng lực lập trỡnh về kớ tự, mảng trong lập trỡnh.
II. CHUẨN BỊ CỦA GV VÀ HS:
1. Chuẩn bị của GV: Giỏo ỏn, SGK 2. Chuẩn bị của HS: SGK, Vở ghi
III. HOẠT ĐỘNG DẠY HỌC
1. Hoạt động khởi động Mục tiờu:
- Giỳp học sinh huy động kiến thức và kĩ năng để tổng hợp cỏc kiến thức về mảng trong lập trỡnh.
- Giỏo viờn quan sỏt học sinh, hướng dẫn học sinh thực hành về mảng. Tiến hành:
- Hướng dẫn viết về mảng trong Pascal.
- Giỏo viờn kết luận về hoạt động của học sinh và vào bài mới. 2. Bài mới:
Hoạt động của GV và HS Nội dung chớnh
HĐ1: Tìm hiểu cỏch thực hiện của chương trình một số bài tập sau: Hình thức: Làm theo nhúm Thời gian: 40’
Bước 1: GV nờu yờu cầu của bài và
chia lớp thành nhúm, hướng dẫn
Bài 1: Cho số nguyờn dương
N(N<=200)và dóy A gồm N số nguyờn dương A1,A2,...,AN.
Hóy viết chương trỡnh nhập vào dóy số
program Vidu;
var a: array[1..100] of integer; i,N,s:integer;
Begin
Writeln('Nhap so luong phan tu N'); Readln(N);
for i:=1 to N do Begin
trờn và tỡm tất cả cỏc chữ số chia hết cho 3 và cho 5. Tớnh tổng cỏc chữ số chia hết cho 2 và 5. - Cỏch khai bỏo mảng - Lệnh nào dựng để nhập số lượng phần tử của mảng - Lệnh nào dựng để nhập từng phần tử của mảng Bài tập 10: (Trang 80)
Viết chương trỡnh nhập vào xõu kớ tự, cho biết cú bao nhiờu chữ số trong xõu. - Cỏch khai bỏo xõu kớ tự như thế nào? - Để kiểm tra kớ tự số ta thực hiện như sau:
Ta thực hiện so sỏnh cỏc kớ tự trong xõu trong phạm vi từ 0 đến 9 (sử dụng đoạn chương trỡnh trong VD5 bài 12)
Bước 2: HS thực hiện theo hướng dẫn
của GV
Bước 3: GV chốt lại kiến thức
readln(a[i]);
end;
s:=0;
for i:=1 to N do
if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then s:=S+a[i];
writeln('tong nhung chu so chia het cho 3 va cho 5 la',s); readln end. Program Bai_Tap_10; Var s: String[100]; i, d, n: Byte; Begin
Write('Nhap vao xau s: '); Readln(s); n:=length(s); d:=0;
For i:=1 to n do
If ('0'<=s[i]) and (s[i]<='9') then
d:=d+1;
Writeln('Trong xau s co ',d,' chu so'); Readln
End.
c. Củng cố, luyện tập: (3’)
Nhắc lại kiến thức cơ bản về khai bỏo mảng, xõu, bản ghi và cỏc thao tỏc về mảng, xõu, bản ghi
Cõu 1: Cỏch khai bỏo một biến kiểu nguyờn ta thực hiện:
A. Var i, j, N: Char; B. Var i, j, N: Real; C. Var i, j, N: Byte; Var i, j, N: String;
Cõu 2: Để viết giỏ trị của biến ra màn hỡnh ta dựng lệnh
A. Readln(d); B. Read(d);
Cõu 3: Để kiểm tra kớ tự xem cú phải lả kớ tự số khụng ta dựng lệnh:
A. If s[i]=’a’ then B. If s[i]=’A’ then
C. If (s[i]=<’0’) and (s[i]>=’9’) then C. If (s[i]>=’0’) and (s[i]<=’9’) then
d. Hướng dẫn hs tự học ở nhà: (2’)
- Về nhà xem lại cỏc thao tỏc trong cỏc bài tập
Lớp Ngày dạy Sĩ số Học sinh vắng
B8 …../…../ 2020 .../…
B9 …../…../ 2020 .../…