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 16
Var A:ARRAY[1 100] OF integer;
(15)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
(16)