Tải bản đầy đủ (.doc) (11 trang)

Thực hành Xử lý dãy số trong chương trình

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 (130.14 KB, 11 trang )

GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

BÀI THỰC HÀNH 7:
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH
A. BẢNG MÔ TẢ CÁC NĂNG LỰC CẦN PHÁT TRIỂN
Nội dung chủ đề
Nhận biết
Thông hiểu Vận dụng thấp Vận dụng cao
- HS gõ chương - HS hiểu nên - Chạy chương Viết các chương
trình chính xác dùng biến
trình với các giá trình có sử dụng
như yêu cầu mảng thay
trị khác nhau. biến mảng.
SGK sử dụng cho nhiều
Tính toán các
Bài thực hành 7: biến mảng
biến cùng
kết quả nhận
Xử lý dãy số
- Biết lựa chọn kiểu dữ liệu
được.
trong chương
câu lệnh lặp trong chương - Chỉnh sửa câu
trình
While…do hoặc trình.
lệnh
trong
For…do phù hợp - Giải thích
chương trình


với yêu cầu bài được kết quả - Dịch và chạy
toán.
có được của
chương
trình
- HS nhận biết chương trình với các giá trị
trong
chương khi sử dụng
gõ vào từ bàn
trình có sử dụng biến mảng.
phím.
các câu lệnh lồng
nhau.
B. HỆ THỐNG CÂU HỎI/BÀI TẬP THỰC HÀNH:
Biết :
1. Cách xếp loại kết quả học tập như thế nào ?
2. Cách tính điểm trung bình của 2 môn Toán và Văn ?
3. Cách nhận biết số lẻ trong dãy n số?
4. Bài toán nhập vào một dãy số nguyên, in ra màn hình dãy số đó. Dãy số gồm bao
nhiêu phần tử?
5. Viết câu lệnh in ra màn hình dãy số theo hàng hoặc theo cột?
Hiểu :
1. Các câu lệnh được sử dụng trong phần thân chương trình trong bài toán xếp loại
học sinh?
2. Liệt kê các biến dự định sẽ sử dụng trong chương trình tính điểm trung bình hai
môn Toán và Văn?
3. Cần khai báo những biến gì cho bài toán: in ra màn hình các số lẻ trong dãy số đã
nhập?
4. Cần khai báo những biến gì cho bài toán: nhập vào một dãy số nguyên, in ra màn
hình dãy số đó?

5. Liệt kê các biến dự định sẽ sử dụng trong chương trình nhập dãy số, in dãy số đó ra
màn hình, tính tổng của các phần tử trong danh sách.
Vận dụng thấp :
1. Viết câu lệnh xếp loại mỗi bạn học sinh?
2. Viết câu lệnh tính điểm trung bình của cả lớp theo môn Toán và Văn?
3. Viết câu lệnh kiểm tra số đó có phải là số lẻ hay không?
4. Câu lệnh in ra màn hình dãy số đã nhập theo chiều ngang hoặc chiều dọc?
5. Câu lệnh tính tổng giá trị của các phần tử trong dãy?
Vận dụng cao :
Giáo án Tin 8

Trang 51

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

1. Viết, dịch và chạy chương trình cho bài toán trên với số học sinh n = 10.
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt
kết quả học tập loại giỏi, khá, trung bình và kém. ( Nhập n = 10 để kiểm tra kết quả)
2. Nhập hai loại điểm Toán và Ngữ văn của các bạn, sau đó in ra màn hình điểm trung
bình của mỗi bạn trong lớp, điểm trung bình của cả lớp theo từng môn Toán và Văn.
3. Viết chương trình nhập một dãy số nguyên. In ra màn hình các số lẻ trong dãy đó?
4. Viết chương trình nhập một dãy số nguyên. In dãy số đó ra màn hình ?
5. Viết chương trình nhập dãy số, in dãy số đó ra màn hình, tính tổng của các phần tử
trong danh sách.
HƯỚNG DẪN TRẢ LỜI CÂU HỎI VÀ BÀI TẬP THỰC HÀNH:

Biết:
1. Cách xếp loại kết quả học tập :
a  8.0 xếp loại Giỏi
6.5  a  7.9 xếp loại Khá
5.0  a  6.4 xếp loại Trung bình
a  5.0 xếp loại Kém
2. Cách tính điểm trung bình của 2 môn Toán và Văn :
= (điểm Toán + điểm Ngữ văn)/2
3. Cách nhận biết số lẻ trong dãy n số là: Các số đó không chia hết cho 2.
4. Bài toán nhập vào một dãy số nguyên, in ra màn hình dãy số đó. Dãy số đó chưa
cho biết số phần tử, vì vậy khi viết chương trình cần thêm câu lệnh nhập số phần tử
của dãy.
write('Nhap so phan tu cua day: '); readln(n);
5. Viết câu lệnh in ra màn hình dãy số theo hàng hoặc theo cột:
for i:=1 to n do write(a[i],' ');
hoặc: for i:=1 to n do writeln(a[i]);
Hiểu :
1. Các câu lệnh được sử dụng trong phần thân chương trình trong bài toán xếp loại
học sinh: Câu lệnh lặp for…do, câu lệnh điều kiện If…then, …
2. Các biến dự định sẽ sử dụng trong chương trình tính điểm trung bình hai môn Toán
và Văn:
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;
3. Các biến cần khai báo cho bài toán: in ra màn hình các số lẻ trong dãy số đã nhập.
var i,n:byte;
a:array[1..100] of integer;
4. Các biến cần khai báo cho bài toán: nhập vào một dãy số nguyên, in ra màn hình
dãy số đó.
var i,n:integer;

a:array[1..100] of integer;
5. Các biến dự định sẽ sử dụng trong chương trình nhập dãy số, in dãy số đó ra màn
hình, tính tổng của các phần tử trong danh sách:
var a:array[1..100] of integer;
i,n,s:integer;
Vận dụng thấp :
Giáo án Tin 8

Trang 52

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

1. Câu lệnh xếp loại mỗi học sinh:
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;
2. Câu lệnh tính điểm trung bình của cả lớp theo môn Toán và Văn:
for i:=1 to n do
begin TbToan:=TbToan+DiemToan[i];
TbVan:=TbVan+DiemVan[i] end;

TbToan:=TbToan/n; TbVan:=TbVan/n;
3. Câu lệnh kiểm tra số đó có phải là số lẻ hay không:
for i:=1 to n do if a[i] mod 2 <>0 then write(a[i], ‘ ’);
4. Câu lệnh in ra màn hình dãy số đã nhập:
for i:=1 to n do write(a[i],' ');
5. Câu lệnh tính tổng giá trị của các phần tử trong dãy:
s:=0;
for i:=1 to n do s:=s+a[i];
Vận dụng cao :
1. Viết, dịch và chạy chương trình cho bài toán trên với số học sinh n = 10.
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt
kết quả học tập loại giỏi, khá, trung bình và kém. ( Nhập n = 10 để kiểm tra kết quả)
program Phanloai;
uses crt;
Var
i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
Begin
clrscr;
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do Begin write(i,’. ‘); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
end;

writeln(‘Ket qua hoc tap:’);
writeln(Gioi,’ ban hoc gioi’);
writeln(Kha,’ ban hoc kha’);

Giáo án Tin 8

Trang 53

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’);
readln
End.
2. Nhập hai loại điểm Toán và Ngữ văn của các bạn, sau đó in ra màn hình điểm trung
bình của mỗi bạn trong lớp, điểm trung bình của cả lớp theo từng môn Toán và Văn?
Var i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;
begin
writeln('Diem trung binh:');
for i:=1 to n do
writeln(i,'. ',(DiemToan[i]+DiemVan[i])/2:3:1);
TbToan:=0; TbVan:=0;
for i:=1 to n do

begin TbToan:=TbToan+DiemToan[i];
TbVan:=TbVan+DiemVan[i] end;
TbToan:=TbToan/n; TbVan:=TbVan/n;
writeln('Diem trung binh mon Toan: ',TbToan:3:2);
writeln('Diem trung binh mon Van: ',TbVan:3:2);
end.
3. Viết chương trình nhập một dãy số nguyên. In ra màn hình các số lẻ trong dãy đó?
Program sole;
uses crt;
var i,n:byte;
a:array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write(‘Cac so le trong day la: ’);
for i:=1 to n do if a[i] mod 2 <>0 then
write(a[i], ‘ ’);
readln;
end.
4. Viết chương trình nhập một dãy số nguyên. In dãy số đó ra màn hình?
program nhap_inds;
var a:array[1..100] of integer;
i,n:integer;
begin
write('nhap n: ');readln(n);
for i:=1 to n do
begin

write('nhap so thu ',i,':');

Giáo án Tin 8

Trang 54

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
5. Viết chương trình nhập dãy số, in dãy số đó ra màn hình, tính tổng của các phần tử
trong danh sách?
program tong_ds;
var a:array[1..100] of integer;
i,n,s:integer;
begin
write('nhap n: ');readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,':');
readln(a[i]);
end;

for i:=1 to n do write(a[i],' ');
s:=0;
for i:=1 to n do s:=s+a[i];
write('tong',n:3,' so trong mang la',s:4);
readln;
end.
Tuần: 30
Tiết: 57
BÀI TH7 : XỬ LÝ DÃY SỐ TRONG CHƯƠNG
Ngày soạn:…………….
TRÌNH (T1)
Ngày dạy:……………...
I. MỤC TIÊU:
1. Kiến thức:
* Đạt chuẩn :
 Khai báo và sử dụng các biến mảng.
 Hiểu và viết được chương trình làm việc với dãy số.
* Trên chuẩn :
 Viết hoàn chỉnh chương trình Pascal sử dụng câu lệnh về biến mảng cho bài
toán.
2. Kỹ năng:
 Sử dụng câu lệnh lặp for…do, if...then
 Kỹ năng đọc, hiểu và chỉnh sửa chương trình.
3. Thái độ:
 Hs nghiêm túc trong học tập.
II. CHUẨN BỊ:
 GV: Chuẩn bị tốt giáo án, phòng máy.
 HS:
Giáo án Tin 8


Trang 55

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

+ Sách vở, dụng cụ học tập.
+ Xem trước bài học.
* RÈN NĂNG LỰC: NL tự học, NL giải quyết vấn đề, NL giao tiếp, NL sáng tạo,
NL hợp tác, NL sử dụng ngôn ngữ.
III. TIẾN TRÌNH LÊN LỚP:
1. Ổn định lớp: Kiểm tra sĩ số.
2. Kiểm tra bài cũ:
Hãy cho một số ví dụ về lặp với số lần chưa biết trước?
3. Bài mới:
HOẠT ĐỘNG CỦA GV VÀ HS
NỘI DUNG
PP giải quyết vấn đề
Tình huống : Viết chương trình nhập Bài 1 : Viết chương trình nhập điểm của các bạn
điểm của các bạn trong lớp. Sau đó in trong lớp. Sau đó in ra màn hình số bạn đạt kết quả
ra màn hình số bạn đạt kết quả học học tập loại giỏi, khá, trung bình và kém (theo tiêu
tập loại giỏi, khá, trung bình và kém. chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt
1. Cách xếp loại kết quả học tập như loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0
thế nào ?
xếp loại kém).
2. Liệt kê các biến dự định sẽ sử dụng
trong chương trình ?

program Phanloai;
3. Tìm hiểu các câu lệnh được sử uses crt;
dụng trong phần thân chương trình ?
Var
4. Viết, dịch và chạy chương trình i, n, Gioi, Kha, Trungbinh, Kem: integer;
cho bài toán trên với số học sinh n = A: array[1..100] of real;
10.
Begin
* Xem lại các ví dụ 2 và ví dụ 3, bài clrscr;
9 về cách sử dụng và khai báo biến write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
mảng trong Pascal.
writeln(‘Nhap diem:’);
Học sinh nêu ý tưởng cho bài toán :
For i:=1 to n do Begin write(i,’. ‘); readln(a[i]);
End;
a  8.0 xếp loại Giỏi
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
6.5  a  7.9 xếp loại Khá
for i:=1 to n do
5.0  a  6.4 xếp loại Trung bình
begin
a  5.0 xếp loại Kém
if a[i]>=8.0 then Gioi:=Gioi+1;
* Liệt kê các biến dự định sẽ sử dụng
if a[i]<5 then Kem:=Kem+1;
trong chương trình :
if (a[i]<8.0) and (a[i]>=6.5) then
Biến i : thứ tự của học sinh
Kha:=Kha+1;
Biến n : Số học sinh trong lớp

if (a[i]>=5) and (a[i]<6.5) then
Biến Gioi, Kha, Trungbinh, Kem : là
Trungbinh:=trungbinh+1
số học sinh giỏi, khá, trung bình, kém
end;
của lớp.
writeln(‘Ket qua hoc tap:’);
Biến mảng a : để lưu điểm của các
writeln(Gioi,’ ban hoc gioi’);
học sinh.
writeln(Kha,’ ban hoc kha’);
- Tìm hiểu phần khai báo dưới đây và
writeln(Trungbinh,’ ban hoc trung binh’);
tìm hiểu tác dụng của từng biến:
writeln(Kem,’ ban hoc kem’);
program Phanloai;
readln
uses crt;

Giáo án Tin 8

Trang 56

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Var
i, n, Gioi, Kha, Trungbinh,

Kem: integer;
A: array[1..100] of real;

Trường THCS Lê Quý Đôn

End.

* Gõ phần khai báo trên vào máy tính
và lưu tệp với tên Phanloai. Tìm hiểu
các câu lệnh trong phần thân chương
trình.
Ngoài dùng vòng lặp For … do, ta
cần dùng câu lệnh điều kiện If…then
để so sánh tìm số học sinh giỏi, khá,
trung bình, kém.
PP hoạt động nhóm
Gõ tiếp phần chương trình này vào
máy tính sau phần khai báo. Dịch,
chạy chương trình.
Yêu cầu: Dịch và chạy chương trình
với số học sinh là 10, kiểm tra số học
sinh giỏi, khá, trung bình, yếu.
HS làm bài thực hành theo nhóm.
Các nhóm báo cáo kết quả.
Nhận xét kết quả bài toán.
4. Củng cố:
5. Dặn dò:
- Học bài theo sách giáo khoa và vở ghi
- Đọc trước bài học tiếp theo
* Rút kinh nghiệm:

...........................................................................................................................................
...........................................................................................................................................

Tuần: 30
Tiết: 58
BÀI TH7 : XỬ LÝ DÃY SỐ TRONG CHƯƠNG
Ngày soạn:…………….
TRÌNH (T2)
Ngày dạy:……………...
I. MỤC TIÊU:
1. Kiến thức:
* Đạt chuẩn :
 Khai báo và sử dụng các biến mảng.
 Hiểu và viết được chương trình làm việc với dãy số.
* Trên chuẩn :
 Viết hoàn chỉnh chương trình Pascal sử dụng câu lệnh về biến mảng cho bài toán.
2. Kỹ năng:
 Ôn luyện cách sử dụng câu lệnh lặp for…do.
Giáo án Tin 8

Trang 57

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

 Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.

3. Thái độ:
 Hs nghiêm túc trong học tập.
II. CHUẨN BỊ:
 GV: Chuẩn bị tốt giáo án, phòng máy.
 HS:
+ Sách vở, dụng cụ học tập.
+ Xem trước bài học.
* RÈN NĂNG LỰC: NL tự học, NL giải quyết vấn đề, NL giao tiếp, NL sáng tạo,
NL hợp tác, NL sử dụng ngôn ngữ.
III. TIẾN TRÌNH LÊN LỚP:
1. Ổn định lớp: Kiểm tra sĩ số.
2. Kiểm tra bài cũ:
3. Bài mới:
HOẠT ĐỘNG CỦA GV VÀ HS
NỘI DUNG
PP giải quyết vấn đề
Bài 2 : Bổ sung và chỉnh sửa chương trình trong
Tình huống: Nhập hai loại điểm Toán và bài 1 để nhập hai loại điểm Toán và Ngữ văn của
Ngữ văn của các bạn, sau đó in ra màn các bạn, sau đó in ra màn hình điểm trung bình của
hình điểm trung bình của mỗi bạn trong mỗi bạn trong lớp (theo công thức điểm trung bình
lớp.
= (điểm Toán + điểm Ngữ văn)/2), điểm trung bình
1. Cách tính điểm trung bình của 2 môn của cả lớp theo từng môn Toán và Ngữ văn.
Toán và Văn ?
2. Cần khai báo những biến gì cho bài Var i, n: integer;
toán ?
TbToan, TbVan: real;
3. Viết câu lệnh tính điểm trung bình của
DiemToan, DiemVan: array[1..100] of real;
mỗi bạn học sinh ?

4. Viết câu lệnh tính điểm trung bình của begin
cả lớp theo môn Toán và Văn?
writeln('Diem trung binh:');
* Học sinh nêu ý tưởng :
for i:=1 to n do
Tính điểm trung bình 2 môn Toán và
Văn như sau :
writeln(i,'. ',(DiemToan[i]+DiemVan[i])/2:3:1);
= (điểm Toán + điểm Ngữ văn)/2
TbToan:=0; TbVan:=0;
Phần khai báo:
Var i, n: integer;
for i:=1 to n do
TbToan, TbVan: real;
begin TbToan:=TbToan+DiemToan[i];
DiemToan, DiemVan: array[1..100] of
TbVan:=TbVan+DiemVan[i] end;
real;
Phần thân chương trình:
TbToan:=TbToan/n; TbVan:=TbVan/n;
begin
writeln('Diem trung binh mon Toan: ',TbToan:3:2);
writeln('Diem trung binh:');
for i:=1 to n do
writeln('Diem trung binh mon Van: ',TbVan:3:2);
writeln(i,'. ', (DiemToan[i]
end.
+DiemVan[i])/2:3:1);
TbToan:=0; TbVan:=0;
for i:=1 to n do


Giáo án Tin 8

Trang 58

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

begin TbToan:=TbToan+DiemToan[i];
TbVan:=TbVan+DiemVan[i] end;
TbToan:=TbToan/n; TbVan:=TbVan/n;
writeln('Diem trung binh mon Toan:',
TbToan:3:2);
writeln('Diem trung binh mon Van: ',
TbVan:3:2);
end.
PP hoạt động nhóm
Yêu cầu: Bổ sung các câu lệnh trên vào
vị trí thích hợp trong chương trình.
Thêm các lệnh cần thiết, dịch và chạy
chương trình với các số liệu thử.
HS làm bài thực hành theo nhóm.
Các nhóm báo cáo kết quả.
Nhận xét kết quả bài toán.
4. Củng cố:
- Cách sử dụng biến mảng

- Cách kết hợp với lệnh lặp for…do
5. Dặn dò:
- Học bài và ôn lại các kiến thức trọng tâm.
- Tìm hiểu thêm một số bài toán về biến mảng.
* Rút kinh nghiệm:
...........................................................................................................................................
...........................................................................................................................................
Tuần: 31
Tiết: 59
BÀI TH7 : XỬ LÝ DÃY SỐ TRONG CHƯƠNG
Ngày soạn:…………….
TRÌNH (T3)
Ngày dạy:……………...
I. MỤC TIÊU:
1. Kiến thức:
* Đạt chuẩn :
 Khai báo và sử dụng các biến mảng.
 Hiểu và viết được chương trình làm việc với dãy số.
* Trên chuẩn :
 Viết hoàn chỉnh chương trình Pascal sử dụng câu lệnh về biến mảng cho bài toán.
2. Kỹ năng:
 Ôn luyện cách sử dụng câu lệnh lặp for…do.
 Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.
3. Thái độ:
 Hs nghiêm túc trong học tập.
II. CHUẨN BỊ:

Giáo án Tin 8

Trang 59


Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

 GV: Chuẩn bị tốt giáo án, phòng máy.
 HS:
+ Sách vở, dụng cụ học tập.
+ Xem trước bài học.
* RÈN NĂNG LỰC: NL tự học, NL giải quyết vấn đề, NL giao tiếp, NL sáng tạo,
NL hợp tác, NL sử dụng ngôn ngữ.
III. TIẾN TRÌNH LÊN LỚP:
1. Ổn định lớp: Kiểm tra sĩ số.
2. Kiểm tra bài cũ: Trong quá trình thực hành
3. Bài mới:
HOẠT ĐỘNG CỦA GV VÀ HS
NỘI DUNG
PP giải quyết vấn đề :
Bài 3 : Viết chương trình nhập dãy n số và in ra
Tình huống : Viết chương trình nhập màn hình các số lẻ trong dãy số vừa nhập.
dãy n số và in ra màn hình các số lẻ a. Hướng dẫn:
trong dãy số vừa nhập.
Thực hiện kiểm tra số lẻ bằng câu lệnh:
1. Cách nhận biết số lẻ trong dãy n if a[i] mod 2 <>0 then write(a[i], ‘ ’);
số?
2. Cần khai báo những biến nào cho b. Chương trình:
Program sole;

bài toán trên ?
3. Viết câu lệnh kiểm tra số đó có uses crt;
var i,n:byte;
phải là số lẻ hay không ?
a:array[1..100] of integer;
4. Viết chương trình hoàn chỉnh cho
begin
bài toán ?
write('Nhap so phan tu cua day: ');readln(n);
GV gợi ý và hướng dẫn
for i:=1 to n do
* Học sinh nêu ý tưởng :
begin
Số lẻ là số không chia hết cho 2. (Có
write('a[',i,']='); readln(a[i]);
thể áp dụng để kiểm tra số chẵn trong
end;
dãy n số).
write(‘Cac so le trong day la: ’);
* Cần khai báo các biến :
for i:=1 to n do if a[i] mod 2 <>0 then
- Biến i để chỉ thứ tự các phần tử.
write(a[i], ‘ ’);
- Biến n cho biết số phần tử trong
readln;
dãy.
- Biến mảng a để nhập và xử lý đối end.
với dãy số.
* Thực hiện kiểm tra số lẻ bằng câu
lệnh:

if a[i] mod 2 <>0 then write(a[i]);
PP hoạt động nhóm
Yêu cầu : Viết chương trình, dịch và
chạy chương trình cho bài toán trên.
HS làm bài thực hành theo nhóm.
Các nhóm báo cáo kết quả.
Nhận xét kết quả bài toán.
4. Củng cố:
Giáo án Tin 8

Trang 60

Năm học 2017 – 2018


GV: Nguyễn Thị Phượng

Trường THCS Lê Quý Đôn

- Cách sử dụng biến mảng
- Cách kết hợp với lệnh lặp for…do
5. Dặn dò:
- Học bài và ôn lại các kiến thức trọng tâm.
- Tìm hiểu thêm một số bài toán về biến mảng.
* Rút kinh nghiệm:
...........................................................................................................................................
...........................................................................................................................................

Giáo án Tin 8


Trang 61

Năm học 2017 – 2018



×