Thực hành Word

BAØI 11
BAØI CUÕ
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Ví dụ 3
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Chú ý
Phan Đình Trung – Nguyễn Thị Thu Hiền – Bùi Đức Hạnh – Nguyễn Thị Hoa
29/8/2008
BAØI 11
BAØI CUÕ
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Ví dụ 3
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Chú ý
Phan Đình Trung – Nguyễn Thị Thu Hiền – Bùi Đức Hạnh – Nguyễn Thị Hoa
29/8/2008
1. Kiểu mảng một chiều:
Bài toán: Nhập vào số cân nặng của các bạn
trong tổ em (7 bạn) và đưa ra màn hình số bạn

có cân nặng cao hơn trung bình của cả tổ.
-
Có bao nhiêu phần tử?
-
Kiểu dữ liệu của các phần tử trên?
7 phần tử
Real
BAØI 11
BAØI CUÕ
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Ví dụ 3
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Chú ý
Phan Đình Trung – Nguyễn Thị Thu Hiền – Bùi Đức Hạnh – Nguyễn Thị Hoa
29/8/2008
1. Kiểu mảng một chiều:
a. Khai báo:
Cách 1: Khai báo trực tiếp
Var <tên biến mảng>:array[kiểu chỉ số]of <kiểu phần tử>;
Cách 2: Khai báo gián tiếp
Type <tên kiểu mảng>=array[kiểu chỉ số]of <kiểu phần
tử>;
var <tên biến mảng>: tên kiểu mảng;
Giải thích: Kiểu chỉ số: Có dạng m..n

m: chỉ số đầu
n: chỉ số cuối (m<=n)
Kiểu phần tử: Là kiểu của các phần tử mảng.
Ví dụ 1: c: array[1..7]of real;
Ví dụ 2: type nang=array[1..7] of real;
Var c: nang;
BAØI 11
BAØI CUÕ
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Ví dụ 3
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Chú ý
Phan Đình Trung – Nguyễn Thị Thu Hiền – Bùi Đức Hạnh – Nguyễn Thị Hoa
29/8/2008
=
1. Kiểu mảng một chiều:
a. Khai báo:
Cách 1: Khai báo trực tiếp
Var <tên biến mảng>:array[kiểu chỉ số]of <kiểu phần tử>;
Cách 2: Khai báo gián tiếp
Type <tên kiểu mảng>=array[kiểu chỉ số]of <kiểu phần
tử>;
var <tên biến mảng>: tên kiểu mảng;
Cách tham chiếu: tên_mảng[chỉ_số]

Ví dụ: c[3] (cân nặng của bạn thứ 3)
40 43 47 42 50 40 4147
BAØI 11
BAØI CUÕ
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Ví dụ 3
a. Khai báo
b. Một số ví dụ
Ví dụ 1
Ví dụ 2
Chú ý
Phan Đình Trung – Nguyễn Thị Thu Hiền – Bùi Đức Hạnh – Nguyễn Thị Hoa
29/8/2008
Nhập vào số cân nặng của các bạn trong tổ
em và đưa ra màn hình số bạn có cân nặng
cao hơn trung bình của cả tổ.
Program can_nang;
Const max=255;
Var c:array[1..max]of real;
s,tb:real;
dem,n,i:integer;
Begin
write(‘Nhap so ban:’); readln(n);
For i:=1 to n do
begin
write(‘Nguoi thu ’,i,’ la: ‘);Readln(c[i]);
end;

Dem:=0;
S:=0;
For i:=1 to n do s:=s+c[i];
Tb:=s/n;
For i:=1 to n do
if c[i]>tb then dem:=dem+1;
Writeln(‘So ban co CN cao hon ‘,tb:8:3,’ la:’,dem);
Readln;
End.