Chuẩn bị: Một số bài tập, bảng phụ IV/ Hoạt động dạy và học:

Một phần của tài liệu Tiết 47 - Tin 8 (Trang 30 - 32)

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.

(adsbygoogle = window.adsbygoogle || []).push({});

Một phần của tài liệu Tiết 47 - Tin 8 (Trang 30 - 32)