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

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.[r]

Trang 1

Bài 9:

LÀM VIỆC VỚI DÃY SỐ

Trang 2

Bài 9: LÀM VIỆC VỚI DÃY SỐ

1 Dãy số và biến mảng:

Ví dụ 1: Đọc SGK / trang 75

Trang 5

Readln (An);

Var An, Bao, Chi, Dung, Hoa

Khoi, Lan, Mai, Ngoc, Viet : integer ;

Program Nhap_diem ;

Begin

Readln;

Readln (Bao);

Readln (Chi); Readln (Dung);

Readln (Hoa); Readln (Khoi);

Readln (Lan); Readln (Mai);

Readln (Ngoc); Readln (Viet);

Trang 9

- Cách khai báo biến mảng cần có:

+ Tên biến mảng + Số lượng phần tử + Kiểu dữ liệu

Var < Tên biến > : < kiểu dữ liệu > ;

Var ABC : integer ;

Trang 10

2 Ví dụ về biến mảng:

- Cách khai báo biến mảng cần có:

+ Tên biến mảng + Số lượng phần tử + Kiểu dữ liệu

- Ví dụ:

Var Chieucao : array [ 1 50 ] of real ; Var Tuoi : array [ 21 80 ] of integer ;

Trang 11

Ví dụ

+ Tên biến mảng : Chieucao, Tuoi + Số lượng phần tử : [1 50] , [21 80]

+ Kiểu dữ liệu : real, integer

Var Chieucao : array [ 1 50 ] of real ; Var Tuoi : array [ 21 80 ] of integer ;

+ Từ khóa : Var, array, of

Trang 12

Cách khai báo biến mảng như sau:

Var < Tên mảng > : array [ < Chỉ số đầu > < Chỉ số cuối > ] of < kiểu dữ liệu >

Var Tuoi : array [ 21 80 ] of integer ;

Trang 13

Cách khai báo biến mảng như sau:

Var Tên mảng : array [ < Chỉ số đầu > < Chỉ số cuối > ] of < kiểu dữ liệu >

Var ABC : array [ 5 25 ] of real ;

Trang 14

Cách truy xuất mảng như sau:

Var AA : array [ 1 5 ] of integer ;

Trang 15

Trang 16

Trang 17

Trang 18

Readln (An); Readln (Bao);

Trang 19

Readln (An); Readln (Bao);

Trang 21

* Để so sánh điểm của một học sinh với một giá trị nào đó, ta viết câu lệnh như sau:

For i : = 1 To 10 Do

If Diem[i] > 8.0 then Writeln (‘ Gioi ’);

Trang 22

* Muốn lưu trữ điểm của nhiều môn học, ta khai báo như sau:

Var Van : array [1 10] of real ; Var Toan : array [1 10] of real ;

Var Ly : array [1 10] of real ;

Hoặc Var Toan, Van, Ly : array [1 10] of real ;

Trang 24

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ố nhỏ nhất ( MAX ) và số lớn nhất ( MIN ) N

cũng được nhập vào từ bàn phím.

* Ví dụ 3:

N là số phần tử chính của dãy số.

Trang 26

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

Trang 27

if MAX < A [ i ] then MAX := A [ i ];

if MIN < A [ i ] then MIN := A [ i ];

end;

Writeln (‘So lon nhat la:’, MAX );

Writeln (‘So nho nhat la: ’, MIN );

Trang 28

if MIN > A [ i ] then MIN := A [ i ];

end;

1

Trang 29

if MIN < A [ i ] then MIN := A [ i ];

end;

Writeln (‘So lon nhat la:’, MAX );

Writeln (‘So nho nhat la: ’, MIN );

Trang 30

Bài tập:

1 Các câu lệnh sau đúng hay sai?

a Var A : array [ 1 100 ] of integer ;

b Var B : array [ 1 N ] of real ;

c Var C : array [ 1 : 100 ] of integer ;

d Var D : array [ -7 7 ] of real ;

Trang 31

Bài tập:

Trang 32

Bài tập:

 Var A : array [ 1 100 ] of integer ;

Trang 33

Bài tập:

 Var C : array [ 1 100 ] of integer ;

Trang 34

h Var x : array [ 5 10.5 ] of real ;

g Var x : array [ 3.4 4.8 ] of real ;

e Var x : array [ 10 1 ] of integer ;

f Var x : array ( -7 8 ) of real ;

Trang 35

Bài tập:

e Var E : array [ 10 1 ] of integer ;

f Var F : array ( -7 8 ) of real ;

 Var E : array [ 1 10 ] of integer ;

 Var F : array [ -7 8 ] of real ;

Trang 36

i Var x : array [ 10,13 ] of integer ;

h Var x : array [ 5 10.5 ] of real ;

g Var x : array [ 3.4 4.8 ] of real ;

 Var x : array [ 3 4 ] of real ;

 Var x : array [ 5 10 ] of real ;

Trang 37

3 “Có thể xem biến mảng là một biến được tạo

từ nhiều biến có cùng kiểu nhưng chỉ dưới một tên duy nhất ” Phát biểu đó đúng hay sai?

4 Câu lệnh khai báo biến mảng sau đây máy tính

có thực hiện được hay không?

Var N : integer ;

A : array [ 1 N ] of real ;

Trang 38

5 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

Định dạng
Số trang	38
Dung lượng	313 KB