Việc gán giá trị, nhập giá trị và tính toán với các giá trị của một phần tử trong biến mảng được.. thông qua thành phần nào.[r]
(1)(2)Giáo viên dạy:
BÙI QUANG HÀ Cử nhân tin học
Tel: 0905.807474
Tiết học giáo án điện tử MÔN TIN HỌC 8
Tuần 30 Tiết 57
(3)Bài LÀM VIỆC VỚI DÃY SỐ (TT)
I/ MỤC TIÊU
- Học sinh nắm cách khai báo mảng Pascal
- Học sinh làm quen mảng liệu số nguyên số thực
(4)III/ TIẾN TRÌNH BÀI DẠY
a) Kiểm tra cũ
(5)a) KIỂM TRA BÀI CŨ
1 Các Cách khai báo biến mảng sau
trong Pascal hay sai?
a Var x: Array[10,13] of Integer;
b Var x: Array[3.4 4.8] of Real;
c Var x: Array[10 1] of Integer;
d Var x: Array[4 10] of Integer;
(6)a) KIỂM TRA BÀI CŨ
• Em cho biết cách khai báo mảng Pascal?
a Var <Tên mảng>: Array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu liệu> ;
b Var <Tên mảng>: Array[<chỉ số cuối> <chỉ số đầu>] of <kiểu liệu> ;
c Var <Tên mảng>: Array[<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu> ;
(7)a) KIỂM TRA BÀI CŨ
2 Em cho biết cách khai báo biến
điểm kiểu mảng cho 50 học sinh
lớp?
a Var Diem_1,Diem_2,
Diem_3,…Diem_50: Real; b Var Diem: Array[1 50] of
Integer ;
c Var Diem: Array[1 50] of Real ;
(8)Bài LÀM VIỆC VỚI DÃY SỐ (TT) Ví dụ biến mảng(tt)
Ví dụ Mỗi học sinh có nhiều điểm theo mơn: điểm Tốn,
điểm Văn, điểm Lí,… Để xử lí đồng thời loại điểm ta khai báo nhiều biến mảng: Var DiemToan: Array[1 50] of real; Var DiemVan: Array[1 50] of real; Var
DiemLi: Array[1 50] of real;
(9)2 Ví dụ biến mảng(tt)
+ Các em trình bày theo cách sau:
+ Theo cách ta tính điểm trung bình cho học sinh hay lớp
Var DiemToan,DiemVan, DiemLi: Array[1 50] of
real;
(10)2 Ví dụ biến mảng(tt)
Khi mảng
khai báo làm việc với phần tử nó:
Gán giá trị cho
phần tử mảng câu lệnh:
Nhập liệu từ bàn
phím câu lệnh lặp:
A[1]:=5; A[2]:=8;
DiemLi[1]:=8; DiemVan[1]:=7; DiemToan[1]:=9
For i:=1 to readln(a[i]); For i:=1 to 50
(11)Việc gán giá trị, nhập giá trị tính tốn với giá trị phần tử biến mảng
thông qua thành phần nào?
GHI NHỚ 2.
Việc gán giá trị, nhập giá trị tính tốn với các giá trị phần tử biến
mảng thông qua số tương ứng của phần tử đó.
(12)3 Tìm giá trị lớn nhỏ dãy số Ví dụ Viết chương trình nhập N số nguyên từ
bàn phím in hình số nhỏ số lớn N nhập từ bàn phím
* Cơng việc:
+ Xác định toán
(13)XÁC ĐỊNH BÀI TOÁN
- INPUT: N số nguyên (n1, n2, n3, …nn)
- OUTPUT: Giá trị max:= max{n1, n2, n3, …nn}
(14)XÂY DỰNG THUẬT TỐN * Thuật tốn tìm giá trị lớn cho n
số
Bước max←a1; i←1
Bước i←i +
Bước Nếu > n, chuyển đến
bước
Bước >max, max←ai quay
lại bước
Bước In kết tìm hình
Bước kết thúc thuật tốn
* Thuật tốn tìm giá trị lớn nhỏ cho N số
Bước max←a1; min←a1;
i←1
Bước2 i ←i +
Bước Nếu i > n, chuyển đến bước
Bước Nếu ai>max, max←ai
Bước Nếu <min, min←ai
quay lại bước
Bước In kết tìm hình
(15)VIẾT CHƯƠNG TRÌNH * Phần khai báo
Program maxmin; Uses crt;
(16)VIẾT CHƯƠNG TRÌNH * Phần thân chương trình
begin clrscr;
Write(‘Hay nhap dai cua day so n= ’); readln(n); Writeln(‘Nhap cac phan tu cua day so’);
{*Nhập liệu cho mảng*}
for i:=1 to n Begin
(17)VIẾT CHƯƠNG TRÌNH
{*Tìm giá trị lớn nhỏ mảng*}
max:=a[1]; mix:=a[1]; for i:=2 to n
begin
(18)VIẾT CHƯƠNG TRÌNH {*In kết hình*}
writeln(‘So lon nhat la max= ’,max); writeln(‘So lon nhat la max= ’,max); readln
(19)c) CỦNG CỐ VÀ LUYỆN TẬP (6 phút)
Bài tập Câu lệnh khai báo biến mảng sau máy tính có thực khơng?, sao? Var N: integer;
A: array[1 N] of real;
Đáp án ĐÁP ÁN:
Máy tính khơng thực
Vì số cuối chưa có giá trị cụ thể, số lượng phần tử = <chỉ số đầu > - <chỉ số cuối>
(20)d) HƯỚNG DẪN HỌC SINH TỰ HỌC Ở NHÀ(1 phút)
(21)