SGK + Giáo án + phịng máy
III. Tiến trình tiết dạy:
1. Ổn định lớp.
2. Bài mới
Hoạt động của Giáo viên và học sinh Nội dung
Giáo viên nêu bài tốn Hs ghi bài
Gv: xác định Input, Output của bài tốn? Hs: trả lời câu hỏi
Gv: nêu cú pháp khai báo mảng 1 chiều? Hs: trả lời câu hỏi
Gv yêu cầu hs khai báo mảng A gồm N (n ≤ 100) số nguyên
Gv gọi 1 hs lên bảng khai báo Hs lên bảng khai báo mảng A
Gv: Phép tốn kiểm tra tính lẻ của 1 số? Hs: trả lời câu hỏi
Gv yêu cầu 1 hs lên bảng viết chương trình.
Hs lên bảng viết chương trình
Gv yêu cầu hs khác nhận xét Gv sửa bài, đánh giá và cho điểm. Gv nêu bài tốn
Hs ghi bài
Gv: xác định Input, Output của bài tốn? Hs: trả lời câu hỏi
Bài tốn 1: Viết chương trình tạo mảng A gồm N (n ≤ 100) số nguyên, in ra màn hình các số nguyên lẻ.
Program Bt1; Uses crt;
Var A: array[1..10] of byte;
i, n: byte;
BEGIN
Write(‘Moi nhap so phan tu cua mang:’); readln(n); for i:=1 to n do BEGIN write(‘A[‘,i,’]=’); readln(A[i]); end; for i:=1 to n do
if A[i] mod 2 = 1 then write(A[i]:3); readln;
End.
Bài tốn 2: Viết chương trình tạo mảng A gồm N (n ≤ 100) số nguyên, tính giá trị trung bình các phần tử và in kết quả ra màn hình.
Gv: tính giá trị trung bình của n phần tử? Hs: trả lời câu hỏi
Gv yêu cầu 1 hs lên bảng viết chương trình.
Hs lên bảng viết chương trình
Gv yêu cầu hs khác nhận xét Gv sửa bài, đánh giá và cho điểm.
Uses crt;
Var A: array[1..10] of byte;
i, n, S: byte; tb: real;
BEGIN
Write(‘Moi nhap so phan tu cua mang:’); readln(n); for i:=1 to n do BEGIN write(‘A[‘,i,’]=’); readln(A[i]); end; for i:=1 to n do BEGIN S:=S + A[i]; Tb:= S/n; End;
Write(‘gia tri trung binh cua mang la tb=’, tb:6:2);
readln;
End.
3. Củng cố:
- Cách khai báo, nhập/xuất dữ liệu cho mảng.
- Xác định input, output của bài tốn -> ý tưởng -> viết chương trình - Xem lại nội dung bài học
4. Dặn dị:
Bài 10/ sgk tr80: