bai 11 tin 11a

<span class='text_page_counter'>(1)</span>Bµi 12. Gi¸o ¸n ®iÖn tö tin häc líp 11.

<span class='text_page_counter'>(2)</span> 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à đ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?. Hãy xác định Input, Output vµ * D÷ liÖu nhËp vµo (INPUT): t1,t2,t3,t4,t5,t6,t7. viÕt ch¬ng tr×nh bµi to¸n trªn ?tb, dem. * D÷ cÇn tÝnh vµ in ragi¶i (OUTPUT):.

<span class='text_page_counter'>(3)</span> 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..

<span class='text_page_counter'>(4)</span> Quan s¸t ch¬ng tr×nh, h·ykh¾c cho biÕt nÕukhã  §Ó phôc muèn tÝnh kh¨n đó ta sönhiÖt dụngđộkiểu trung b×nh cña N ngµy d÷ liÖu m¶ng mét chiÒu. 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) !!!!!.

<span class='text_page_counter'>(5)</span> 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.  Khi tham chiếu đến phần tử thứ i ta viết A[i]. VÝ dô: A[5] = 19..

<span class='text_page_counter'>(6)</span> 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ờ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 .. 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;.

<span class='text_page_counter'>(7)</span> 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 C¸c bíc. 17. 20. 18 ....... 21 19 víi nn = 7. 1. NhËp sè phÇn tö cña m¶ng (n).. 17. 19. ThÓ hiÖn b»ng pascal. Write(‘ Nhap vao so ngay:’); Readln(n);. 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;.

<span class='text_page_counter'>(8)</span> 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.

<span class='text_page_counter'>(9)</span> 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 +1. +1. 3. 4 +1. TB = 18.7.

<span class='text_page_counter'>(10)</span> Program vd1; 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; Writeln(‘ Nhiet do trung binh ’ ,n,’ ngay = ‘,TB : 6 : 2) ; m·n ®iÒu kiÖn Writeln(‘ So ngay co nhiet do cao hon nhiet do TB la: ‘, dem) ; Readln ; END..

<span class='text_page_counter'>(11)</span> Ch¬ng tr×nh ch¹y vµ cho kÕt qu¶ nh sau: Nhap vao so ngay :. 7. Nhap nhiet do ngay thu 1 : Nhap nhiet do ngay thu 2 : Nhap nhiet do ngay thu 3 : Nhap nhiet do ngay thu 4 :. 17 20 18 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.

<span class='text_page_counter'>(12)</span> * 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 m¶ng chia hÕt cho 3.. S :=0; 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..

<span class='text_page_counter'>(13)</span> 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..

<span class='text_page_counter'>(14)</span>