Bµi tËp vËn dông..[r]
(1)(2)(3)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ử:
(4)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ử>;
(5)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
(6)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ư
(7)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
(8)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
(9)* Đế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
(10)- Thuật toán tìm max
3
(11)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
(12)* 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
(13)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
(14)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 16Var A:ARRAY[1 100] OF integer;
(15)