Bài tập: Mảng 2 chiều

Kiểm tra bài cũ Câu hỏi: Trình bày cú pháp khai báo mảng 2 chiều?. Khai báo một mảng 2 chiều gồm tối đa 10 hàng, 10 cột phần tử có kiểu dữ liệu là kiểu nguyên.. Nội dung bài mới Hoạt độn

Ngày soạn: 27/12/2009

Ngày giảng: 29/12/2009

Tiết theo PPCT: 20

BÀI TẬP

I - Mục tiêu bài học

1 Kiến thức

- Củng cố kiến thức bài Mảng một chiều

2 Kỹ năng

- Học sinh biết vận dụng lí thuyết vào bài tập cụ thế

III - Tiến trình bài học

1 Ổn định tổ chức lớp

- Lớp:

- Sĩ số:

- Lí do vắng:

2 Kiểm tra bài cũ

Câu hỏi:

Trình bày cú pháp khai báo mảng 2 chiều? Cách tham chiếu đến các phần tử mảng 2 chiều?

Khai báo một mảng 2 chiều gồm tối đa 10 hàng, 10 cột phần tử có kiểu dữ liệu là kiểu nguyên

3 Nội dung bài mới

Hoạt động của giáo viên và học sinh Nội dung

Bài tập1: Nhập vào một ma trận gồm na

hàng, m cột Đưa ma trận vừa nhập ra

màn hình Đếm xem trong mảng vừa

nhập có bao nhiêu số chẵn, Tính tổng các

số chẵn đó.

Gợiý:

- Các biến cần khai báo

- Nhập vào 1 mảng

- khởi tạo đếm và tổng

- Duyệt qua từng phần tử mảng, kiểm tra

nếu nó là số chẵn thì đếm và cộng vào tổng

ban đầu đã khởi tạo

Program bt1;

Uses crt;

Var a : array[1 20] of integer;

i,n,dem,t:integer;

begin write(‘nhap n = ‘); readln(n);

for i:= 1 to n do begin

Bài tập 2: Nhập vào một mảng số nguyên,

đưa mảng vừa nhập ra màn hình Nhập

một số nguyên x từ bàn phím, đếm xem

trong mảng vừa nhập có bao nhiêu số

bằng x.

Gợiý:

- Các biến cần khai báo

- Nhập vào 1 mảng

- Đưa mảng vừa nhập ra màn hình

- Nhập số nguyên x

- Khởi tạo biến đếm

- Kiểm tra số tham chiếu đến có bằng x

không? Nếu bằng thì đếm

write(‘a[‘,i,’]’);

readln(a[i]);

end;

dem:=0; t:=0;

for i:=1 to n do

if (a[i] mod 2 = 0 ) then begin

dem:=dem + 1;

t:= t + a[i];

end;

writeln(‘so chan trong mang la:’, dem); writeln(‘tong so chan la:’, t);

readln end

Program bt1;

Uses crt;

Var a : array[1 20] of integer;

i,n,dem,x:integer;

begin write(‘nhap n = ‘); readln(n);

for i:= 1 to n do begin

write(‘a[‘,i,’]’);

readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i] = x then dem:=dem + 1;

writeln(‘so bang’,x,’ trong mang la:’, dem);

readln end

IV - Củng cố

- Cách khai báo và tham chiếu đến các phần tử mảng 1 chiều

- Bài tập: Nhập vào một mảng số nguyên, sắp xếp mảng theo chiều tăng dần, đưa mảng vừa sắp xếp ra màn hình Đếm xem trong mảng có bao nhiêu số lẻ, tính tổng các

số lẻ