Đang tải... (xem toàn văn)
Hoạt động 2: Cài đặt được thuật toán một số bài toán đơn giản với kiểu dữ liệu mảng mét chiÒu a Môc tiªu: Cài đặt được thuật toán một số bài toán đơn giản với kiểu dữ liệu mảng một chiều[r]
(1) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 Bµi tËp (TiÕt PPCT: 22) Ngµy so¹n: Ngµy ®¨ng ký gi¸o ¸n: Người duyệt giáo án (TTCM duyệt, BGH duyệt): I Môc tiªu: KÜ n¨ng: - Khai báo biến mảng, cách tham chiếu đến phần tử mảng - Cài đặt thuật toán số bài toán đơn giản với kiểu liệu mảng chiều II ChuÈn bÞ: Gi¸o viªn: - ChuÈn bÞ gi¸o ¸n gi¶ng d¹y - Phòng máy, máy chiếu đa năng, cài đặt đầy đủ Turbo Pascal Häc sinh: S¸ch gi¸o khoa, bµi tËp III Tæ chøc d¹y vµ häc: Hoạt động 1: Rèn luyện kĩ khai báo biến mảng a Môc tiªu; RÌn luyÖn kÜ n¨ng khai b¸o biÕn m¶ng b»ng c¶ c¸ch trùc tiÕp vµ gi¸n tiÕp b Néi dung: Hoạt động giáo viên Hoạt động học sinh Bµi tËp 1: Khai b¸o mét biÕn m¶ng chiÒu gåm 100 phÇn tö cã gi¸ trÞ kiÓu Integer - Y/c HS lªn thùc hiÖn khai b¸o theo c¸ch trùc tiÕp - Gäi HS kh¸c nhËn xÐt - Y/c HS kh¸c lªn khai b¸o b»ng c¸ch gi¸n tiÕp - Gäi HS kh¸c nhËn xÐt GV chuÈn hãa l¹i bµi lµm Đọc đề, suy nghĩ để thực Var A: array[1 100] of integer; Type KA=array[1 10] of integer; Var A: KA; Bài tập 2: Khai báo bảng các số nguyên có Quan sát đề, thực kích thước 10x10 Var A: array[1 10,1 10] of integer; - Gäi HS lªn khai b¸o b»ng c¸ch trùc tiÕp HS nhËn xÐt Type KA=array[1 10,1 10] of integer; - Gäi HS khai b¸o b»ng c¸ch gi¸n tiÕp Var A: KA; HS kh¸c nhËn xÐt GV chuÈn hãa l¹i lêi gi¶i GV: §ç ThÞ Thu HiÒn Lop11.com (2) Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 Hoạt động 2: Cài đặt thuật toán số bài toán đơn giản với kiểu liệu mảng mét chiÒu a) Môc tiªu: Cài đặt thuật toán số bài toán đơn giản với kiểu liệu mảng chiều b) Néi dung: Bài tập: Lập chương trình nhập vào mảng chiều gồm N số nguyên (N<=100) đếm xem m¶ng cã bao nhiªu phÇn tö ©m c) Các bước tiến hành: Hoạt động giáo viên Hoạt động học sinh - Y/c HS xác định Input và Output bài toán - Ta đã biết cụ thể số lượng phần tử mảng hay cha? - Chương trình sử dụng biến nào? - Nêu ý tưởng bài toán? Chia lớp thành nhóm tương ứng làm công việc sau: + Khai báo cho chương trình + NhËp sè phÇn tö cho m¶ng + NhËp gi¸ trÞ c¸c phÇn tö m¶ng + §Õm sè phÇn tö < m¶ng - Gọi đại diện các nhóm lên thực - C¸c nhãm kh¸c nhËn xÐt - GV chuẩn hóa lại chương trình, chạy thử Chương trình: program Uses Const Var Bai_tap; crt; Nmax=100; a:array[1 Nmax] of integer; GV: §ç ThÞ Thu HiÒn Lop11.com Xác định Input, Output bài to¸n I: M¶ng chiÒu c¸c sè nguyªn O: Sè phÇn tö cã gi¸ trÞ < - Cha biÕt, chØ biÕt tèi ®a lµ 100 phÇn tö Suy nghÜ, tr¶ lêi + BiÕn m¶ng chiÒu gåm N phÇn tö (N<=100) + BiÕn N: sè phÇn tö cña m¶ng mçi lÇn nhËp vµo + Biến đếm i: dùng để để duyệt c¸c phÇn tö m¶ng + Biến d: dùng để đếm số phần tö ©m m¶ng - Duyệt các phần tử m¶ng vµ kiÓm tra nÕu a[i]<0 thì đếm - HS thùc hiÖn (3) -1 Gi¸o ¸n gi¶ng d¹y Bé m«n: Tin häc 11 N,i,d: integer; Begin clrscr; d:=0; Write('Nhap so phan tu N: '); Readln(N); for i:=1 to n readln(a[i]); for i:=1 to n If a[i] < then d:=d+1; Writeln('So phan tu co gia tri am la: ',d:4); Readln End IV Cñng cè: - C¸ch khai b¸o vµ sö dông m¶ng - Lập chương trình giải số bài toán đơn giản có sử dụng kiểu liệu mảng GV: §ç ThÞ Thu HiÒn Lop11.com (4)