Đang tải... (xem toàn văn)
- 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]
(1)Tin học
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 sang While do) Tiết – Tuần 30
Bài tập 1: Viết chương trình in hình số 123456 vịng lặp for to do Sau chuyển sang viết vòng lặp While do
Code
Program inso1; Uses crt;
Var i: integer; Begin
Clrscr;
For i:=1 to write(i); Readln;
End
Program inso2; Uses crt;
Var i: integer; Begin
Clrscr; i:=1;
While i<=6 begin
Write(i); i:=i+1; end;
readln; end
HS quan sát cách viết chương trình, tự rút kết luận.
Bài tập 2: Viết chương trình tạo trứng rơi từ xuống. Code
Program trung_roi_1; Uses crt;
Var i: integer; Begin
Clrscr;
For i:=1 to 20 begin
Writeln(‘0’); Delay(500); end;
Readln; End
Program trung_roi_2; Uses crt;
Var i: integer; Begin
Clrscr; i:=1;
While i<=20 begin
Writeln(‘0’); Delay(500); i:=i+1; end;
(2)HS quan sát cách viết chương trình, tự rút kết luận.
Bài tập 3: Nhập số nguyên n từ bàn phím Tính tổng số nguyên lẻ từ đế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
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 begin
tong:=tong+i; i:=2;
end;
Writeln(‘Tong=’,tong); Readln;
End
HS lưu ý cách viết chương trình câu lệnh While tập tự rút kết luận sau:
Tất chương trình viết vòng lặp for to chuyển sang vịng lặp While ngược lại?
Dặn dò:
- Học sinh ghi nội dung thực hành vào tập (Phần màu xanh dương). - Học sinh thực hành lại tập vào máy tính (ở nhà).
- Giáo viên kiểm tra tập kỹ năng, thao tác thực hành học lại. GHI CHÚ
- Nội dung : màu xanh dương - Bài giảng : màu đỏ
- Bài tập : màu đen