IV/ Hoạt động dạy và học:
1/ Kiểm tra bài cũ:
?Việc gán gía trị, nhập giá trị và tính toán với các giá trị của một phần tử trong biến mảngđợc thực hiện nh thế nào?
(GV gọi HS trả lời, nhận xét và chấm điểm)
Đáp án: Việc gán giá trị, nhập giá trị và tính toán với các giá trị của một phần tử trong biến mảng đợc thực hiện thông qua chỉ số tơng ứng của phần tử đó.
Hoạt động của GV Hoạt động của HS Bài 1: Để chỉ ra một phần tử bất kỳ trong mảng, ta có thể ghi nh sau: A. Tên mảng[chỉ số trong mảng]; B. Tên mảng[giá trị phần tử đó]; C. Tên mảng(chỉ số trong mảng); B. Tên mảng(giá trị phần tử đó);
Bài 2: Để nhập dữ liệu từ bàn phím cho mảng A có
10 phần tử số nguyên ta dùng lệnh nào sau đây? A. For i:= 1 to 10 do Readln(A[i]);
B. For i:= 1 to 10 do Writeln(A[i]); C. Dùng 10 lệnh Readln(A[i]); D. Cả A, B, C đều sai
Hãy chọn phơng án đúng
GVTreo bảng phụ và gọi HS trả lời
Bài 3( bài tập 5 SGK): 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ố. Độ dài của dãy cũng đợc nhập từ bàn phím.
?Hãy khai báo biến mảng
? Để nhập các phần tử cho mảng ta sử dụng lệnh gì?
Bài 4: 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ố, in, 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.
? Hãy nêu cách làm
? Ta cần sử dụng bao nhiêu biến?
Đáp án: A Đáp án: A Program Nhapmang; var n, i: integer; A: array[1..100] of Real; Begin
Write(' Nhap so phan tu cua mang'); readln(n);
For i:= 1 to n do begin
Writeln(' Nhap gia tri', i,' cua mang A[i] ='); readln(A[i]); End; readln; End. HS nêu cách làm. Program Tongmang; var n, i: integer; A: array[1..100] of Real; T: real; Begin
Write(' Nhap so phan tu cua mang'); readln(n);
For i:= 1 to n do begin
? Sử dụng lệnh nào để in các phần tử của mảng? for i:= 1 to n do Writeln(A[i]);
? Để tính tổng các phần tử của mảng ta làm nh thế nào?
Writeln(' Nhap gia tri', i,' cua mang A[i] ='); readln(A[i]); End; For i:= 1 to n do begin Writeln(A[i]: 5); end; T:= 0; For i:= 1 to n do
begin T:= T+ A[i]; end; Writeln(' tong cac phan tu mang la:' T);
readln; End.