Giáo án Tin học 8 - Tuần 22+23 - Năm học 2020-2021 - Hồ Thị Bích Trâm

 [Giáo án tin 8. NH: 2020-2021]
Tuần 22, 23:
Tiết: 43, 44, 45
 Chủ đề: THỰC HÀNH CÂU LỆNH LẶP FORDO
 I. MỤC TIÊU:
 - Viết chương trình Pascal có câu lệnh fordo
 - Tiếp tục nâng cao kỹ năng đọc và tìm hiểu chương trình
 II. TÓM LƯỢT LÝ THUYẾT: 
 1. B ài thực hành 5 (tt)
 Bài tập 2: Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình 
 (Sgk trang 61)
 a) Chỉnh sửa câu lệnh lặp của chương trình sau:
 For i:=1 to 10 do
 Begin
 GotoXY(5,WhereY);
 Writeln(N, ’ x ’, i:2, ’=’, N*i:3);
 Writeln;
 Readln
 End; 
 * Lưu ý:
 - Chỉ sử dụng các lệnh GotoXY, WhereX và WhereY sau khi khai báo thư 
 viện crt của Pascal.
 - Màn hình máy tính được chia thành các cột và các hàng, được tính đầu từ 
 góc trên, bên trái. Câu lệnh GotoXY(a,b) có tác dụng đưa con trỏ về cột a, hàng b.
 - WhereX cho biết số thứ tự của cột và WhereY cho biết số thứ tự của hàng. 
 Ví dụ: GotoXY(5,whereY) đưa con trỏ về cột 5 của hàng hiện tại.
 b) Dịch và chạy chương trình với các giá trị gõ vào từ bàn phím. Quan sát kết 
 quả nhận được trên màn hình.
GV: Hồ Thị Bích Trâm
 1 [Giáo án tin 8. NH: 2020-2021]
 2. Bài tập thực hành:
Bài 1: Tính xn (Với n là số nguyên không âm).
Program TINH_X_LUY_THUA_N;
 Uses crt;
 Var i,n,x:integer;
 lt:real;
 begin
 writeln(‘tính luy thừa x mu n:’);
 writeln(‘nhập x:’); readln(x);
 writeln(‘nhập n:’); readln(n);
 lt:= 1;
 for i:=1 to n do lt:=lt*x;
 writeln(‘ x^n :’,lt);
readln
end.
Bài 2: Viết chương trình nhập n nguyên dương và tính:
S=1+1/2+1/3++1/n
Var I, n:integer;
Ketqua:real;
Begin
Writeln(‘nhap vao so n=’); readln(n);
Ketqua:=0;
For i:=1 to n do
GV: Hồ Thị Bích Trâm
 3 [Giáo án tin 8. NH: 2020-2021]
Tuần 23
Tiết: 46
 Chủ đề: CÂU LỆNH LẶP WHILE...DO
 I. MỤC TIÊU:
 - Biết cấu trúc lặp với số lần không xác định trước
 - Sử dụng câu lệnh lặp với số lần chưa biết trước While..do
 II. TÓM LƯỢT LÝ THUYẾT: 
 * Giới thiệu bài:
 Trong bài trước chúng ta đã làm quen với các hoạt động lặp và cách chỉ thị 
cho máy tính thực hiện các hoạt động lặp với số lần đã được xác định trước. Tuy 
nhiên, trong thực tế có nhiều hoạt động được thực hiện lặp đi lặp lại với số lần 
chưa biết trước.
 Ví dụ: Bạn Long gọi điện hẹn bạn Trang tới thăm nhà cô giáo cũ vào chủ 
nhật tới. Long quyết định cứ 10 phút gọi điện một lần cho Trang cho đến khi có 
người thưa máy. Rõ ràng không thể biết trước được Long phải gọi đến nhà Trang 
mấy lần. Điều kiện để kết thúc hoạt động lặp đó là có người thưa máy.
 Khi viết chương trình máy tính cũng vậy, để chỉ dẫn máy tính thực hiện 
đúng công việc, trong nhiều trường hợp ta cần phải yêu cầu máy tính thực hiện một 
số câu lệnh nhất định nhiều lần.
 1. Lệnh lặp với số lần chưa biết trước:
 Ví dụ 1:SGK trang 63
 Thuật toán:
 - Bước 1. S  0, n  0.
 - Bước 2. Nếu S ≤ 1000 thì chuyển tới bước 3; ,; ngược lại (S>1000) chuyển tới 
 bước 4.
 -Bước 3. nn+1;S  S + n và quay lại bước 2.
 -Bước 4. In kết quả : S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc 
 thuật toán.
GV: Hồ Thị Bích Trâm
 5