- Việc gỏn giỏ trị, nhập giỏtrị và
HƯỚNG DẪN LÀM BÀI TẬP TRONG SGK Bài 1:
Bài 1:
Lợi ớch chớnh của việc sử dụng biến mảng là rỳt gọn việc viết chương trỡnh, cú thể sử dụng cõu lệnh lặp để thay nhiều cõu lệnh. Ngoài ra chỳng ta cũn cú thể lưu trữ và xử lớ nhiều dữ liệu cú nội dung liờn quan đến nhau một cỏch hiệu quả.
Bài 2:
Đỏp ỏn a) Sai. Phải thay dấu phẩy bằng hai dấu chấm; b) và c) Sai, vỡ giỏ trị nhỏ nhất và lớn nhất của chỉ số mảng phải là số nguyờn; d) Sai, vỡ giỏ trị đõu của chỉ số mảng phải nhỏ hơn hoặc bằng chỉ số cuối; e) Đỳng.
Bài 3: Đỳng
Bài 4: Khụng. Giỏ trị nhỏ nhất và lớn nhất của chỉ số mảng phải được xỏc định trong phần khai
bỏo chương trỡnh.
Bài 5: Chương trỡnh cú thể như sau: var N, i: integer;
A: array[1..100] of real;
begin
write('Nhap so phan tu cua mang, n= ',n);
for i:=1 to n do
write('Nhap gia tri ',i,'cua mang, a[',i,']= ');
end.
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRèNH
Ngày soạn: 19 – 26/4/2010 Ngày giảng: 20 – 27/4/2010
I. MỤC TIấU: 1. Kiến thức: 1. Kiến thức:
- Làm quen với việc khai bỏo và sử dụng cỏc biến mảng
2. Kỹ Năng:
- ễn luyện cỏch sử dụng cõu lệnh điều kiện If… then và 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.
- Hiểu và viết được chương trỡnh với thuật toỏn tỡm giỏ trị lớn nhất, nhỏ nhất của một dóy số, tớnh tổng dóy số.
3. Thỏi độ:
- Nghiờm tỳc trong giờ thực hành và sử dụng phũng mỏy.
II. PHƯƠNG PHÁP – PHƯƠNG TIỆN:
1. Giỏo viờn: Chuẩn bị giỏo ỏn, mỏy chiếu, bài tập, phũng mỏy 2. Học sinh: Kiến thức cũ, sỏch, vở. 2. Học sinh: Kiến thức cũ, sỏch, vở.
3. Phương phỏp: Thuyết trỡnh, nờu vấn đề, giảng giải, vấn đỏp.
III. TIẾN TRèNH DẠY HỌC: 1. Ổn định lớp học: 1. Ổn định lớp học:
- Kiểm tra sĩ số lớp học - Cho HS ngồi mỗi mỏy 2 em 2. Kiểm tra bài cũ:
Cõu 1: Hóy nờu cỏc lợi ớch của việc sử dụng biến mảng trong chương trỡnh? Cõu 2: Cỏch khai bỏo biến mảng trong Pascal được viết như thế nào?
C - BÀI MỚI (38’)
Hoạt động của GV Hoạt động của HS
Hoạt động 1: Cỏc kiến thức cần nhớ
- GV gọi HS nhắc lại cõu trỳc lệnh điều kiện? - Gv nhận xột
- Em hóy nhớ lại kiến thức cũ và cho biết cấu trỳc lệnh lặp với số lần biết trước?
- GV gọi 1 HS khỏc nhận xột - GV chốt ý
- Cỏch khai bỏo biến mảng kiểm số nguyờn trong Pascal cú dạng như thế nào?
- Tương tự cỏch khaibỏo biến mảng với kiểu số thực?
- HS nhắc lại cấu trỳc cõu lệnh điều kiện - HS lắng nghe và ghi vở
If <điều kiện> then <cõu lệnh>
- HS nhắc lại
- 1 HS khỏc nhận xột - HS tiếp thu và ghi vở
For <biến đếm> := <giỏ trị đầu> to <giỏ trị
cuối> do <cõu lệnh> - HS trả lời
- GV nhận xột, chốt ý - HS lắng nghe, tiếp thu và ghi vở
Var <tờn biến mảng>:array[<chỉ số
đầu>..<chỉ số cuối>] of <kiểu dữ liệu>
Hoạt động 2: Bài tập 1
- GV: Đưa ra bài tập 1 SGK
Bài 1. 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 (theo tiờu chuẩn từ 8.0 trở lờn đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khỏ, từ 5.0 đến 6.4 đạt trung bỡnh và dưới 5.0 xếp loại kộm).
- Gv gọi HS đọc đề và nghiờn cứu yờu cầu của đề bài
- GV:Gọi học sinh nờu ý tưởng - GV hướng dẫn
- GV cho HS làm cõu b
b) Liệt kờ cỏc biến dự định sẽ sử dụng trong chương trỡnh. Tỡm hiểu phần khai bỏo dưới đõy và tỡm hiểu tỏc dụng của từng biến:
program Phanloai; uses crt;
Var
i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
- GV cho HS thảo luận và trả lời cõu hỏi b - GV nhận xột, cho HS ghi vở
- GV yờu cầu HS gừ phần khai bỏo trờn vào mỏy tớnh của mỡnh.
- GV tiếp tục cho HS tỡm hiểu cỏc cõu lệnh trong phần thõn chương trỡnh dưới đõy:
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;
- HS đọc đề và nghiờn cứu bài tập - HS nờu ý tưởng để giải quyết vấn đề - HS theo dừi và tiếp thu
- HS thảo luận nhúm và trả lời cõu hỏi theo yờu cầu.
i: biến đếm
N: Biến lưu số HS
Gioi, Kha, Trungbinh, Kem: biến lưu số HS đạt loại Giỏi, Khỏ, Trung Bỡnh, Kộm tương ứng.
A: là một mảng số thực để lưu số điểm của HS
- HS tiếp thu và ghi bài vào vở - HS thực hiện yờu cầu.
- HS đọc, nghiờn cứu và tỡm hiểu tỏc dụng của từng cõu lệnh.
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’);
writeln(Trungbinh,’ ban hoc trung binh’); writeln(Kem,’ ban hoc kem’);
readln
End.
- GV cho HS hoạt động nhúm
- GV giải thớch ý nghĩa từng cõu lệnh cho HS - GV yờu cầu HS 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.
- HS hoạt động theo nhúm để tỡm cõu trả lời - HS chỳ ý, quan sỏt
- HS gừ tiếp phần thõn chương trỡnh vào mỏy.
Sau đú dịch và chạy chương trỡnh trờn mỏy
Hoạt động 2: Bài tập 2
- GV: Đưa ra bài tập 2 SG và yờu cầu HS đọc đề
Bài 2. Bổ sung và chỉnh sửa chương trỡnh
trong bài 1 để 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 (theo cụng thức điểm trung bỡnh = (điểm Toỏn + điểm Ngữ văn)/2), điểm trung bỡnh của cả lớp theo từng mụn Toỏn và Ngữ văn.
- GV gọi học sinh nờu ý tưởng - GV hướng dẫn HS làm bài tập
- GV yờu cầu H Stỡm hiều ý nghĩa từng cõu
lệnh trong phần khai bỏo và phần thõn chương trỡnh?
Var
i, n: integer;
- HS đọc đề và nghiờn cứu đề bài
- HS thảo luận và nờu ý tưởng - HS: Làm bài tập
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.
- GV yờu cầu HS bổ sung cỏc cõu lệnh trờn vào vị trớ thớch hợp trong chương trỡnh 1. 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ử
- GV quan sỏt HS thực hành
- HS đọc chương trỡnh và giải thớch ý nghĩa từng cõu lệnh.
- HS thực hiện yờu cầu
. 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
- GV nhận xột giờ thực hành, tuyờn dương khen thưởng những HS và nhúm thực hành tốt bằng cỏch cho điểm, đồng thời phờ bỡnh và kiểm điểm những HS chưa tốt.
5. Dặn dũ:
Tiết 65 - 66: BÀI TẬP
Ngày soạn: Ngày giảng:
I. MỤC TIấU: 1. Kiến thức: 1. Kiến thức:
- Viết chương trỡnh Pascal sử dụng cõu lệnh về biến mảng.
2. Kỹ Năng:
- Rốn luyện khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng và kết hợp cỏc cõu lệnh.