Bai8

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

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
*
* *
…
* *… *












Bài4: Tìm số lớn nhất trong dãy số

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 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;
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 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