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

- Cho biết cách khai báo mảng trong Pascal?- Cho ví dụ?var : array[..] of ;3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số:3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số:Ví dụ 3: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất.Ví dụ 3: (SGK)Input, Ouput của bài toán? Input: Số nguyên N N số nguyên a1, a2, , an (n ≥ 1).Output: Số lớn nhất và nhỏ nhất trong dãy a1, a2, , an.Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất.Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.Input, Ouput của bài toán? Input: Số nguyên N N số nguyên a1, a2, , an (n ≥ 1).Output: Số lớn nhất trong dãy a1, a2, , an.3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số:Ví dụ 3: (SGK)Liệt kê các bướcBước 1: Nhập N và dãy a1, a2, , an.Bước 2: MAX ← a1, i ← 2.Bước 3: Nếu i > N thì đưa ra giá trị MAX rồi kết thúc thuật toán.Bước 4: Nếu ai > MAX, MAX ← ai. Bước 5: i ← i + 1. Quay lại bước 3. Thuật toán: Tìm giá trị lớn nhất.Liệt kê các bướcBước 1: Nhập N và dãy a1, a2, , an.Bước 2: MAX ← a1, i ← 2.Bước 3: Nếu i > N thì đưa ra giá trị MAX rồi kết thúc thuật toán.Bước 4: Nếu ai > MAX, MAX ← ai. Bước 5: i ← i + 1. Quay lại bước 3. Dãy số5447631568i23456789ai > MAXSaiSaiĐúngSaiSaiĐúngSaiSaiMAX555777151515Ví dụ:?Thuật toán: Tìm giá trị lớn nhất.Program P_Max;Uses Crt;Var 	i, n, Max: Integer;	A : array[1..100] of integer;Begin	ClrScr;	Write('Hay nhap do dai cua day so, N = '); Readln(n);	Writeln('Nhap cac phan tu cua day so: ');	for i := 1 to n do	begin	write('a[',i,'] = '); Readln(a[i]);	end;	Max := a[1];	for i := 2 to n do	if a[i] > Max then Max := a[i];	Writeln('So lon nhat la Max = ',Max);	ReadlnEnd.Program P_Min;Uses Crt;Var 	: Integer;	A : array[1..100] of integer;Begin	ClrScr;	Write('Hay nhap do dai cua day so, N = ');.;	Writeln('Nhap cac phan tu cua day so: ');	for i := 1 to n do	begin	.;..;	end;	;	for i := 2 to n do	if .......then ;	Writeln('So nho nhat la Min = ',);	ReadlnEnd.Min := a[1];a[i] < MinMin := a[i];Mini, n, Minwrite('a[',i,'] = '); Readln(a[i]);Readln(n)	Chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất. Hãy điền vào  để hoàn thành chương trình.BDA1. Các lệnh khai báo biến mảng trong Pascal sau đây đúng hay sai? Hãy giải thích.CA: array[1100] of integer;B: array[1..n] of real;C: array[1:n] of real;D: array(1..10) of byte;EX: array[100..1] of real;SaiSaiSaiSaiSai3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số:Ví dụ 3: (SGK)Ghi nhớ: (SGK)Hướng dẫn về nhà:Làm các bài tập: 2; 5 trang 79 SGK. Hoàn thành chương trình của ví dụ 3/78 SGK.Xem nội dung bài thực hành 7: “Xử lý dãy số trong chương trình”