Bài tập về kiểu mảng và kiểu chỉ số

Giáo viên:
Biện Thị Thúy Lan
Lớp 11A2, chào mừng quý thầy cô về dự giờ thao giảng.
Tiết 23: Bài Tập về kiểu mảng và biến có chỉ số
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Câu 1: Viết cấu trúc khai báo biến mảng một chiều và biến mảng hai chiều theo cách trực tiếp và gián tiếp?
Khai báo biến mảng 1 chiều:
A, Khai báo trực tiếp:
VAR : ARRAY[kiểu chỉ số] OF ;
B, Khai báo gián tiếp:
TYPE = ARRAY[kiểu chỉ số] OF ;
VAR :< tên kiểu mảng>;
Khai báo biến mảng 2 chiều:
A, Khai báo trực tiếp:
VAR : ARRAY[kiểu chỉ số hàng, kiểu chỉ số cột] OF ;
B, Khai báo gián tiếp:
TYPE = ARRAY[kiểu chỉ số hàng, kiểu chỉ số cột] OF ;
VAR :< tên kiểu mảng>;
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Câu 2:
Viết cú pháp tham chiếu đến các phần tử của mảng một chiều và mảng hai chiều?
Trả lời:
Tham chiếu đến các phần tử của mảng một chiều:
Tên biến mảng[chỉ số]
Tham chiếu đến các phần tử của mảng hai chiều:
Tên biến mảng[chỉ số hàng, chỉ số cột]
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Bài 1:
Viết chương trình nhập vào một mảng số nguyên có n phần tử (n<=250), tính tổng của mảng số nguyên vừa nhập vào.
* Xác định bài toán:
Input: Số nguyên dương n và dãy số A gồm n số nguyên.
Output: Tổng của mảng số nguyên A .
Ý tưởng???
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Chương trình
PROGRAM Tinh_tong;
Var A: Array[1..100] of integer;
S,i, n: integer;
BEGIN
Write(‘ nhap so phan tu cua mang’);
readln(n);
For i:=1 to n do
begin
writeln(‘ nhap phan tu thu i’);
readln(A[i]);
end;
S:=0;
For i:= 1 to n do
S:=S+A[i];

Writeln(‘ tong cua mang vua nhap la: ’, S:3);
Readln; END.

SC,SL: integer;
If (A[i] mod 2) =0 then
Writeln(‘ tong so chan la’, sc:3, ‘tong so le la:’, sl:3);
SC:=SC+A[i] else SL:=SL+A[i];
06/12/2008
Giáo viên: Biện Thị Thúy Lan
7
6
9
1
4
1
2
3
4
5
6
2
2
7
6
4
1
9
N=
Lượt1
Lượt 2
Lượt 3
Lượt 5
Lượt 4
Lượt 6
Lượt 7
1
2
4
3
6
5
Đ
S
Đ
Đ
Đ
Đ
Đ
S:=0;
A
2
9
15
24
25
29
7
29


Mô phỏng việc thực hiện thuật toán trong chương trình:
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Viết chương trình nhập vào một mảng số nguyên có n phần tử (n<=250), tính tổng các số chẳn và số lẽ của mảng vừa nhập vào?
Ý tưởng???

Mở rộng bài tập 1
* Xác định bài toán:
Input: Số nguyên dương n và dãy số A gồm n số nguyên.
Output: Tổng các số chẳn và tổng các số lẽ của mảng A .
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Bài 2
Viết chương trình nhập vào một mảng hai chiều có 5 hàng, 5 cột với các phần tử là số nguyên. Tìm phần tử lớn nhất trong mỗi hàng.
* Xác định bài toán:
Input: Mảng hai chiều A với các phần tử là số nguyên
Output: Phần tử lớn nhất trong mỗi hàng
Ý tưởng???
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Chương trình
PROGRAM bai2;
Var A: ARRAY[1..5,1..5] OF integer; i,j,max, tg :integer;
BEGIN
For i:=1 to 5 do begin
For j:=1 to 5 do read(A[i,j]);
Writeln;
End;
For i:=1 to 5 do
Begin Max:=A[i,1];
for j:=2 to 5 do if A[I,j] >max then max:=A[i,j];
writeln(‘gia tri lon nhat o hang’,i, ‘la:’,max:3);
End;
For i:=1 to 5 do Begin
For j:=1 to 5 do
write (A[I,j]: 3);
End;
Readln; END.
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Mô phỏng chương trình
6
4
9
8
5
max
7
31
17
18
6
3
4
max
max
9
max
9
7
17
31
max
18
A
06/12/2008
Giáo viên: Biện Thị Thúy Lan
Bài tập về nhà:
Bài 1: Hãy sửa lại chương trình của bài 2 khi thay yêu cầu tìm kiếm trong mỗi hàng bằng tìm kiếm trong mỗi cột?
Bài 2: Làm bài tập 5, 6, 7 sách giáo khoa trang 79 và đọc nội dung bài tập và thực hành số 3