tiet 56: lam viec voi day so (cuc hay)

Kiểm tra cũ Em viết cấu trúc câu lệnh khai báo biến mảng cho biết lợi ích việc sử dụng biến mảng? Ví dụ biến mảng: Ví dụ 2: Tiếp tục với ví dụ giả sử cần nhập điểm kiểm tra môn tin học lớp gồm 40 học sinh! Var Diem1, Diem2, Diem3, …, Diem40: Real; … Readln(Diem1); Readln(Diem2); … ; Readln(Diem40); Khi sử dụng biến mảng nhập liệu cho biến nào? Var Diem: array[1 40] of Real; … For i:= to 40 Readln(Diem[i]) ; Em viết câu lệnh: Nếu điểm Khi sử dụng8biếnlên in kiểm tra từ trở mảng hình “giỏi” cáchdụng báo câu lệnh sử khai biến thôngnào? thường ? IF Diem1 >= then writeln(‘ gioi ’) ; IF Diem2 >= then writeln(‘ gioi ’) ; …… IF Diem40 >= then writeln(‘ gioi ’) ; For i: =1 to 40 If Diem[i] >=8 then Writeln(‘ gioi ‘) ; Sử dụng biến mảng hiệu việc sử lý liệu Ví dụ 3: Viết chương trình nhập điểm kiểm tra mơn tốn, lý, văn sau tính điểm trung bình môn DiemToan … … … … Var DiemToan, DiemVan, DiemLi,6 DiemTB: array[1 40] of real; DiemVan … … … … … … … … … Diemtoan For i:= to 40 … … … 40 số DiemTB[i]:=(DiemToan[i]+DiemVan[i]+DiemLi[i])/3; Ta đọc giá trị, tính tốn giá trị gán giá trị cho biến mảng giống biến thơng thường 3 Tìm giá trị lớn nhỏ dãy số Bài toán: Viết chương trình nhập N số ngun từ bàn phím in hình số nhỏ số lớn Input:: Dãy số A gồm N số Output: Max, Min dãy số Hãy nêu ý tưởng tìm số lớn nhỏ dãy số * ý tưởng tìm max: - Đặt giá trị Max = a1 - Lần lượt cho i chạy từ đến N, so sánh giá trị với giá trị Max, > Max Max nhận giá trị * Đoạn chương trình Max:=A[1]; For i:=2 to N IF (A[i] > Max) Then Max:=A[i]; thuËt to¸n tìm max Số lớn Ha ha! Số nµy lín nhÊt MAX å! Sèra sè Tìm lớn Hi hi! Program vd1; Uses crt; Var i, n, Max, Min: integer ; A: Array[1 100] of Integer ; BEGIN END Clrscr; write(‘ Nhap so phan tu cua day so: n= ’) ; readln(n) ; For i := to n Begin write(‘ Nhap so thu ‘,i,’ : ‘) ; readln(A[i]) ; End; Max:=A[1]; For i := to n If A[i]>Max Then Max := A[i]; Writeln(‘ So lon nhat la max = ', Max) ; Min:=A[1]; For i := to n If A[i]