Giáo án môn Tin học lớp 11 bài 26

Hoạt động của thầy và trò

Nội dung

Hoạt động 1: Lập trình giải quyết bài toán 2 (30 phút)

B1: chuyển giao nhiệm vụ học tập.

GV nêu yêu cầu của bài toán.

Chia lớp theo nhóm thảo luận.

GV: Chia HS thanh 4 nhóm (lấy HS theo tổ trong lớp)

GV: Giới thiệu bài 1 cho HS đọc đề:

- Yêu cầu HS xác định dữ liệu đầu vào, đầu ra.

- Ý tưởng giải bài toán.

HS: - Dãy số nguyên gồm n phần tử, số nguyên K

- dùng thuật toán tìm kiếm tuần tự.

- dãy số nguyên gồm n phần tử

- tương tự bài toán 1b.

B2: Thực hiện nhiệm vụ học tập

HS thảo luận nhóm.

GV quan sát giúp đỡ HS gặp khó khăn.

GV: Yêu cầu HS phân tích bài toán, viết các đoạn chương trình thực hiện việc khai báo, nhập mảng A, kiểm tra một phần tử có bằng K hay không? (Thực hiện theo nhóm)

HS: Thực hiện theo yêu cầu của GV.

B3: Báo cáo kết quả thảo luận.

Các nhóm báo cáo kết quả thảo luận.

GV: Cho HS ghép các đoạn lệnh tạo nên chương trình.

B4: Đánh giá kết quả thực hiện nhiệm vụ học tập

GV nhận xét kết quả thực hiện nhiệm vụ của các nhóm và chính xác hóa kiến thức.

Hoạt động 2: Mô phỏng việc thực hiện chương trình (10p)

GV: yêu cầu học sinh mô phỏng việc thực hiện chương trình?

HS: Dãy A gồm 5 phần tử: 1 5 6 12 5

Nhập số cần tìm: 5

Các vị trí của 5 là: 2 5

- Dãy A gồm: 5 13 4 7 2 10

Tích các số chẵn là: 80

Bài 2: Nhập vào 1 dãy số nguyên gồm N phần tử (N <= 100)

a. Nhập vào số nguyên K, tìm xem K có trong dãy không? Nếu có thì đưa ra các vị trí của nó trong dãy. Nếu không thì thông báo “Không tìm thấy”.

Vd: Dãy A gồm 5 phần tử: 1 5 6 12 5

Nhap so can tim: 5

Cac vi tri cua 5 la: 2 5

b. Tính tích các số chẵn trong dãy

Dãy A gồm: 5 13 4 7 2 10

Tich cac so chan la: 80

Chương trình

uses crt;

var a: array[1..100] of integer;

i,n,dem,k: integer;

begin

writeln('nhap sl phan tu: ');

readln(n);

for i:=1 to n do

begin

writeln('nhap so thu: ',i,' ');

readln(a[i]);

end;

write('nhap so can tim: ');

readln(k);

writeln('cac vi tri cua ',k,' la: ');

for i:=1 to n do

if a[i] = k then

begin

write(i:4);

dem:=dem+1;

end;

writeln; {xuong dong}

if dem = 0 then writeln('khong tim thay vi tri nao');

tich:=1;

for i:=1 to n do

if a[i] mod 2 =0 then tich:=tich*a[i];

writeln('tich cac so chan la: ',tich);

readln;

end.