Bài 11. Kiểu mảng
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Lê Hữu Phước
Ngày gửi: 20h:37' 20-11-2008
Dung lượng: 175.5 KB
Số lượt tải: 26
Nguồn:
Người gửi: Lê Hữu Phước
Ngày gửi: 20h:37' 20-11-2008
Dung lượng: 175.5 KB
Số lượt tải: 26
Số lượt thích:
0 người
KIỂU MẢNG
BÀI 11
I/KIỂU MẢNG MỘT CHIỀU
Định Nghĩa
Dãy hữu hạn các phần tử cùng kiểu
Mỗi phần tử có một chỉ số
Cách thức xác định:
Tên mảng
Số lượng phần tử
Kiểu dữ liệu của PT
Cách khai báo
Cách tham chiếu
Cách khai báo:
Trực tiếp: var:array [kiểu chỉ số] of ;
Td: var A : array[1..5] of integer;
Gián tiếp: type= array[kiểu chỉ số] of
Var:;
Td : type Mang1 = array[1..5] of integer;
Var A : Ma ng1;
Môt số ví dụ:
Nhập và xuất một mảng gồm n phần tử:
Cách khai báo trực tiếp
program Mang5;
uses crt;
const N = 5;
var Mang: array[1..N] of integer;
i:integer;
begin
clrscr;
for i:=1 to N do
begin
write(`Nhap phan tu thu `,i,` = `);
readln(Mang[i]);
end;
write(`Cac phan tu trong mang: `);
for i:=1 to N do
write(Mang[i]:3);
readln
end.
Cách khai báo gián tiếp
program Mang5;
uses crt;
const N = 5;
type Mang1 = array [1..N] of integer
var Mang: Mang1;
i:integer;
begin
clrscr;
for i:=1 to N do
begin
write(`Nhap phan tu thu `,i,` = `);
readln(Mang[i]);
end;
write(`Cac phan tu trong mang: `);
for i:=1 to N do
write(Mang[i]:3);
readln
end.
II/KIỂU MẢNG HAI CHIỀU
Mỗi phần tử có một chỉ số
Bảng các phần tử cùng kiểu
Cách thức xác định:
Tên
Số lương phần tử
Kiểu dữ liệu
Cách khai báo
Cách tham chiếu
Khai báo:
Trực tiếp:
Var: array [,] of ;
Td: var A: array[1..3,1..4]of integer;
Gián tiếp:
type=array [,] of kiểu phần tử;
var: ;
td: type Bang1 = array[1..3,1..4] of integer
var A : Bang1;
Một số ví dụ:
Đưa ra màn hình bảng nhân
Cách khai báo trực tiếp:
program BangNhanA;
uses crt;
const N = 4;
M = 5;
var B : array[1..N,1..M] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to N do
for j:=1 to M do
B[i,j] := i*j;
writeln(`Bang Nhan : `);
for i:=1 to N do
begin
for j:=1 to M do
write(B[i,j]:3);
writeln;
end;
readln
end.
Cách khai báo gián tiếp
program BangNhanB;
uses crt;
const N = 4;
M = 5;
type BangNhan = array[1..N,1..M] of integer;
var B: BangNhan;
i,j:integer;
begin
clrscr;
for i:=1 to N do
for j:=1 to M do
B[i,j] := i*j;
writeln(`Bang Nhan : `);
for i:=1 to N do
begin
write(B[i,j]:3);
for j:=1 to M do
writeln;
end;
readln
end.
Bài tập ôn :
Nhập và xuất mảng B gồm 7số
BÀI 11
I/KIỂU MẢNG MỘT CHIỀU
Định Nghĩa
Dãy hữu hạn các phần tử cùng kiểu
Mỗi phần tử có một chỉ số
Cách thức xác định:
Tên mảng
Số lượng phần tử
Kiểu dữ liệu của PT
Cách khai báo
Cách tham chiếu
Cách khai báo:
Trực tiếp: var
Td: var A : array[1..5] of integer;
Gián tiếp: type
Var
Td : type Mang1 = array[1..5] of integer;
Var A : Ma ng1;
Môt số ví dụ:
Nhập và xuất một mảng gồm n phần tử:
Cách khai báo trực tiếp
program Mang5;
uses crt;
const N = 5;
var Mang: array[1..N] of integer;
i:integer;
begin
clrscr;
for i:=1 to N do
begin
write(`Nhap phan tu thu `,i,` = `);
readln(Mang[i]);
end;
write(`Cac phan tu trong mang: `);
for i:=1 to N do
write(Mang[i]:3);
readln
end.
Cách khai báo gián tiếp
program Mang5;
uses crt;
const N = 5;
type Mang1 = array [1..N] of integer
var Mang: Mang1;
i:integer;
begin
clrscr;
for i:=1 to N do
begin
write(`Nhap phan tu thu `,i,` = `);
readln(Mang[i]);
end;
write(`Cac phan tu trong mang: `);
for i:=1 to N do
write(Mang[i]:3);
readln
end.
II/KIỂU MẢNG HAI CHIỀU
Mỗi phần tử có một chỉ số
Bảng các phần tử cùng kiểu
Cách thức xác định:
Tên
Số lương phần tử
Kiểu dữ liệu
Cách khai báo
Cách tham chiếu
Khai báo:
Trực tiếp:
Var
Td: var A: array[1..3,1..4]of integer;
Gián tiếp:
type
var
td: type Bang1 = array[1..3,1..4] of integer
var A : Bang1;
Một số ví dụ:
Đưa ra màn hình bảng nhân
Cách khai báo trực tiếp:
program BangNhanA;
uses crt;
const N = 4;
M = 5;
var B : array[1..N,1..M] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to N do
for j:=1 to M do
B[i,j] := i*j;
writeln(`Bang Nhan : `);
for i:=1 to N do
begin
for j:=1 to M do
write(B[i,j]:3);
writeln;
end;
readln
end.
Cách khai báo gián tiếp
program BangNhanB;
uses crt;
const N = 4;
M = 5;
type BangNhan = array[1..N,1..M] of integer;
var B: BangNhan;
i,j:integer;
begin
clrscr;
for i:=1 to N do
for j:=1 to M do
B[i,j] := i*j;
writeln(`Bang Nhan : `);
for i:=1 to N do
begin
write(B[i,j]:3);
for j:=1 to M do
writeln;
end;
readln
end.
Bài tập ôn :
Nhập và xuất mảng B gồm 7số
↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng ZIP và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT ↓
Các ý kiến mới nhất