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.
Nội dung trích xuất từ tài liệu:
Bài giảng Điện tử Tin học lớp 11: Bài 12Bµ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¸cbíc ThÓhiÖnb»ngpascal1. 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 19c. 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ícVÝ 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. ...