Bộ Giáo dục và Đào tạo - Dự án Phát triển Giáo dục THPT
Trang bìa
Trang bìa:
Sở giáo dục và đào tạo tỉnh Quảng Bình Trường phổ thông cấp 2-3 Việt Trung SỞ GIÁO DỤC VÀ ĐÀO TẠO QUẢNG BÌNH TRƯỜNG PHỔ THÔNG CẤP 2-3 VIỆT TRUNG TRƯỜNG TRUNG HỌC PHỔ THÔNG ĐỒNG HỚI Bài 12: MẢNG MỘT CHIỀU Thực hiện: TỪ CÔNG ĐỨC HẠNH - TRẦN LAM SƠN Bài toán
Nội dung:
NhËp vµo nhiÖt ®é (trung b×nh) cña mçi ngµy trong tuÇn. TÝnh vµ ®­a ra mµn h×nh: -NhiÖt ®é trung b×nh cña tuÇn -Sè l­îng ngµy cã nhiÖt ®é TB cao h¬n nhiÖt trung b×nh trong tuÇn? BÀI TOÁN Yêu cầu:
H·y x¸c ®Þnh: - Input, - Output - ViÕt ch­¬ng tr×nh gi¶i bµi to¸n trªn ? Từ yêu cầu bài toán ta có * D÷ liÖu nhËp vµo (INPUT): t1,t2,t3,t4,t5,t6,t7. * D÷ cÇn tÝnh vµ in ra (OUTPUT): tb, dem. Chương trình:
Nhận xét:
Quan s¸t ch­¬ng tr×nh, h·y cho biÕt nÕu muèn tÝnh nhiÖt ®é trung b×nh cña N ngµy trong n¨m (VD: N=365) th× sÏ gÆp khã kh¨n g× ? - Cần 365 biến để lưu giá trị nhiệt độ - Cần 365 dòng lệnh IF để so sánh nhiệt độ trong năm với nhiệt độ trung bình Mảng một chiều
Khái niệm: 1. Khái niệm
Mảng một chiều là tập hợp hữu hạn các phần tử cùng kiểu Ví dụ Trong đó Tên mảng là: A Mảng có 7 phần tử Kiểu các phần tử là kiều: Integer Khi tham chiếu đến các phần tử thứ i ta viết A[i] Ví dụ: A[5] = 19 Khai báo: 2. Khai báo mảng một chiều trong Pascal
a. Khai báo gián tiếp TYPE = array[..] of ; Var : ; Trong ®ã :  ChØ sè ®Çu, chØ sè cuèi th­êng lµ c¸c h»ng hoÆc biÓu thøc nguyªn;  ChØ sè ®Çu .. chØ sè cuèi;  Gi÷a 2 chØ sè lµ dÊu .. VÝ dô: - TYPE nhietdo = array[1..365] of integer; - Var A: nhietdo; b. Khai báo trực tiếp Var : array[..] of ; VÝ dô: - Var nhietdo : array[1..365] of integer; - Var A,B : array[1..100] of real; Thao tác cơ bản
Nhập mảng: Các thao tác xử lý trong mảng một chiều
a. NhËp m¶ng mét chiÒu VÝ dô: NhËp nhiÖt ®é n ngµy. Thể hiện bằng lới - Nhập số phần từ cho mảng (n) - Nhập giá trị cho từng phần tử của mảng Thể hiện bằng Pascal Write(‘ Nhap vao so ngay:’); Readln(n); For i:=1 to n do Begin write(‘nhiet do ngay thu’ ,i, ’ : ’); readln(A[i]); end; In mảng:
B. In mảng một chiều Ví dụ: In mảng vừa nhập Thực hiện bằng lời - Đưa ra màn hình dòng thông báo: Mang vua nhap la: - In giá trị của mảng ra màn hình. Thực hiện bằng Pascal - Write(`Mang vua nhap la: ); - For i:= 1 to N do Write(A[i]; Đếm phần tử: Thao tác cơ bản
C. ĐẾM SỐ PHẦN TỬ Ví dụ Đếm số ngày có nhiệt độ lớn hơn nhiệt độ trung bình trong tuần Thực hiện bằng Pascal như sau: Dem:=0; For i:= 1 to N do If A[i] > tb then Dem:=Dem + 1; Chương trình: Đếm phần tử
Minh hoạ: Đếm phần tử
CHƯƠNG TRINH CHẠY VÀ CHO KẾT QUẢ NHƯ SAU Tính tổng: Thao tác cơ bản
D. TÍNH TỔNG Tính tổng các phần tử thoả mản điều kiện Ví dụ: Tính tổng các phần tử trong mảng chia hết cho 2 Thực hiện bởi Pascal S:=0; For i:= 1 to N do If A[i] mod 2 = 0 then S:= S + 1; Củng cố
Câu 1: Chọn câu đúng
Mảng là?
A.Tập hợp các phần tử khác kiểu dữ liệu
B.Tập hợp các phần tử hữu hạn khác kiểu dữ liệu
C.Là tập hợp các phần tử vô hạn cùng kiểu dữ liệu
D.Là một dãy hữu hạn các phần tử cùng kiểu
Câu 2: Chọn các câu đúng
Mảng được khai báo.
A.Type =Array[chỉ số đầu...Chỉ số cuối] Of kiểu phần tử; Var :;
B.Var :Array[Chỉ số đầu..Chỉ số cuối] Of ;
C.Type =Array[chỉ số đầu..Chỉ số cuối] Of ; Var :;
D.Var := Array{Chỉ số đầu..Chỉ số cuối} Of
Nội dung chính: