Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (98.3 KB, 2 trang )
<span class='text_page_counter'>(1)</span>Ngày soạn: 21/02/2010 Ngày dạy: 24/02/2010 Tiết: 35 BÀI TẬP I.Mục đích: + Củng cố lại những kiến thức đã học. + Vận dụng những kiến thức kỹ năng đã học vào giải các bài tập đúng, chính xác. + Học sinh yêu thích giải bài toán trong lĩnh vực tin học. II.Biện pháp: Dạy và học phát hiện và giải quyết vấn đề. III. Phương tiện: - GV: Sách bài tập và một số bài tập nâng cao. - HS: SGK, bút vở, nháp…. IV. Nội dung tiết dạy: 1. Ổn định tổ chức: 2. Tiến trình bài học: Hoạt động. Nội dung A./. Lý thuyết. Gv:Yêu cầu học sinh lên bảng nêu ? Nêu khái niệm, viết khai báo dữ liệu kiểu khái niệm và viết khai báo.. bản ghi. B./. B ài t ập.. - HS: Lên bảng viết khai báo.. Bài 8:. GV: Nhận xét cho điểm.. Chương tr ình sau thực hiện những gì? Program BT8;. GV: Chia học sinh thành từng nhóm Const Nmax = 50; giao bài.. Type Mass = array [1..Nmax-1] of real; Var A: Mass;. - Yêu cầu học sinh chạy thử chương I, j, N: Byte; C:real; trình.. Begin. - Cho hs chạy thử chương trình trên Write(‘Nhap N = ’); readln(N); với những bộ Input khác nhau.. For i:=1 to N do. Lop11.com.
<span class='text_page_counter'>(2)</span> For J:=0 to N-1 do ? Cho biết chương trình trên thực Begin hiện những công việc gì.. Write (‘A[‘,i,’,’,j,’] = ‘); readln (A[i,j]); End;. HS: Làm theo yêu cầu của GV.. For i:=1 to N do For J:=0 to N-1 do Begin C:=A[i,j]; A[i,j]:= A[N-i+1,j]; A[N-i+1,j]:=C; End; For i:=1 to N do Begin For j:=0 to N-1 do write(A[i,j]:5:2,’ ‘); Writeln; End; Readln End.. 3. Củng cố: Nhắc lại câu lệnh lặp với số lần chưa biết trước và lặp với số lần biết trước. 4. Dặn dò: Về nhà học bài và l àm tiếp các bài tập trong SGK trang 79.. Lop11.com.
<span class='text_page_counter'>(3)</span>