Bài 9. Làm việc với dãy số

Gốc > THCS (Chương trình cũ) > Tin học > Tin học 8 >

0 / 0

Tham khảo cùng nội dung: Bài giảng, Giáo án, E-learning, Bài mẫu, Sách giáo khoa, ...

Nhấn vào đây để tải về
Báo tài liệu có sai sót
Nhắn tin cho tác giả

(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Trần Minh Thọ (trang riêng)
Ngày gửi: 20h:35' 30-03-2023
Dung lượng: 555.9 KB
Số lượt tải: 256

Số lượt thích: 0 người

Tin Học 8

Bài 9:
Cách khai báo mảng trong Pascal:
Tênmảng: array [..] of ;

Ví dụ: Cách khai báo đơn giản một biến mảng trong
ngôn ngữ Pascal như sau:
var Tuoi: array[21..80] of integer;
Tên biến

Số lượng phần tử

Kiểu dữ liệu chung

var Chieucao: array[1..50] of real;
Chỉ số đầu

Chỉ số cuối

TRÒ CHƠI TÌM SỐ LỚN NHẤT, NHỎ NHẤT CỦA DÃY SỐ
1. Tìm số lớn nhất

234 244 534 374 464 633
596 455 678 599 654 432
Đáp án:

678

TRÒ CHƠI TÌM SỐ LỚN NHẤT, NHỎ NHẤT CỦA DÃY SỐ
2. Tìm số nhỏ nhất

455 244 534 374 233 145
596 135 678 122 126 432
Đáp án:

122

TRÒ CHƠI TÌM SỐ LỚN NHẤT, NHỎ NHẤT CỦA DÃY SỐ
3. Tìm số lớn nhất và số nhỏ nhất (1)

455 244 534 374 233 145
789 135 678 238 126 432
Đáp án: 789 126

TRÒ CHƠI TÌM SỐ LỚN NHẤT, NHỎ NHẤT CỦA DÃY SỐ
3. Tìm số lớn nhất và số nhỏ nhất (2)

321 244 686 146 113 145
789 120 878 238 126 432
Đáp án: 878 113

Bài 9:
3. Tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số:

•
•
•
•

Bài toán: Viết chương trình nhập dãy số gồm
N số nguyên và in ra màn hình số nhỏ nhất
và số lớn nhất.
Em hãy nêu
THUẬT TOÁN
thuật toán để tìm
B1: max:=a1; min:=a1; i:=1;
số nhỏ nhất và
số lớn nhất trong
B2: i:= i+1;
dãy số?
B3: Nếu i > n, chuyển đến bước 5.
B4: Nếu ai > max thì max:=ai; ai < min
thì min :=ai. Quay lai bước 2.

• B5: Kết thúc thuật toán.

Bài 9:
3. Tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số:
Bài toán: Viết chương trình nhập dãy số gồm
N số nguyên và in ra màn hình số nhỏ nhất
và số lớn nhất.
THUẬT TOÁN đơn giản
B1: max:=a1; min:=a1;
B2: cho i chạy từ 2 đến N,
Nếu ai > max thì max:=ai;
Nếu ai < min thì min :=ai.
B5: Kết thúc thuật toán.

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 := 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 = ', Max) ;
Min:=A[1];
For i := 2 to n do
If A[i]Writeln(' So nho nhat la Min = ', Min) ;
Readln ;

Khai báo biến mảng

Nhập giá trị cho mảng

Tìm số lớn nhất và nhỏ
nhất

Ch¬ng tr×nh ch¹y vµ cho kÕt qu¶ nhsau:
Nhap so phan tu cua day so: n= 7
Nhap so thu 1 : 7
Nhap so thu 2 : 9
Nhap so thu 3 : 4
Nhap so thu 4 : 6
Nhap so thu 5 : 9
Nhap so thu 6 : 8
Nhap so thu 7 : 5
So lon nhat la Max = 9
So nho nhat la Min = 4

Kiến thức cần nhớ

Củng cố

Bài 9:

Bài tập củng cố
Bài 1: Em hãy chọn đáp án đúng:
A. Dữ liệu kiểu mảng là tập hợp các phần tử
không có thứ tự và mọi phần tử có cùng một
kiểu dữ liệu.
B. Dữ liệu kiểu mảng là tập hợp các phần tử có
thứ tự và mỗi một phần tử trong mảng có thể
có các kiểu dữ liệu khác nhau .
C. Dữ liệu kiểu mảng là tập hợp các phần tử có
thứ tự và mọi phần tử có cùng một kiểu dữ
liệu.

Bài 9:

Củng cố
Bài 2: Cách khai báo biến mảng sau đây đúng hay sai?
Khoanh tròn vào chỗ sai (nếu có).
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) Sửa 4.8 thành 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

1
2
3
4
5

V A
R
R
M A
N G U Y

R
E A D
E A L
X
Ê N

Có
44 Có
chữ
chữ
cái:
Là
từ
khóa
lệnh
trong
trong
chương
trình
trình
Pascal
Pascal
3cái:
chữ
cái:
Là
từ
đểchương
khai
biến
Có Có
6 chữ
cái:
ChỉLà
sốcâu
đầu,
chỉkhóa
số cuối
trongbáo
khai
báo
mảng
Có 3đểchữ
cái:
Là tên
của
hàm
tìm
giá
trị
lớn
nhất?
dùng
dùng
dừng
để
chương
thể
hiện
trình
những
chờ
ta
biến
nhập
kiểu
giáthực?
trị cho
biến?
trong
trình
Pascal?
Thường
làchương
những
số…………….?

Bài 9:

- 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

Xin chân thành cảm ơn sự chú ý theo dõi
của các học sinh