Tin 11 Mang mot chieu

Bµi tËp vËn dông..[r]

Mảng chiều dÃy hữu hạn phần tư cïng kiĨu

 Cách tham chiếu đến phần tử mảng:

 Mảng đ ợc đặt tên phần tử có ch s:

Số phần tử mảng:

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

2 Khai báo mảng chiều PASCAL

* C¸ch 2: Khai b¸o gi¸n tiÕp * C¸ch 1: Khai b¸o trùc tiÕp

VAR <Tên biến mảng>: ARRAY [ Kiểu số] Of <Kiểu phần tử>;

3 Các thao tác xử lí mảng chiều

1 Nhập số phần tử mảng (n). Write( Nhap gia tri cho n:);

Readln(n);

2 Nhập vào giá trị phần tử

trong mảng (A[i]). For i:=1 to n

Begin

Write(‘nhap phan tu thu’ ,i, ’ : ’); Readln(A[i]);

end;

C¸c b íc ThĨ hiƯn b»ng pascal

a NhËp m¶ng mét chiỊu

b In m¶ng mét chiÒu

Writeln(‘ Mang vua nhap : ’);

For i:=1 to n Write(A[i]:3);

- Thông báo

- In giá trị phần tư

c C¸c thao tác xử lí mảng

Thụng th ng, thao tác xử lí mảng chiều dùng câu lệnh FOR DO

* TÝnh tỉng c¸c phần tử có mảng

Ví dụ 1: Tính tổng các phần tử trong

mảng S := 0;

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

30 12 18 25 10 20 15

c Các thao tác xử lí mảng

* Tính tổng phần tử mảng thoả mÃn điều kiện cho tr íc

VÝ dơ 2: TÝnh tỉng c¸c phần tử trong

mảng chia hết cho 3. S := 0;

For i :=1 to n

IF A[i] mod = 0 then S:=S+A[i]; 19 12 18 25 16 20 15

* Đếm phần tử mảng thoả mÃn điều kiện cho tr íc

dem :=0;

For i :=1 to n IF A[i]>TB then dem:=dem+1;

c C¸c thao t¸c xư lÝ kh¸c

Ví dụ: Đếm số ngày có nhiệt độ cao hơn nhiệt độ TB của tuần

TB = 18.7

Dem=0 7 6 5 4 3 2 1 i 19 17 19 21 18 20 17 A[i]

0 1 1 2 3 3 4

20 21 19 19

- Thuật toán tìm max

3

Quả lớn

Quả lớn

nhất

ồ! Quả lớn

hơn Tìm lớn rồi!

Cùng tìm thuật toán

* Tìm phần tử lớn mảng

- Thuật toán tìm Max:

Max := A[1];

For i :=1 To N Do

if A[ i ] > Max then

Max := A[i];

Đề bài:

Viết ch ơng trình nhập vào mảng A gồm N phần tử có kiểu số nguyên + Tính tổng phần tử có giá trị chẵn mảng

Program Tinh_Tong_Mang;

Uses crt;

Var

A: Array[1 100] of integer; i, n, S: integer;

BEGIN

Clrscr;

write(‘ Nhap so phan tu cho mang : ’) ;Readln(n) ; For i := to n

Begin

write(‘ Nhap phan tu thu ‘,i,’ : ‘) ; Readln(A[i]) ;

End;

S := ;

For i := to n

If A[i] mod = Then

S := S + A[i];

Writeln(‘ Tong cac so chan co mang la:‘, S) ; Readln ;

END.

Khai báo mảng chiều

Nhập mảng chiều Tính tỉng

H·y nhí!

 M¶ng chiều dÃy hữu hạn phần tử kiểu

Khai báo: tên mảng, số đầu,

chỉ số cuối, kiểu phần tử

Tham chiếu phần tử mảng:

Tên biến mảng[chỉ số phần tử] 15 20 19 25 18 12 16

Var A:ARRAY[1 100] OF integer;

Các em chuẩn bị:

- Làm tập sô 3, 4, 5, SGK trang 79

- Chuẩn bị thực hành số SGK trang 63