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. 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 Quan sát và chọn khai khai báo đúng. Type A.Arrayr=array[1 200]of real; B.Arrayr=array[byte]of real; C.Arrayb=array[-100 0]of boolean; 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 Quan sát và chọn khai khai báo đúng. Type A.Arrayr=array[‘A’ ’Z’]of byte; B.Arrayr=array[A B]of char; C.Arrayb=array[1…100]of boolean;