dãy số nguyên dương, in ra màn hình các số nguyên tố (cĩ sử dụng CT con Nguyento). Program Vidu3; Var i,k:byte; a:array[1..50] of word; Function Nguyento(n:Word):boolean; var i,slch:byte; BEGIN slch:=0; For i:=1 to n do if n mod i = 0 then slch:=slch+1; if slch=2 then nguyento:=true else nguyento:=false; end; BEGIN
Write('Cho biet so luong so cua day:'); readln(k);
For i:=1 to k do BEGIN
Write('Nhap vao so thu ',i,':'); readln(a[i]);
end;
For i:=1 to k do
if nguyento(a[i]) then write(a[i]:4); readln;
END.
3. Củng cố: Cấu trúc của hàm, lời gọi hàm.
Bài 1: Viết chương trình tính Cnk (cĩ sử dụng chương trình con tính LT và tính tổ hợp C).
Bài 2: Viết chương trình tính tổng S= 1
n i i x (cĩ sử dụng CT con tính LuyThua).
Bài 3: Viết chương trình nhập vào một dãy số nguyên A gồm N số. Sau đĩ in ra màn
Ngày soạn: 29-03-2017 Tiết PPCT: 44
BÀI TẬP (Tiết 1) I. MỤC TIÊU
1. Kiến thức:
- Rèn luyện các thao tác viết và sử dụng chương trình con (hàm và thủ tục).
2. Kĩ năng:
- Nhận biết được các thành phần trong đầu của thủ tục.
- Nhận biết được 2 loại tham số hình thức trong đầu của thủ tục.
3. Thái độ
- Ham thích mơn học, cĩ tính kỷ luật cao.
II. PHƯƠNG TIỆN
- Giáo viên: Giáo án, sách giáo khoa, bảng, phấn, tài liệu,... - Học sinh: Vở ghi, sách giáo khoa tin học 11, bút, ...
III. TIẾN TRÌNH TIẾT DẠY1. Kiểm tra bài cũ: 1. Kiểm tra bài cũ:
Câu hỏi: Nêu cấu trúc của hàm và thủ tục? Trả lời: - Cấu trúc thủ tục:
Procedure <Tên thủ tục>[(<DS tham số>)]; [<Phần khai báo>]
BEGIN
[<Dãy các lệnh>] End;
- Cấu trúc của hàm:
Function <Tên hàm>[(<DS tham số>)]:<kiểu dữ liệu>; [<Phần khai báo>] BEGIN [<Danh sách các lệnh>]; <Tên hàm>:=<giá trị trả về>; End; 2. Kết nối
Hoạt động của GV và HS Nội dung
GV: nêu câu hỏi
HS: Lên bảng trả lời câu hỏi
GV: Nhận xét đánh giá và cho điểm GV: Nêu nội dung tiết chữa bài tập
+ Hỏi bài cũ
Em hãy nêu cấu trúc của chương trình con ở hai dạng hàm và thủ tục
Bài 1: Viết chương trình bằng thủ tục kiểm tra xem ba số nguyên dương a, b, c cĩ tạo thành tam giác khơng?
Chương trình
Program Tam_giac; Var a, b, c: Integer;
Procedure KT(a,b,c:Integer); Begin
GV: Hướng dẫn phương pháp và gọi HS lên bảng làm bài HS: Lên bảng làm bài If(a>0)and(b>0)and(c>0)and(a+b>c) and(b+c>a)and(c+a>b) then
Write(‘Tao thanh tam giac’) Else
Write(‘Khong tao thanh tam giac’); End;
Begin
Write(‘Nhap 3 canh cua tam giac:=’); Readln(a,b,c);
Write(‘3 canh’,KT(a,b,c)); Readln
End.
3. Củng cố: Cấu trúc của hàm, lời gọi hàm. 4. Bài tập về nhà: