Tải bản đầy đủ (.doc) (2 trang)

tuan 21: bai tap

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 (53.79 KB, 2 trang )

BÀI TẬP
I. Mục tiêu
- Sử dụng cấu trúc lặp để làm 1 số bài tập đơn giản.
- Rèn luyện kó năng sử dụng lệnh lặp, nhận dạng 1 bài tập khi nào sử dụng câu lệnh lặp.
- Nâng cao kó năng viết chương trình.
II. Chuẩn bò
- Gv : SGK
- HS : xem bài .
III. Tiến trình dạy
1.n đònh tổ chức
Lớp 8/1 ss……….v……………………………………………………………………………………………………………………………………………….
Lớp 8/2 ss……….v……………………………………………………………………………………………………………………………………………….
Lớp 8/3 ss……….v……………………………………………………………………………………………………………………………………………….
2. Hoạt động dạy.
Hoạt động giáo viên Hoạt động của hoc sinh
Hoạt động 1 : Kiểm tra bài cũ
Cấu trúc lặp sử dụng làm gì?Lợi ích khi sử dụng câu lệnh lặp?
Câu lệnh lặp biết số lần lặp có mấy dạng? Viết cú pháp và nêu rõ ý nghóa?
Hoạt động 2 : Bài tập
Hs thực hiện viết lại chương các ví dụ sgk
Bài 1: Tính tổng bậc 3 của N số tự nhiện đầu
tiên
Bài : Viết chương trình tạo hình vuông
Sử dụng vòng lặp for lòng for
* * * * … *
n * * * * …*
……
* * * * …*
Bài 3 :Viết chương trình tạo ra tam giác vuông
*
* *



* *… *
Hs thực hiện
Program Tong_bac_ba;
Var k,n:Byte; s:Longint;
Begin
Writeln(Tính tổng bậc 3 của N số tự nhiện đầu tiên'');
Write('-Nhap so N= ');
Readln(n);
S:=0;
For k:=1 To N Do
S:=S+(k*k*k);
Writeln('+Tong bac 3 cua ',n,' so nguyen dau tien =
',s);
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
End.
Program hinhvuong;
Var I,j,n:integer ;
Begin
Write(‘ nhap canh hinh vuong :’)
;readln(n);
For i:= 1 to n do
begin
For j:= n downto 1 do write(‘ * ‘);
writeln;
end;
Tuần 21- tiết 41,42
Ngày soạn : 10/01/2009
Ngày dạy : 12/01/2009

Bài4: Tìm số lớn nhất trong dãy số
Readln;
end.
Program tamgiac;
Var I,j,n:integer ;
Begin
Write(‘ nhap chieu cao tam giac:’);readln(n);
For i:= 1 to n do begin
For j:= 1 to i do write(‘ * ‘); writeln; end;
Readln; end.
Program solon;
Var i,n:Byte;
so,solon:Integer;
Begin
Write('-Muon nhap bao nhieu so: ');
Readln(n);
i:=1;
Write('-So thu ',i,' = ');
Readln(so);
solon:=so;
For i:=2 To N Do
Begin
Write('-So thu ',i,' = ');
Readln(so);
If solon < so Then
solon:=so;
End;
Writeln;
Writeln('+So lon nhat trong ',n,' so vua nhap la so:
',solon);

Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
3. Củng cố: từng phần
4. Dặn dò
- Làm lại các bài tập, xem BTH 4
IV Rút Kinh nghiệm
………………………………………………………………………………………………
………………………………………………………………………………………………
………………………………………………………………………………………………
…………………

Tài liệu bạn tìm kiếm đã sẵn sàng tải về

Tải bản đầy đủ ngay
×