Bài giảng Điện tử Tin học lớp 11: Bài 12

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. | Bµi 12 m¶ng mét chiÒu Gi¸o ¸n ®iÖn tö tin häc líp 11 NhËp vµo nhiÖt ®é (trung b×nh) cña mçi ngµy trong tuÇn. TÝnh vµ ®­a ra mµn h×nh nhiÖt ®é trung b×nh cña tuÇn vµ sè l­îng ngµy cã nhiÖt ®é TB cao h¬n nhiÖt trung b×nh trong tuÇn? * D÷ liÖu nhËp vµo (INPUT): t1,t2,t3,t4,t5,t6,t7. * D÷ cÇn tÝnh vµ in ra (OUTPUT): tb, dem. H·y x¸c ®Þnh Input, Output vµ viÕt ch­¬ng tr×nh gi¶i bµi to¸n trªn ? Bµi to¸n ®Æt vÊ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+t2+t3+t4+t5+t6+t7)/7; dem : = 0 ; if (t1>tb) then dem := dem + 1; if (t2>tb) then dem := dem + 1; if (t3>tb) then dem := dem + 1; if (t4>tb) then dem := dem + 1; if (t5>tb) then dem := dem + 1; if (t6>tb) then dem := dem + 1; if (t7>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­¬ng tr×nh, h·y cho biÕt nÕu muèn tÝnh nhiÖt ®é trung b×nh cña N ngµy trong n¨m (VD: N=365) th× sÏ gÆp khã kh¨n g× ? Khai b¸o qu¸ lín (t1,t2,t3,.,t365) vµ ch­¬ng tr×nh qu¸ dµi (víi 365 lÖnh IF) !!!!! §Ó kh¾c phôc khã kh¨n ®ã ta sö dông kiÓu d÷ liÖu m¶ng mét chiÒu. M¶ng mét chiÒu lµ mét d·y h÷u h¹n c¸c phÇn tö cïng kiÓu 17 20 18 25 19 12 19 A 1 2 3 4 5 6 7 Trong ®ã : Khi tham chiÕu ®Õn phÇn tö thø i ta viÕt A[i]. VÝ dô: A[5] = 19. Tªn m¶ng : A. Sè phÇn tö cña m¶ng: 7. VÝ dô: KiÓu d÷ liÖu cña c¸c phÇn tö: KiÓu nguyªn. 19 1. Kh¸i niÖm 2. Khai b¸o m¶ng mét chiÒu trong PASCAL * C¸ch 1: Khai b¸o gi¸n tiÕp TYPE = array[] of ; Var : ; VÝ dô: TYPE nhietdo = array[1365] of integer; Var A: nhietdo; Trong ®ã : ChØ sè ®Çu, chØ sè cuèi th­êng lµ 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 * C¸ch 2: Khai b¸o trùc tiÕp Var : array[] of . | Bµi 12 m¶ng mét chiÒu Gi¸o ¸n ®iÖn tö tin häc líp 11 NhËp vµo nhiÖt ®é (trung b×nh) cña mçi ngµy trong tuÇn. TÝnh vµ ®­a ra mµn h×nh nhiÖt ®é trung b×nh cña tuÇn vµ sè l­îng ngµy cã nhiÖt ®é TB cao h¬n nhiÖt trung b×nh trong tuÇn? * D÷ liÖu nhËp vµo (INPUT): t1,t2,t3,t4,t5,t6,t7. * D÷ cÇn tÝnh vµ in ra (OUTPUT): tb, dem. H·y x¸c ®Þnh Input, Output vµ viÕt ch­¬ng tr×nh gi¶i bµi to¸n trªn ? Bµi to¸n ®Æt vÊ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+t2+t3+t4+t5+t6+t7)/7; dem : = 0 ; if (t1>tb) then dem := dem + 1; if (t2>tb) then dem := dem + 1; if (t3>tb) then dem := dem + 1; if (t4>tb) then dem := dem + 1; if (t5>tb) then dem := dem + 1; if (t6>tb) then dem := dem + 1; if (t7>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­¬ng tr×nh, h·y .