2020)

Dữ liệu kiểu mảng là dãy hữu hạn các phần tử có cùng kiểu dữ liệu, được sắp xếp thứ tự bằng cách gán cho mỗi phần tử 1 chỉ số.[r]

(1)

LÀM VIỆC VỚI DÃY SỐ

Chủ đề

(2)

Một số trường hợp dùng dãy số

Danh sách điểm Danh sách bảng giá sản phẩm

(3)

I Dãy số biến mảng

(4)

Biến mảng: biến có kiểu liệu kiểu mảng Giá trị biến mảng dãy số nguyên số thực

(5)

BT1 Ta có mảng số nguyên A, C mảng số thực B

- A[3] = ? Dãy A -1 … 12

Dãy B 1.5 2.8 9.3 -4.7 …

Dãy C … -4

Chỉ số i … 10

- C[1] = ?

- Mảng B = [ ?; ?; ?; ?; …; ?]

(6)

II Các thao tác xử lý biến mảng

1 Khai báo biến mảng

6

Var <tên biến mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu>; Trong đó: tên biến mảng: người lập trình đặt

chỉ số đầu/cuối: số nguyên (chỉ số đầu <= số cuối)

kiểu liệu: kiểu phần tử (Integer Real)

Ví dụ: Var A, B: array [1 10] of integer; C: array [1 20] of real;

(7)

2 Xác định số phần tử N mảng

Write(‘Nhap so phan tu N:’); readln (N);

(8)

3 Nhập giá trị cho biến mảng

Nếu N = (mảng có phần tử), ta thực hiện: Write(‘A[1] = ’); readln(A[1]); Write(‘A[2] = ’); readln(A[2]); Write(‘A[3] = ’); readln(A[3]);

For i := to begin

Write(‘A[’ , i , ‘] = ’); readln(A[i]); end;

(9)

Nếu N = (mảng có phần tử), ta thực hiện: Write(‘A[1] = ’); readln(A[1]);

Write(‘A[2] = ’); readln(A[2]); Write(‘A[3] = ’); readln(A[3]); Write(‘A[4] = ’); readln(A[4]); Write(‘A[5] = ’); readln(A[5]);

For i := to begin

(10)

10

For i := to N begin

Write(‘A[’ ,i, ‘] = ’); readln(A[i]); end;

Trong đó: N: số nguyên dương, xác định số phần tử mảng A

A: tên biến mảng

(11)

4 Xuất mảng A

Cho A=[1; -3; 0]  Xuất -3 Write(A[1], ‘ ’);

Write(A[2], ‘ ’); Write(A[3], ‘ ’);

For i := to Write(A[i], ‘ ’);

Mỗi phần tử cách 1ký tự khoảng cách

(12)

12

Cho A=[0.3; 7; -1; 4.2; -9]  Xuất 0.3 ; ; -1 ; 4.2 ; -9

Write(A[1], ‘ ; ’); Write(A[2], ‘ ; ’); Write(A[3], ‘ ; ’);

For i := to Write(A[i], ‘ ; ’);

Mỗi phần tử cách 1ký

(13)

For i := to N Write(A[i], ‘ ’);

(14)

5 Tổng giá trị mảng A

14

Tổng S = + +

S := 0;

For i := to S := S + A[i];

Writeln(‘Tong cua mang A la ‘, S);

S := 0;

For i := to S := S + i; Writeln(‘Tong S la ‘, S);

(15)

S := 0;

For i := to S := S + A[i];

Writeln(‘Tong cua mang A la ‘, S);

Cho A = [-3; 2.5; 8; 9.1; -2]

(16)

16

S := 0;

For i := to N S := S + A[i];

Writeln(‘Tong gia tri mang A la ’, S);

S: tổng giá trị mảng A

(17)

6 Tính tích giá trị mảng A

Tích P =

P := 1;

For i := to P := P * A[i];

P := 1;

For i := to P := P * i; Writeln(‘Tich P la ‘, P:5:1);

(18)

18

P := 1;

For i := to P := P * A[i];

Writeln(‘Tich cua mang A la ‘, P:5:1);

Cho A = [-3; 2.5; 8; 9.1; -2]

(19)

P := 1;

For i := to N P := P * A[i];

Writeln(‘Tich gia tri cua mang A la ’, P:5:1);

(20)

Bài tập rèn luyện:

Từ đoạn chương trình xử lý mảng A, bạn hồn chỉnh chương trình nhập xuất

hình mảng số nguyên A

CÁM ƠN

CÁC BẠN

ĐÃ THEO DÕI

BÀI HỌC

Định dạng
Số trang	20
Dung lượng	800,79 KB