Đang tải... (xem toàn văn)
Cú pháp thực hiện việc nhập nhiệt độ của 365 ngày quá dài Công thức tính nhiệt độ trung bình quá daøi Maát 365 caâu cuù phaùp If – then để thực hiện công việc đếm số lượng ngày trong 365[r]
* D÷ * D÷ BÀI TOÁN ĐẶT VẤN ĐỀ: Xét toán nhập vào nhiệt độ (trung bình) ban liên tiếp (từ thứ đến thứ tuần sau) Từ 9/12/2015 – 15/12/2015) Tp.Buôn Mê Thuột , tính đưa hình nhiệt độ trung bình tuần số lượng ngày tuần có nhiệt độ cao nhiệt độ trung bình tuần Hãy xác định Input Outputt1,t2,t3,t4,t5,t6,t7 liƯu nhËp vµo (INPUT): toán, viết chương trình Pascal tb, dem cần tính in (OUTPUT): Dửù báo nhiệt độ ngày (từ 9/12/2015 – 15/12/2015) Lưu ý: Chỉ xét nhiệt độ ban ngày không xét nhiệt độ ban đêm Dự kiến: + Nhiệt độ trung bình: 32,29 oC + Số ngày có nhiệt độ cao nhiệt độ trung bình: Khai báo biến nào? ýù nghóa biến? Cú pháp thực việc nhập nhiệt độ ngày? Công thức tính nhiệt độ trung Cú pháp xuấbình? t kết nhiệt độ trung bình ngày? Cú pháp thực công việc đếm số lượng ngày ngày có nhiệt độ cao nhiệt độ trung bình ? Cú pháp xuất kết đếm số ngày to lớn to trung bình ngày? Khai báo biến t1,t2,t3,…,t365 dài dòng Nếu nhập tính trung bình, đếm số lượng ngày 30 ngày (1 tháng) hay 365 ngày (1 năm) xảy vấn đề ? Cú pháp thực việc nhập nhiệt độ 365 ngày dài Công thức tính nhiệt độ trung bình dài Mất 365 câu cú pháp If – then để thực công việc đếm số lượng ngày 365 ngày có to cao to trung bình Dùng KIỂU MẢNG khắc phục khó khăn này! Nghiên cứu SGK, em cho biết MẢNG MỘT CHIỀU gì? + kiểu Mảng chiều dãy hữu hạn phần từ Ví dụ: Mảng nhiệt độ ngày A 17 20 18 25 19 19 12 19 Nghiên cứu SGK, em cho biết đặc điểm MẢNG MỘT CHIỀU ? Mảng chiều đặt tên phần tử có số Để mô tả mảng chiều cần xác định kiểu phần tử cách đánh số phần tử + A 17 20 18 25 19 12 19 Nghiên cứu SGK, em cho biết cách thức cho phép xác định MẢNG MỘT CHIỀU ? Cách thức cho phép xác định: •Tên kiểu mảng chiều; •Số lượng phần tử; •Kiểu liệu phần tử; •Cách khai báo biến mảng; •Cách tham chiếu đến phần tử; VÝ dơ: B 17 35 20 18 25 19 12 19 Trong : Tên mảng : B Số phần tử mảng: Kiểu liệu phần tử: Kiểu nguyên Nghieõn cửựu SGK, em cho biết cách khai báo biến MẢNG MỘT CHIỀU ? + Có cách khai báo trực tiếp vaứ giaựn tieỏp Khai báo mảng chiều PASCAL * Cách 1: Khai báo gián tiếp TYPE = array[ ] of ; Var : ; Trong : Chỉ số đầu, số cuối biểu thức nguyên; Chỉ số đầu số cuối; Giữa số dÊu VÝ dô: TYPE nhietdo = array[1 366] of real; Var A: nhietdo; * C¸ch 2: Khai b¸o trùc tiÕp Var : array[ ] of ; VÝ dơ: Var nhietdo : array[1 366] of real; Var A,B : array[1 100] of real; Cách tham chiếu tới phần tử mảng chiều? Xác định tên mảng với số, viết cặp dấu ngoặc [ ] + C¸c thao tác xử lí mảng chiều Nhập mảng chiều Ví dụ: Nhập nhiệt độ n ngày Nhietdo 17 C¸c thao t¸c 20 18 21 víi nn= Nhập số phần tử mảng (n) 19 17 19 ThĨ hiƯn b»ng pascal Write('Nhap vao so ngay:'); Readln(n); Nhập vào giá trị phần tư m¶ng (A[i]) For i:=1 to n Begin write('nhiet thu ',i,' la: '); readln(Nhietdo[i]); end; C¸c thao tác xử lí khác * Đếm phần tử mảng thoả mÃn điều kiện cho Ví dụ: Đếm số ngày có nhiệt độ cao dem :=0; nhiệt độ TB tuần For i :=1 to n IF Nhietdo[i]>TB then dem:=dem+1; i Nhietdo[ i] Dem= 17 20 18 21 19 17 19 + 1 + + + TB = 18.7 Khai báo biến t1,t2,t3,…,t365 dài dòng Vậy qua trình tìm hiểu lý thuyết thao tác Kiểu mảng ta khắc phục khó khăn ví dụ trước đó! Cú pháp thực việc nhập nhiệt độ 365 ngày dài Công thức tính nhiệt độ trung bình dài Mất 365 câu cú pháp If – then để thực công việc đếm số lượng ngày 365 ngày có to cao to trung bình Khai báo biến dài dòng! Cú pháp thực việc xuất thông báo nhập nhập nhiệt độ từ bàn phím nhiều ngày dài! Công thức tính nhiệt độ trung bình dài Quá nhiều câu lệnh If – then để thực việc đếm! Củng cố kiến thức học Câu hỏi 1: Khai báo trực tiếp biến mảng chiều? A Var :Array[kiểu phần tử] of ; B Var =Array[kiểu số] of ; C Var :Array[kiểu số] of ; D Var :Array[kiểu số] of ; Tiếc Bạn chọn sai Hoanq hơ …! Bạn chọn rồi !! Làm lại Đáp án Củng cố kiến thức học Câu hỏi 2: Cách khai báo biến mảng chiều hợp lệ: A Var nhietdo:Array[1…3] of integer; B Var A:Array[1 7] of integer; C Var chieucao=Array[1 80] of real; D Var B:Array[30] of integer; Tiếc Bạn chọn sai Hoanquá hô …! Bạn chọn rồi !! Làm lại Đáp án