- Giáo viên sẽ kiểm tra tập và kỹ năng, thao tác thực hành ngay khi đi học lại.[r]
Trang 1Tin học 8
BÀI TẬP ÔN TẬP VỀ CÁC CÂU LỆNH LẶP
(Hướng dẫn HS cách viết chương trình từ for to do sang While do)
Tiết 1 – Tuần 30 Bài tập 1: Viết chương trình in ra màn hình số 123456 bằng vòng lặp for to do Sau đó chuyển sang viết bằng vòng lặp While do
Code
Program inso1;
Uses crt;
Var i: integer;
Begin
Clrscr;
For i:=1 to 6 do write(i);
Readln;
End
Program inso2;
Uses crt;
Var i: integer;
Begin Clrscr;
i:=1;
While i<=6 do begin Write(i);
i:=i+1;
end;
readln;
end
HS quan sát cách viết 2 chương trình, tự rút ra kết luận.
Bài tập 2: Viết chương trình tạo quả trứng rơi từ trên xuống.
Code
Program trung_roi_1;
Uses crt;
Var i: integer;
Begin
Clrscr;
For i:=1 to 20 do
begin
Writeln(‘0’);
Delay(500);
end;
Readln;
End
Program trung_roi_2;
Uses crt;
Var i: integer;
Begin Clrscr;
i:=1;
While i<=20 do begin Writeln(‘0’);
Delay(500);
i:=i+1;
end;
Readln;
End
Trang 2HS quan sát cách viết 2 chương trình, tự rút ra kết luận.
Bài tập 3: Nhập số nguyên n từ bàn phím Tính tổng các số nguyên lẻ từ 1 đến n
Code
Program tinh_tongle1;
Uses crt;
Var n, i, tong: integer;
Begin
Clrscr;
Write(‘Nhap n=’); Readln(n);
tong:=0;
For i:=1 to n do
If i mod 2<>0 then tong:=tong+i;
Writeln(‘Tong =’,tong);
Readln;
End
Program tin_tongle2;
Uses crt;
Var n, i, tong: integer;
Begin Clrscr;
Write(‘Nhap n=’); Readln(n);
Tong:=0;
i:=1;
While i<=n do
begin tong:=tong+i;
i:=2;
end;
Writeln(‘Tong=’,tong);
Readln;
End
HS lưu ý cách viết chương trình bằng câu lệnh While do của bài tập 3 rồi tự rút ra các kết luận sau:
Tất cả chương trình viết bằng vòng lặp for to do đều có thể chuyển sang vòng lặp While do và ngược lại?
Dặn dò:
- Học sinh ghi nội dung bài thực hành vào tập (Phần màu xanh dương).
- Học sinh thực hành lại 3 bài tập trên vào máy tính (ở nhà).
- Giáo viên sẽ kiểm tra tập và kỹ năng, thao tác thực hành ngay khi đi học lại.
GHI CHÚ
- Nội dung bài mới : màu xanh dương
- Bài giảng : màu đỏ