tuan 21: bai tap

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ì

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.Oå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

………

………

………

………