Tìm giá trị lớn nhất và nhỏ nhất của dãy số.. Input Output Ví du 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ố lớn nhất.. Tìm giá trị lớn nhất và nhỏ nhất của d
Trang 1Giáo viên : Nguyễn Hữu Tài
BỘ MÔN TIN HỌC LỚP 8
Trang 21 7 5 9 10 4 6 20 8
1 7 5 9 10 4 6 20 8 9 12 30 45 60 75 4 23 35 40
8 6 23 4 2 15 9 65 34 9 43 60 75 80 83 9 43 55
60 5 45 4 23 4 45 6 23 43 54 60 12 84 45 37 8 5 34
11 6 7 21 25 55 65 7 89 18 30 25 43 80 54 65 34 54 67 29
10 34 56 97 76 68 34 45 45 56 56 98 67 29 89 56 56 83 87
60 56 91 87 56 78 67 23 45 34 56 65 23 12 1 34 34 35 60 34
1 7 5 9 10 4 6 20 8 9 12 30 45 60 75 4 23 35 40
8 6 23 4 2 15 9 65 34 9 43 60 75 80 83 9 43 55
60 5 45 4 23 4 45 6 23 43 54 60 12 84 45 37 8 5 34
11 6 7 21 25 55 65 7 89 18 30 25 43 80 54 65 34 54 67 29
Số lớn nhất bằng 20, nhỏ nhất bằng 1
Trang 33 Tìm giá trị lớn nhất và nhỏ nhất
của dãy số.
Input Output
Ví du 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ố lớn nhất N được nhập từ bàn phím.
N số nguyên nhập từ bàn phím.
Số lớn nhất trong N
số nguyên.
Trang 4nhất N được nhập từ bàn phím.
Thuật toán:
Bước 1 : MAX ← a1; i ← 1
Bước 2 : i ← i + 1
Bước 3 : Trong khi i<=N, Nếu
ai > MAX thì MAX ← ai quay lại bước 2
Bước 4 : Kết thúc thuật toán
Trang 53 5 6 4 9 7
Số này
lớn nhất
Số này mới lớn nhất Không! Số
này mới lớn nhất
Số này nhỏ
này nhỏ hơn
MAX
Mình tìm
ra số lớn nhất rồi
Số này lại lớn nhất
Trang 6nhất N được nhập từ bàn phím.
Thuật toán:
Bước 1 : MAX ← a1; i ← 1
Bước 2 : i ← i + 1
Bước 3 : Trong khi i<=N, Nếu
ai > MAX thì MAX ← ai quay lại bước 2
Bước 4 : Kết thúc thuật toán
Trang 73 Tìm giá trị lớn nhất và nhỏ nhất
của dãy số Ví du 3 nhập N số nguyên từ bàn : Viết chương trình
phím và in ra màn hình số lớn nhất N được nhập từ bàn phím.
Các bước thực hiện giải bài
toán
Bước 1 Khai báo biến.
-Biến N để lưu số lượng các số nguyên sẽ được nhập từ bàn phím.
- Biến i là biến đếm cho câu lệnh lặp
- Biến Max để lưu số lớn nhất.
- Biến mảng A để lưu các số nhập vào từ bàn phím
Program tim_max;
Var i, n, Max: integer ;
A: Array[1 100] of Integer ;
Trang 8nhất N được nhập từ bàn phím.
Các bước thực hiện giải bài
toán
Bước 2 Nhập độ dài dãy số (N).
Bước 1 Khai báo biến
Var i, n, Max: integer ;
A: Array[1 100] of Integer ;
Begin
write(‘ Nhap so phan tu cua day so: n= ’) ;
readln(n) ;
Bước 3 Nhập các phần tử vào dãy số.
For i := 1 to n do
Begin
write(‘ Nhap so thu’,i,‘=’) ; readln(A[i]);
End;
Bước 4 tìm số (phần tử) lớn nhất trong dãy số.
Max:=A[1];
For i := 2 to n do
If A[i]>Max Then Max := A[i];
Writeln(‘ So lon nhat la = ', Max) ;
Readln;
Trang 93 Tìm giá trị lớn nhất và nhỏ nhất
của dãy số.
? Dựa vào chương trình tìm số lớn nhất, em hãy xem và chỉnh sửa chương trình trên
để tìm giá trị nhỏ nhất của dãy số.
Program timmax;
Var i, n, Max: integer ;
A: Array[1 100] of Integer ;
Begin
write(‘ Nhap so phan tu cua day so: n= ’) ;
readln(n) ;
For i := 1 to n do
Begin
write(‘ Nhap so thu’,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 ) ;
Readln;
End.
Thảo luận
Min :
Min :=
<Min
tim_min ;
Min
‘ So nho nhat la =’,Min
Chạy thử chương trình
Trang 10NỘI DUNG CẦN GHI NHỚ
Nắm được thuật toán, viết chương trình tìm Max và tìm Min.
Nắm lại cách khai báo mảng thông qua hai chương trình trên.
Trang 11BÀI TẬP VỀ NHÀ
- Xem lại bài họ c hô m nay.
- Viết hoàn chỉnh chư ơ ng trình tìm Max và
tìm Min.
- Làm các bài tập trong SGK.