Bài giảng Điện tử Tin học lớp 11 - Bài 12: Mảng một chiều, giới thiệu với các em khái niệm mảng một chiều, khai báo mảng một chiều trong Pascal, các thao tác xử lý trong mảng một chiều. Chúc các em học tốt.
AMBIENT/
Chủ đề:
Nội dung Text: Bài giảng Điện tử Tin học lớp 11: Bài 12
- Bµi 12
Gi¸o ¸n ®iÖn tö tin häc líp 11
- Bµi to¸n ® vÊn ®
Æt Ò:
NhËp vµo nhiÖt ® (trung b× cña mçi ngµy trong tuÇn. TÝnh vµ ®
é nh)
a ra mµn h× nhiÖt ® trung b× cña tuÇn vµ sè lîng ngµy cã nhiÖt
nh é nh
® TB cao h¬ nhiÖt trung b× trong tuÇn?
é n nh
H·y x¸c ®Þnh
* D÷liÖu nhËp vµo (INPUT):Inp ut, Outp ut v µ
t1,t2,t3,t4,t5,t6,t7.
v iÕt c h¬ng tr×nh
* D÷cÇn tÝnh vµ in ra (OUTPUT):btb,to ¸n
g i¶i µi dem.
trª n ?
- Program vd1;
Uses crt;
Var
t1,t2,t3,t4,t5,t6,t7,tb : real;
dem : integer;
BEGIN
Clrscr;
write(‘ Nhap vao nhiet do 7 ngay : ’);
readln(t1,t2,t3,t4,t5,t6,t7);
tb : =(t1+ t3+ t5+ t7)/7;
t2+ t4+ t6+
dem : =0 ;
if (t1> then dem :=dem +1;
tb)
if (t2> then dem :=dem +1;
tb)
if (t3> then dem :=dem +1;
tb)
if (t4> then dem :=dem +1;
tb)
if (t5> then dem :=dem +1;
tb)
if (t6> then dem :=dem +1;
tb)
if (t7> then dem : =dem +1;
tb)
Writeln(‘ Nhiet do trung binh trong tuan =‘,tb : 6 : 2);
Writeln(‘ so ngay co nhiet do cao hon nhiet do tb ‘, dem);
Readln;
END.
- Quan s ¸t c h¬ng
tr×nh, h·y cp hôb iÕt
§Ó kh¾c ho c khã
kh¨n nÕuta uè ndtÝnh kiÓu
®ã m s ö ô ng
nhiÖt ®é trung b ×nh
d ÷ liÖu m ¶ng m é t
c ña N ng µy tro ng n¨m
c hiÒu.
(VD: N=365) th× s Ï
g Æp khã kh¨n g × ?
Khai b ¸o q u¸ lín
(t1,t2,t3,...,t365) v µ
c h¬ng tr×nh q u¸
d µi (v íi 365 lÖnh
IF) !!!!!
- 1. Kh¸i niÖm
M¶ng mét chiÒu lµ mét d·y h÷ h¹n c¸c phÇn tö cïng
u
kiÓu
VÝ dô :
A 17 20 18 25 19 12 19
1 2 3 4 5 6 7
Tro ng ®ã :
Tªn m¶ng : A.
S è phÇn tö c ña m¶ng : 7.
KiÓu d÷ liÖu c ña c ¸c phÇn tö : KiÓu ng uyªn.
Khi tham c hiÕu ®Õn phÇn tö thø i ta viÕt A[i].
VÝ dô : A[5] = 19.
- 2. Khai b¸o m¶ng mét chiÒu trong PASCAL
* C¸c h 1: Khai b¸o g i¸n tiÕp
TYPE < kiÓu m¶ng>=array[<
tªn chØ sè ® Çu> chØ sè cuèi> of
..< ]
Var: < kiÓu m¶ng>
kiÓuphÇn tö>
ds ; tªn ;
Tro ng ®ã : ChØ s è ®Çu, c hØ s è c uè i thê ng lµ c ¸c h»ng ho Æc b iÓu thø c
ng uy ª n;
ChØ s è ®Çu ≤ c hØ s è c uè i;
Gi÷a 2 c hØ s è lµ d Êu ..
VÝ dô: TYPE nhietdo =array[1..365] of
integer;
Var A: nhietdo;
* C¸c h 2: Khai b¸o trùc tiÕp
Var < biÕn m¶ng>: array[<
Ds chØ sè ® Çu> chØ sè cuèi> of
..< ]
;
VÝ dô: Var nhietdo : array[1..365] of integer;
Var A,B : array[1..100] of real;
- 3. C¸c thao t¸c xö lÝ trong m¶ng mét chiÒu
a. NhËp m¶ng mé t c hiÒu
VÝ dô: NhËp nhiÖt ®é n
ngµy.
A 17 20 18 ....... 19
21 17 19
víi nn 7
=
C¸c bíc ThÓ hiÖn b»ng pascal
1. NhËp s è p hÇn tö c ña m ¶ng Write(‘ Nhap vao so ngay:’);
(n). Readln(n);
2. NhËp v µo g i¸ trÞ c ña c ¸c p hÇn For i:=1 to n do
tö tro ng m ¶ng (A[i]). Begin
write(‘nhiet do ngay thu’ ,i, ’ : ’);
readln(A[i]);
end;
- b. In m¶ng mé t chiÒu
VÝ d ô : In m¶ng võ a nhËp.
- Th«ng b ¸o Writeln(‘ Mang vua nhap : ’);
- In g i¸ trÞ c ña c ¸c p hÇn For i:=1 to n do Write(A[i]:5);
tö
KÕt qu¶ in ra mµn h×nh:
Mang vua nhap:
17 20 18 21 19 17 19
- c. C¸c thao t¸c xö lÝ kh¸c
* §Õm c¸c phÇn tö trong m¶ng tho¶ m·n ®iÒu kiÖn cho tríc
VÝ d ô : §Õm s è ng µy c ã nhiÖt ®é dem :=0;
c ao h¬n nhiÖt ®é TB c ña
For i :=1 to n do
tuÇn.
IF A[i]>TB then dem:=dem+1;
i 1 2 3 4 5 6 7
A[i] 17 20 18 21 19 17 19 TB = 18.7
Dem=0 0 1 1 2 3 3 4
+1 +1 +1 +1
- Pro g ram vd1;
Us e s c rt;
Var Khai b¸o m ¶ng 1 c hiÒu
A: Array[1..366] o f inte g e r;
i,n,de m: inte g e r;
S ,TB : re al ;
BEGIN
Clrs c r;
write (‘ Nhap vao s o ng ay : ’) ;
re adln(n) ;
S := 0 ;
Fo r i := 1 to n do
Be g in NhËp m ¶ng 1 c hiÒu
write (‘ Nhap nhie t do ng ay thu ‘,i,’ : ‘) ;
re adln(A[i]) ; TÝnh tæ ng
S :=S +A[i] ;
End;
TB := S /n ; de m := 0 ;
Fo r i := 1 to n do
If A[i]>TB The n de m := de m+1; §Õm s è p hÇn tö tho ¶
Write ln(‘ Nhie t do trung binh ’ ,n,’ ng ay = ‘,TB : 6 : 2) ; m ·n ®iÒu kiÖn
Write ln(‘ S o ng ay c o nhie t do c ao ho n nhie t do TB la: ‘, de m) ;
Re adln ;
END.
- Ch¬ tr× ch¹y vµ cho kÕt qu¶ nh
ng nh
sau:
Nhap vao so ngay : 7
Nhap nhiet do ngay thu 1 : 17
Nhap nhiet do ngay thu 2 : 20
Nhap nhiet do ngay thu 3 : 18
Nhap nhiet do ngay thu 4 : 21
Nhap nhiet do ngay thu 5 : 19
Nhap nhiet do ngay thu 6 : 17
Nhap nhiet do ngay thu 7 : 19
Nhiet do trung binh 7 ngay = 18.70
So ngay co nhiet do cao hon nhiet do TB la: 4
- * TÝnh tæng c¸c phÇn tö trong m¶ng tho¶ m·n ®iÒu kiÖn
cho tríc
VÝ d ô : TÝnh tæ ng c ¸c p hÇn tö tro ng S :=0;
m ¶ng c hia hÕt c ho 3. For i :=1 to n do
IF A[i] mod 3 = 0 then S:=S+A[i];
15 20 16 25 18 12 19
S = 45
Th«ng thêng, c¸c thao t¸c xö lÝ trong m¶ng mét chiÒu ® dïng c© lÖnh
Òu u
FOR...DO.
- H·y nhí!
M¶ng mé t c hiÒu lµ mé t d·y
15 20 19 25 18 12 16
h÷u h¹n c ¸c phÇn tö c ïng
kiÓu.
Khai b¸o: tªn m¶ng , c hØ s è
Var A:ARRAY[1..100] OF integer;
®Çu, c hØ s è c uè i, kiÓu phÇn
tö .
Tham chiÕu phÇn tö m¶ng:
A[5] = 18
Tªn biÕn m¶ng [c hØ s è phÇn
tö ]
NhiÒu thao t¸c xö lÝ m¶ng
dïng c Êu tró c lÆp FOR ..TO..
DO.
Thêm vào BST
Báo xấu
Download
Vui lòng tải xuống để xem tài liệu đầy đủ
