làm việc với dãy số (tt)

Trân Trọng kính chào Quý Thầy Cô và các
em học sinh cùng tham dự tiết học
Giáo viên: Nguyễn Thò Thúy Liễu


Em hãy nêu cách khai báo biến mảng trong Pascal?
Tên mảng: array [<chỉ số đầu> <chỉ số cuối>] of
<kiểu dữ liệu>;
Trong đó:
-Tên mảng do người dùng đặt.
-Array, of là từ khóa của chương trình.
-Chỉ số đầu phải <= chỉ số cuối.
-Kiểu dữ liệu có thể là số nguyên hoặc số thực.


1. Dãy số và biến mảng
2. Ví dụ về biến mảng
a. Cách khai báo biến mảng.
- Em hãy khai báo mảng diemtin gồm 40 phần tử
thuộc kiểu dữ liệu số thực?
- Em hãy khai báo mảng mubaohiem gồm 200
phần tử?
Var diemtin:array[1 40] of real;
Var mubaohiem:array [1 200] of integer;
b. Ví dụ khai báo biến mảng


1. Dãy số và biến mảng
2. Ví dụ về biến mảng
c. Làm việc với các phần tử của mảng.

Ví dụ:
-
Em hãy khai báo mảng diemtin gồm 10 phần tử. Nhập
liệu cho diemtin biết phần tử đầu tiên và cuối cùng
luôn mang giá trị bằng 5. Các phần tử còn lại có giá trị
bất kì được nhập từ bàn phím.
a. Cách khai báo biến mảng.
b. Ví dụ khai báo biến mảng

Program vidu;
Var diemtin: array [1 10] of
real;
Begin
Diemtin[1]:=5;
Diemtin[10]:=5;
for i:=2 to 9 do
write(‘diem =‘);
readln(diemtin[i]);
For i:=1 to 10 do
write(diemtin[i]);
Readln
End.
Khai báo biến
Sử dụng lệnh gán để gán giá trị
5 cho phần tử đầu và cuối.
Sử dụng lệnh lặp for to do để
nhập dữ liệu cho các phần tử
còn lại (2->9).
Xuất nội dung của mảng ra
màn hình sau khi nhập dữ liệu.

1. Dãy số và biến mảng
2. Ví dụ về biến mảng
3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số
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
và số nhỏ nhất. N cũng được nhập từ
bàn phím.


1. Dãy số và biến mảng
2. Ví dụ về biến mảng
3. Tìm giá trị lớn nhất và nhỏ nhất của dãy số
Trước hết ta khai báo biến N để nhập
các số nguyên sẽ được nhập vào. Sau
đó khai báo N biến lưu các số được nhập
vào như là phần tử của một biến mảng A


1.Dãy số và biến mảng
2.Ví dụ về biến mảng
3.Tìm giá trị lớn nhất và nhỏ nhất của dãy số
Em hãy nêu thuật toán để tìm số nhỏ
nhất và số lớn nhất trong dãy số?


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 và số nhỏ nhất. N
cũng được nhập từ bàn phím.

THUẬT TOÁN
•
B1: max:=a
1
; min:=a
1
; i:=1;
•
B2: i:= i+1;
•
B3: Nếu i > n, chuyển đến bước 5.
•
B4: Nếu a
i
> max thì max:=a
i
; a
i
< min thì min :=a
i

Quay lai bước 2.
•
B5: Kết thúc thuật toán.
3.Tìm giá trị lớn nhất và nhỏ nhất của dãy số

Quan sát chương trình
Var i,n,max,min:Integer;
A : Array [1 100] of Integer;
BEGIN

Write(‘ Hay nhap do dai cua day so, N= ‘);Readln(n);
Writeln(‘Hay nhap cac phan tu cua day so ‘);
For i:=1 to n do
Begin Write(‘a[ ‘,i,’] =‘);readln(a[i]); End;
Max := a[1] ; Min := a[1];
For i:=2 to n do
Begin
If max < a[i] then Max:=a[i];
If Min >a[i] then Min:=a[i];
End;
Writeln (‘So lon nhat la Max =‘,max);
Writeln(‘So nho nhat la Min =‘,min);
Readln;
END.
Phần khai báo
{Phần thân chương trình}


1.Dãy số và biến mảng
2.Ví dụ về biến mảng
3.Tìm giá trị lớn nhất và nhỏ nhất của dãy số
Lưu ý
Kích thức của mảng phải
được khai báo bằng một
con số cụ thể


BÀI TẬP

b. Var X : Array [5 10.5]of Integer;

Câu 1:Trong Pascal khai báo nào sau đây là
đúng?
a. Var X: Array [10,13] of Integer;
c. Var X : Array[10 1] of Integer;
d. Var X: Array [4 10] of Integer;
Đáp ánLàm lại
Tiếc quá …! Bạn chọn sai rồi
…!
Hoan hô …! Đúng rồi …!

Câu 2: Câu lệnh khai báo biến mảng sau đây
máy tính có thực hiện được không?
Var N:Integer;
A : array [1 N] of Integer;


-Xem lại nội dung bài học
-
Làm bài tập 5 SGK trang 79
-
Chuẩn bị bài thực hành 7:
“Xử lí dãy số trong chương trình.”


Viết chương trình Pascal sử dụng biến mảng để
nhập từ bàn phím các phần tử của một dãy số. Độ
dài của dãy cũng được nhập từ bàn phím
-Khai báo (Chú ý cách khai báo mảng)
-
Nhập độ dài của dãy số

-
Nhập các phần tử của dãy số
-
Xuất ra xem kết quả( Đề bài không yêu cầu)