Tin 11 Mang mot chieu
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (1.12 MB, 16 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1></div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2></div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>
Mảng một chiều là một dÃy hữu hạn các phÇn tư cïng kiĨu.
<b><sub>Cách tham chiếu đến phần tử của mảng:</sub></b>
<b></b>
<b> Mảng đ ợc đặt tên và mỗi phần tử của nó có một </b>
<b>chỉ số:</b>
<b> Số phần tử của mảng:</b>
<b> Kiểu dữ liệu của các phần tử:</b>
</div>
<span class='text_page_counter'>(4)</span><div class='page_container' data-page=4>
2. Khai báo mảng một chiỊu trong PASCAL
<b>* C¸ch 2: Khai b¸o gi¸n tiÕp </b>
<b>* C¸ch 1: Khai b¸o trùc tiÕp </b>
<b> VAR <Tên biến mảng>: ARRAY [ Kiểu chỉ số] Of <Kiểu phần tử>;</b>
</div>
<span class='text_page_counter'>(5)</span><div class='page_container' data-page=5>
3. Các thao tác xư lÝ trong m¶ng mét chiỊu
<i><b>1. </b></i><b><sub>NhËp sè phần tử của mảng (n).</sub></b> <b><sub>Write( Nhap gia tri cho n:);</sub></b>
<b>Readln(n);</b>
<b>2. Nhập vào giá trị của các phần tử </b>
<b>trong m¶ng (A[i]).</b> <b>For i:=1 to n do </b>
<b> Begin</b>
<b> Write(‘nhap phan tu thu’ ,i, ’ : ’);</b>
<b> Readln(A[i]);</b>
<b> end; </b>
C¸c b íc <sub>ThĨ hiƯn b»ng pascal</sub>
<b>a. NhËp m¶ng mét chiỊu</b>
</div>
<span class='text_page_counter'>(6)</span><div class='page_container' data-page=6>
<b> b. In m¶ng mét chiỊu</b>
<b>Writeln(‘ Mang vua nhap : ’);</b>
<b>For i:=1 to n do Write(A[i]:3); </b>
<i><b>- </b></i>
<b>Thông báo </b>
<i><b> - </b></i>
<b>In giá trị của các phần tử </b>
</div>
<span class='text_page_counter'>(7)</span><div class='page_container' data-page=7>
<b> c. Các thao tác xử lí trong mảng</b>
Thụng th ng, cỏc thao tác xử lí trong mảng một chiều đều dùng câu lnh FOR...DO
* Tính tổng các phần tử có trong mảng
<b>VÝ dơ 1:</b> <b>TÝnh tỉng c¸c</b> <b>phần tử</b> <b>trong </b>
<b>mảng</b>
<b>S := 0;</b>
<b>For i := 1 to n do </b>
<b> S := S + A[i];</b>
30
12
18
25
10
20
15
</div>
<span class='text_page_counter'>(8)</span><div class='page_container' data-page=8>
<b> c. Các thao tác xử lí trong mảng</b>
* Tính tổng các phần tử trong mảng thoả mÃn điều kiện cho tr íc
<b>VÝ dơ 2:</b> <b>TÝnh tổng các</b> <b>phần tử</b> <b>trong </b>
<b>mảng chia hết cho 3.</b>
<b> S := 0;</b>
<b>For i :=1 to n do </b>
<b> IF </b>
<b>A[i] mod 3 = 0</b>
<b> then </b>
<b> S:=S+A[i];</b>
19
12
18
25
16
20
15
</div>
<span class='text_page_counter'>(9)</span><div class='page_container' data-page=9>
* §Õm các phần tử trong mảng thoả mÃn điều kiện cho tr íc
<b> dem :=0;</b>
<b> For i :=1 to n do </b>
<b> IF A[i]>TB then </b>
<b> dem:=dem+1;</b>
<b> c. C¸c thao t¸c xư lÝ kh¸c</b>
<b>Ví dụ</b><i><b>: </b></i><b>Đếm số ngày có</b> <b>nhiệt độ cao </b>
<b>hơn nhiệt độ TB</b> <b>của tuần. </b>
<b>TB = 18.7</b>
<b>Dem=0</b>
<b>7</b>
<b>6</b>
<b>5</b>
<b>4</b>
<b>3</b>
<b>2</b>
<b>1</b>
<b>i</b>
19
17
19
21
18
20
17
<b>A[i]</b>
<b>0</b> <b>1</b> <b>1</b> <b>2</b> <b>3</b> <b>3</b> <b>4</b>
20
21
19
19
</div>
<span class='text_page_counter'>(10)</span><div class='page_container' data-page=10>
- Thuật toán tìm max
3
</div>
<span class='text_page_counter'>(11)</span><div class='page_container' data-page=11>
Quả này
lớn nhất
Quả này
mới lớn
nhất
ồ! Quả
này lớn
hơn
Tìm ra
quả lớn
nhất rồi!
Cùng tìm thuật toán
</div>
<span class='text_page_counter'>(12)</span><div class='page_container' data-page=12>
* Tìm phần tử lớn nhất của mảng.
<b> - Thuật toán tìm Max:</b>
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 các phần tử có giá trị chẵn trong m¶ng.
</div>
<span class='text_page_counter'>(13)</span><div class='page_container' data-page=13>
<b>Program Tinh_Tong_Mang;</b>
<b>Uses crt;</b>
<b>Var</b>
<b>A: Array[1..100] of integer;</b>
<b>i, n, S: integer;</b>
<b>BEGIN</b>
<b>Clrscr;</b>
<b>write(‘ Nhap so phan tu cho mang : ’) ;Readln(n) ;</b>
<b> For i := 1 to n do </b>
<b>Begin</b>
<b> write(‘ Nhap phan tu thu ‘,i,’ : ‘) ;</b>
<b> Readln(A[i]) ;</b>
<b> End;</b>
<b> S := 0 ;</b>
<b> For i := 1 to n do </b>
<b>If A[i] mod 2 = 0 Then</b>
<b> S := S + A[i];</b>
<b> Writeln(‘ Tong cac so chan co trong mang la:‘, S) ;</b>
<b> Readln ;</b>
<b>END.</b>
<i><b>Khai b</b></i><b><sub>áo mảng 1 chiều</sub></b>
<b>Nhập m¶ng 1 chiỊu</b>
<b>TÝnh tỉng</b>
</div>
<span class='text_page_counter'>(14)</span><div class='page_container' data-page=14>
H·y nhí!
<b> M¶ng một chiều là một dÃy hữu </b>
<b>hạn các phần tử cùng kiểu. </b>
<b> </b>
Khai báo:
<b>tên mảng, chỉ số ®Çu, </b>
<b>chØ sè ci, kiĨu phÇn tư. </b>
Tham chiÕu phần tử mảng:
<b> Tên biến mảng[chỉ sè phÇn tư]</b>
<b>15 20 19 25 18 12 16</b>
<b>Var A:ARRAY[1..100] OF integer;</b>
</div>
<span class='text_page_counter'>(15)</span><div class='page_container' data-page=15>
Các em chuẩn bị:
-
Làm bài tập sô 3, 4, 5, 6 SGK trang 79
-
<sub>Chuẩn bị bài thùc hµnh sè 3 SGK trang 63</sub>
</div>
<span class='text_page_counter'>(16)</span><div class='page_container' data-page=16></div>
<!--links-->
