Bài 9. Làm việc với dãy số
Chia sẻ bởi Nguyễn Đình Huy |
Ngày 24/10/2018 |
47
Chia sẻ tài liệu: Bài 9. Làm việc với dãy số thuộc Tin học 8
Nội dung tài liệu:
- 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)
Bướ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ước
Bướ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.
Ví 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);
Readln
End.
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 = `,……);
Readln
End.
Min := a[1];
a[i] < Min
Min := a[i];
Min
i, n, Min
write(`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.
1. Các lệnh khai báo biến mảng trong Pascal sau đây đúng hay sai? Hãy giải thích.
A: array[1…100] of integer;
B: array[1..n] of real;
C: array[1:n] of real;
D: array(1..10) of byte;
X: array[100..1] of real;
3. 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”
- Cho ví dụ?
var
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)
Bướ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ước
Bướ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.
Ví 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);
Readln
End.
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 = `,……);
Readln
End.
Min := a[1];
a[i] < Min
Min := a[i];
Min
i, n, Min
write(`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.
1. Các lệnh khai báo biến mảng trong Pascal sau đây đúng hay sai? Hãy giải thích.
A: array[1…100] of integer;
B: array[1..n] of real;
C: array[1:n] of real;
D: array(1..10) of byte;
X: array[100..1] of real;
3. 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”
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Đình Huy
Dung lượng: |
Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)