Bai 9 Lam viec voi day so

Việc sắp thứ tự thực hiện bằng cách gán cho mỗi phần tử một chỉ số.. (số nguyên).[r]

Company

LOGO

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

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

Ví dụ biến mảng 2

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

Làm việc với dãy số Ví dụ 1:

Viết chương trình nhập điểm kiểm tra 50 học sinh lớp

- Nhập lưu điểm cho học sinh

Write (‘Nhap diem= ‘); Readln(diem_1);

Khai báo biến sau: Var diem_1: real;

- Nhập lưu điểm cho học sinh

Khai báo biến sau: Var diem_1, diem_2: real;

Write (‘Diem hs 1= ‘); Readln(diem_1); Write (‘Diem hs 2= ‘); Readln(diem_2); Dãy số biến mảng

Ví dụ 2:

Viết chương trình nhập điểm kiểm tra học sinh lớp

- Nhập lưu điểm cho học sinh

- Nhập lưu điểm cho học sinh

Nhập lưu điểm cho

50 học sinh sao?

?

Khai báo n biến sau:

Var diem_1, diem_2, diem_3, diem_4, , diem_50: real;

Write (‘Diem hs 1= ‘); Readln(diem_1); Write (‘Diem hs 2= ‘); Readln(diem_2); Write (‘Diem hs 3= ‘); Readln(diem_3); Write (‘Diem hs 4= ‘); Readln(diem_4); ……

……

Write (‘Diem hs n= ‘); Readln(diem_50); Những hạn chế:

Phải khai báo nhiều biến Chương trình phải viết dài

Làm việc với dãy số Dãy số biến mảng

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

Em hiểu liệu kiểu mảng ?

? Dữ liệu kiểu mảng: Là tập hợp hữu hạn phần tử có thứ tự, phần tử có kiểu liệu (số nguyên số thực) Việc thứ tự thực cách gán cho phần tử số (số nguyên)

Vậy em hiểu biến mảng gì?

? Biến mảng: khai báo biến có kiểu liệu kiểu mảng, biến gọi biến mảng

Giá trị biến mảng mảng, tức dãy số (số nguyên, số thực)

Vậy:

Khắc phục hạn chế:

Lưu liệu liên quan biến Đặt chung tên đặt cho phần tử số Dãy số biến mảng

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

A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 A10

Ba Bb Bc Bd

Tương tự, mảng B giống dãy nhà B tầng có phịng đánh số thứ tự chữ a, b, c, d :

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

Mảng thứ tên A, gồm 11 phần tử kiểu Real, ứng với số 0, 1, 2, , 10, là:

Mảng thứ hai tên HTen gồm phần tử kiểu liệu String[18] ứng với số từ đến 5:

Mảng thứ ba tên B, gồm phần tử kiểu Integer ứng với số ‘a’, ‘b’, ‘c’, ‘d’:

A[0], A[1], A[2], , A[10]

Hten[1], Hten[2], Hten[3], Hten[4], Hten[5] B[‘a’], B[‘b’], B[‘c’], B[‘d’]

Ví dụ 3:

Làm việc với dãy số Ví dụ biến mảng

2

17 20 24 10 16 22 18

A

1

? Khi khai báo biến mảng cần rõ điều gì?

Khai báo mảng cần rõ: + Tên biến mảng + Số lượng phần tử

+ Kiểu liệu chung phần tử

Trong đó:

+ Khi tham chiếu đến phần tử thứ i Ta viết A[i] + Tên mảng :

+ Số phần tử mảng:

+ Kiểu liệu phần tử: A

7

Kiểu nguyên

A[6] = 22

Làm việc với dãy số Ví dụ biến mảng

2

Var <tên biến mảng>: array[<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu>;

Var <tên biến mảng>: array[<chỉ số đầu> <chỉ số cuối>]

of <kiểu liệu>; Cấu trúc, cú pháp khai

báo mảng:

Trong đó:

 Array, of từ khóa chương trình.

 Tên biến mảng người dùng đặt.

Làm việc với dãy số Ví dụ biến mảng

2

Chiều cao tuổi thuộc kiểu liệu nào?

Var Chieucao: array[1 50]of real;

Var Tuoi: array[1 50]of integer;

Var diem: array[1 50] of real; ……

For i:=1 to 50 Begin

write(‘diem hs’,i,’:’); readln(diem[i]); End;

Chương trình nhập điểm kiểm tra học sinh lớp

Làm việc với dãy số Ví dụ biến mảng

2

Program vidu;

Var diemtin: array [1 10] of real;

i:integer; Begin

Diemtin[1]:=5; Diemtin[10]:=5; for i:=2 to do begin

write('diemtin ='); readln(diemtin[i]); end;

For i:=1 to 10 do writeln(diemtin[i]:6:2); Readln

End Ví dụ 4:

Em khai báo mảng diemtin gồm 10 phần tử. Nhập dữ liệu cho diemtin biết phần tử đầu tiên cuối cùng luôn mang giá trị 5 Các phần tử cịn lại có giá trị nhập từ bàn phím.

Sử dụng lệnh gán để gán giá trị cho phần tử đầu cuối.

Sử dụng lệnh lặp for to để nhập liệu cho phần tử

lại (2=>9).

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

Tìm giá trị lớn và nhỏ dãy số

3

Em nêu thuật tốn để tìm số nhỏ số lớn dãy số?

Dãy số 5 3 4 7 6 3 15 9

i 2 3 4 5 6 7 8 9

i>n S S S S S S S Đ

Ai>Max S S Đ S S Đ S Kết

thúc

Max 5 5 5 7 7 7 15 15

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

Var i,n,max,min:Integer;

A : Array [1 100] of Integer; BEGIN

Write(‘ Hay nhap 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 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

Var X: Array[3.4 4.8] of Integer; Var X: Array[10 1] of Integer; Var X: Array[4 10] of Real; Var X: Array[10 , 13] of Real;

A A A A B B B B C C C C D D D D

BT1: Em chọn khai báo biến mảng trong khai báo sau:

30 29282610111213141516171819202122232425279876543210

HƯỚNG DẪN VỀ NHÀ

1 Xem lại cách khai báo mảng, sử dụng khai báo những trường hợp