của các phần tử trong mảng. Bài tập về nhà:
Bài 1. Các lệnh khai báo biến mảng trong pascal sau đây đúng hay sai? hãy giải thích. A. a: array[1...100] of integer; B. b: array [1..n] of Real;
C. c: array[1:n] of Real; D. d: array[-7..7] of byte; E. x: array[100..1] of real; F. d: array[-1..10] of byte;
Bài 2: Viết chơng trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên đợc nhập vào từ bàn phím.
Tiết 60: Bài tập (tiếp)
Ngày soạn: 10/04/2009
I/ Mục tiêu:
* Kiến thức: - Ôn lại cách khai báo biến mảng, truy cập các phần tử của mảng.
- Vận dụng kiến thức trên làm một số bài tập.
* Kỹ năng: Thực hiện đợc các khai báo mảng, truy cập phần tử, sử dụng phần tử mảng trong biểu thức tính toán.
II/ Ph ơng pháp : Hớng dẫn, thảo luận.
III/ Chuẩn bị: Một số bài tập, bảng phụ.IV/ Hoạt động dạy và học: IV/ Hoạt động dạy và học:
Hoạt động của GV Hoạt động của HS
* Chữa bài tập về nhà
Bài 1. Các lệnh khai báo biến mảng trong pascal sau đây đúng hay sai? hãy giải thích.
A. a: array[1...100] of integer; B. b: array [1..n] of Real;
Bài 1:
A. sai, cần thay dấu ba chấm bằng dấunhai chấm.
B. Sai. Các chỉ số phải là các số cụ thể C. Sai. cần thay dấu hai chấm bằng dấu
C. c: array[1:n] of Real; D. d: array[-7..7] of byte;
E. x: array[100..1] of real; F. d: array(-1..10) of byte;
GV gọi HS lên bảng trình bày.
Bài 2: Viết chơng trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên đợc nhập vào từ bàn phím.
? Ta sử dụng bao nhiêu biến. ? hãy viết phần nhập mảng
? Tính tổng và tính trung bình
Bài3. Viết chơng trình nhập vào một mảng 10 số thực bất kỳ, báo ra màn hình tổng của các số âm trong mảng.
?Hãy nêu cách làm?
GV gọi HS lên bảng trình bày
Gọi HS khác nhận xét và chấm điểm cho HS.
chấm và chỉ số n cha xác định. D. đúng
E. sai. Chỉ số đầu không đợc lớn hơn chỉ số cuối.
F. Sai. Các chỉ số phải đặt trong dấu ngoặc vuông.
Bài 2:
Program Tinhtrungbinh; var i,n: integer;
T: Real;
A: array[1..100] of Real; Begin
Write(' Nhap do dai cua day:'); Readln(n); Writeln(' Nhap cac phan tu cua mang:'); for i: = 1 to n do
begin
Write(' a[',i,']='); Readln(a[i]); end; T:=0; For i:= 1 to n do begin T:= T+a[i]; end;
Writeln(' Trung binh cua cac phan tu la:', T/n);
Readln; End. Program Tongam; var i,n: integer; T: Real;
A: array[1..100] of Real; Begin
Write(' Nhap do dai cua day:'); Readln(n); Writeln(' Nhap cac phan tu cua mang:'); for i: = 1 to n do
begin
Write(' a[',i,']='); Readln(a[i]); end;
T:=0;
For i:= 1 to n do begin
if a[i]<0 then T:= T+a[i]; end;
Readln; End. Củng cố bài:
GV hớng dẫn HS ôn tập chuẩn bị kiểm tra thực hành 1 tiết. Bài tập ôn tập
Bài 1: Viết chơng trình nhập vào một mảng các số nguyên thực bất kỳ, báo ra màn hình các số dơng và chẵn trong mảng.
Bài 2:Viết chơng trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số, tính tổng của các phần tử. Độ dài của dãy cũng đợc nhập từ bàn phím. Bài 3: Viết chơng trình nhập vào từ bàn phím điểm trung bình (ĐTB) của10 học sinh, đếm và báo ra màn hình có bao nhiêu học sinh có điểm trung bình nhỏ hơn 5.
Tiết 61: Kiểm tra 1 tiết (Thực hành) I/ Mục tiêu:
Đánh giá kiến thức của học sinh về: * Kiến thức:
- Một số kiểu dữ liệu chuẩn. - Cách khai báo biến
- Câu lệnh vào ra đơn giản.
- Câu lệnh lặp với số lần biết trớc. - Kiểu dữ liệu mảng.
* Kỹ năng:
- Khai báo đúng biến.
- Sử dụng các câu lệnh vào ra câu lệnh lặp với số lần biết trớc. - Sử dụng thành thạo các thao tác: Lu, chạy chơng trình. II/ Chuẩn bị:
Giáo viên: Phòng máy, đề in ra giấy. III/ Đề ra:
Hãy khởi động chơng trình Turbo Pascal và thực hiện các yêu cầu sau:
Đề 1: Viết - chạy và sữa lỗi nếu có chơng trình: nhập vào từ bàn phím điểm trung bình (ĐTB) của10 học sinh, đếm và báo ra màn hình có bao nhiêu học sinh có điểm trung bình nhỏ hơn 5.
Lu vào máy tính với tên ĐTB.Pas
Đề 2: Viết - chạy và sữa lỗi nếu có chơng trình: Sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số, tính tổng của các phần tử. Độ dài của dãy cũng đợc nhập từ bàn phím.
Đề 3:Viết chơng trình nhập vào một mảng các số nguyên thực bất kỳ, báo ra màn hình các số dơng và chẵn trong mảng.