TRNG THPT QUANG TRUNG TUN 21 Tit 39

  • Slides: 13
Download presentation
TRƯỜNG THPT QUANG TRUNG TUẦN 21 Tiết 39 - 40 Bài 11 Gi¸o ¸n

TRƯỜNG THPT QUANG TRUNG TUẦN 21 Tiết 39 - 40 Bài 11 Gi¸o ¸n ®iÖn tö tin häc líp 11 GV Dinh Nguyen Thanh Tu Suu tam va gioi thieu voi CENTEA Data

Bµi to¸n ®Æt vÊn ®Ò: NhËp vµo nhiÖt ®é (trung b×nh) cña mçi ngµy

Bµi to¸n ®Æt vÊn ®Ò: NhËp vµo nhiÖt ®é (trung b×nh) cña mçi ngµy trong tuÇn. TÝnh vµ ® ara mµn h×nh nhiÖt ®é trung b×nh cña tuÇn vµ sè l îngngµy cã nhiÖt ®é TB cao h¬n nhiÖt trung b×nh trong tuÇn? H·y x¸c ®Þnh Input, Output vµ * D÷ liÖu nhËp vµo (INPUT): t 1, t 2, t 3, t 4, t 5, t 6, t 7. viÕt ch ¬ngtr×nh bµi to¸n trªn ? tb, dem. * D÷ cÇn tÝnh vµ in ra gi¶i (OUTPUT):

Program vd 1; Uses crt; Var t 1, t 2, t 3, t 4,

Program vd 1; Uses crt; Var t 1, t 2, t 3, t 4, t 5, t 6, t 7, tb : real; dem : integer; BEGIN Clrscr; write(‘ Nhap vao nhiet do 7 ngay : ’); readln(t 1, t 2, t 3, t 4, t 5, t 6, t 7); tb : = (t 1+t 2+t 3+t 4+t 5+t 6+t 7)/7; dem : = 0 ; if (t 1>tb) then dem : = dem + 1; if (t 2>tb) then dem : = dem + 1; if (t 3>tb) then dem : = dem + 1; if (t 4>tb) then dem : = dem + 1; if (t 5>tb) then dem : = dem + 1; if (t 6>tb) then dem : = dem + 1; if (t 7>tb) then dem : = dem + 1; 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 ch ¬ngtr×nh, h·y chokh¾c biÕt nÕu muèn §Ó phôc khã tÝnh trungkiÓu

Quan s¸t ch ¬ngtr×nh, h·y chokh¾c biÕt nÕu muèn §Ó phôc khã tÝnh trungkiÓu kh¨n ®ãnhiÖt ta sö®édông b×nh cña N ngµy trong d÷ liÖu m¶ng mét chiÒu. n¨m (VD: N=365) th× sÏ gÆp khã kh¨n g× ? Khai b¸o qu¸ lín (t 1, t 2, t 3, . . . , t 365) vµ ch ¬ngtr×nh qu¸ 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÷u h¹n c¸c phÇn tö

1. Kh¸i niÖm M¶ng mét chiÒu lµ mét d·y h÷u h¹n c¸c phÇn tö cïng kiÓu VÝ dô: A 17 20 18 25 19 1 2 3 4 5 12 19 6 7 Trong ®ã : 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 nguyªn. F Khi tham chiÕ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¸ch 1: Khai b¸o gi¸n

2. Khai b¸o m¶ng mét chiÒu trong PASCAL * C¸ch 1: Khai b¸o gi¸n tiÕp TYPE <tªn kiÓu m¶ng> = array[<chØ sè ®Çu>. . <chØ sè cuèi>] of <kiÓuphÇn tö>; Var <ds biÕn m¶ng> : <tªn kiÓu m¶ng>; Trong ®ã : ChØ sè ®Çu, chØ sè cuèi th ênglµ c¸c h» ng hoÆc biÓu thøc nguyªn; ChØ sè ®Çu chØ sè cuèi; Gi÷a 2 chØ sè lµ dÊu. . VÝ dô: TYPE nhietdo = array[1. . 365] of integer; Var A: nhietdo; * C¸ch 2: Khai b¸o trùc tiÕp Var <Ds biÕn m¶ng> : array[<chØ sè ®Çu>. . <chØ sè cuèi>] of <kiÓuphÇn tö>; 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

3. C¸c thao t¸c xö lÝ trong m¶ng mét chiÒu a. NhËp m¶ng mét chiÒu VÝ dô: NhËp nhiÖt ®é n ngµy. A 17 C¸c b íc 20 18. . . . 21 19 n= 7 víi n 17 19 ThÓ hiÖn b» ng pascal 1. NhËp sè phÇn tö cña m¶ng (n). Write(‘ Nhap vao so ngay: ’); 2. NhËp vµo gi¸ trÞ cña c¸c phÇn tö trong m¶ng (A[i]). For i: =1 to n do Begin write(‘nhiet do ngay thu’ , i, ’ : ’); readln(A[i]); end; Readln(n);

b. In m¶ng mét chiÒu VÝ dô: In m¶ng võa nhËp. - Th «ng

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 gi¸ trÞ cña c¸c phÇn tö For i: =1 to n do Write(A[i]: 5); 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

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 ®é cao dem : =0; h¬n nhiÖt ®é TB cña tuÇn. For i : =1 to n do IF A[i]>TB then dem: =dem+1; i A[i] Dem=0 1 2 3 4 5 6 7 17 20 18 21 19 17 19 2 3 0 1 +1 +1 3 4 +1 TB = 18. 7

Program vd 1; Uses crt; Var Khai b¸o m¶ng 1 chiÒu A: Array[1. .

Program vd 1; Uses crt; Var Khai b¸o m¶ng 1 chiÒu A: Array[1. . 366] of integer; i, n, dem: integer; S, TB : real ; BEGIN Clrscr; write(‘ Nhap vao so ngay : ’) ; readln(n) ; S : = 0 ; For i : = 1 to n do NhËp m¶ng 1 chiÒu Begin write(‘ Nhap nhiet do ngay thu ‘, i, ’ : ‘) ; TÝnh tæng readln(A[i]) ; S: =S+A[i] ; End; TB : = S/n ; dem : = 0 ; For i : = 1 to n do §Õm sè phÇn tö tho¶ If A[i]>TB Then dem : = dem+1; m·n ®iÒu kiÖn Writeln(‘ Nhiet do trung binh ’ , n, ’ ngay = ‘, TB : 6 : 2) ; Writeln(‘ So ngay co nhiet do cao hon nhiet do TB la: ‘, dem) ; Readln ; END.

Ch ¬ngtr×nh ch¹y vµ cho kÕt qu¶ nh sau: Nhap vao so ngay :

Ch ¬ngtr×nh ch¹y vµ cho kÕt qu¶ 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

* 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 phÇn tö trong S : =0; m¶ng chia hÕt cho 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 ®Òu dïng c©u lÖnh FOR. . . DO.

H·y nhí! 15 20 19 25 18 12 16 M¶ng mét chiÒu lµ mét

H·y nhí! 15 20 19 25 18 12 16 M¶ng mét chiÒu lµ mét d·y h÷u h¹n c¸c phÇn tö cïng kiÓu. Var A: ARRAY[1. . 100] OF integer; Khai b¸o: tªn m¶ng, chØ sè ®Çu, chØ sè cuèi, kiÓu phÇn tö. A[5] = 18 Ø Tham chiÕu phÇn tö m¶ng: Tªn biÕn m¶ng[chØ sè phÇn tö] NhiÒu thao t¸c xö lÝ m¶ng dïng cÊu tróc lÆp FOR. . TO. . DO.