Bài giảng Tin học 8 - Bài 9: Làm việc với dãy số

Nội dung text: Bài giảng Tin học 8 - Bài 9: Làm việc với dãy số

1. NỘI DUNG BÀI HỌC 1. Dãy số và biến mảng 2. Ví dụ về biến mảng 3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số
2. Bài 9: Lớp có 40 học sinh thì sao? Khai báo 40 biến: Var Diem_1, Diem_2, Diem_3, , Diem_40: Real; Sử dụng 40 câu lệnh nhập điểm: Readln(Diem_1); Readln(Diem_2); Readln(Diem_3); .; Readln(Diem_40); Sử dụng 40 câu lệnh điều kiện if then để in những học sinh đạt loại giỏi If diem_1>=8 then writeln(‘ Hs thu 1 dat loai gioi’); If diem_2>=8 then writeln(‘ Hs thu 2 dat loai gioi’); . If diem_40>=8 then writeln(‘ Hs thu 40 dat loai gioi’); Những hạn chế: - Phải khaiKhi báo viết quá chương nhiều biếntrình với bài toán cần - Chương trìnhnhập phải với viết lượng khá dàidữ liệu lớn thì có những hạn chế gì? - Dễ nhầm lẫn giữa các biến khi viết chương trình
3. Bài 9: 2. Ví dụ về biến mảng a.Cách khai báo biến mảng trong Pascal: Var : array [ ] of ; Tuoi 7 6 8 9 . 10 Tên mảng? Chỉ số 1 2 3 4 . 40 Số lượng? Var Tuoi : array [1 40] of integer; Kiểu dữ liệu? Chieuc 1.5 1.65 1.75 1.7 . 1.8 Chỉao số 1 2 3 4 . 20 Var chieucao: array[1 20] of real; - Khai báo mảng cần chỉ rõ: + Tên biến mảng. + Số lượng phần tử. + Kiểu dữ liệu chung của các phần tử.
4. Bài 9: 2. Ví dụ về biến mảng a) Cách khai báo biến mảng trong Pascal: Var : array [ ] of ; Ví dụ: Hãy khai báo các mảng sau: 1/ Khai báo mảng sĩ số gồm 30 phần tử? ? Tên biến mảng → siso ? Chỉ số đầu → 1 ? Chỉ số cuối →30 ? Kiểu dữ liệu →số nguyên (integer) Var siso:array[1 30] of integer;
5. Bài 9: BÀI TẬP Cách khai báo biến mảng sau đây đúng hay sai? Nếu sai giải thích tại sao? a) Var X: Array[10 , 13] of Real; a) Sửa dấu , thành dấu b) Var X: Array[3 4.8] of Integer; b) Chỉ số cuối phải là số nguyên c) Var X: Array[10 1] of Integer; c) Chỉ số cuối phải >= chỉ số đầu d) Var X: Array[4 10] of Real; d) Đúng
6. Bài 9: 2. Ví dụ về biến mảng b) Truy cập đến giá trị phần tử trong mảng: Cú pháp: Tên mảng [Chỉ số] Ví dụ1: Cho mảng A chứa các giá trị sau: 2 5 7 1 10 1 2 3 4 5 - Xác định các giá trị của: A[1], A[3], A[5], A[8] ? A[8]: không xác định (0) A[1]=2; A[3]=2; A[5]=7
7. Bài 9: 2. Ví dụ về biến mảng b) Truy cập đến giá trị phần tử trong mảng: Ví dụ: Gán giá trị cho 40 phần tử của mảng Diem Diem [1]:=5; Diem [2]:=7; Diem [40]:=10; Viết chương trình khá dài Hoặc Readln(Diem [1]); For i:=1 to 40 do Readln(Diem [i]); Readln(Diem [2]); Readln(Diem [40]); For i := to do Readln(Tenmang[i]);
8. Bài 9: 2. Ví dụ về biến mảng c. Nhập giá trị cho mảng: - Sử dụng lệnh Read (Readln) kết hợp với For do. For i:= to do readln(Tenmang[i]);
9. Bài 9: 2. Ví dụ về biến mảng d. In giá trị các phần tử của mảng: Sử dụng lệnh Write (Writeln) kết hợp với For do. For i:= to do Writeln(Tenmang[i]);
10. VD: Viết chương trình nhập điểm kiểm tra môn Tin của các học sinh trong một lớp. In ra những học sinh đạt điểm giỏi. Khai báo biến mảng diem Var diem:array[1 40] of real; i,n:integer; Begin Nhập số lượng hs Write(‘ Nhap so luong hs =‘); Readln(n); Nhập điểm từng hs trong lớp For i:=1 to n do BeginReadln(diem[i]); In ra những học sinh đạt điểm Writeln(‘ Nhung hoc sinh dat diem gioi :’); giỏi trong dãy Write(‘ Nhap diem cua hoc sinh thu ‘,i ,’=‘); For i:=1 to n do End;If diem[i] >=8.0 then writeln(‘Hs thu ‘,i,’ dat loai gioi’); Readln end.
11. Củng cố Bài 2: Cho dãy số nguyên có tối đa 100 phần tử. Hãy: a) Khai báo biến mảng của dãy số đó? b) In ra các phần tử có giá trị chẵn trong dãy? ? Tên biến mảng A Tên mảng [Chỉ số] ? Chỉ số đầu 1 ? Chỉ số cuối 100 ? Kiểu dữ liệu integer Điều kiện để kiểm tra 1 số n là số chẵn: N mod 2=0 Điều kiện để kiểm tra 1 phần tử trong mảng A là số chẵn A[i] mod 2 =0
12. - Học bài cũ - Tìm hiểu thuật toán tìm giá trị lớn nhất, nhỏ nhất của dãy số (xem lại ví dụ 6 trang 43 SGK) - Về nhà làm các bài tập 2, 4, 5 trang 79 SGK