1. Trang chủ
  2. » Giáo án - Bài giảng

tuan 21: bai tap

2 308 0
Tài liệu đã được kiểm tra trùng lặp

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 2
Dung lượng 35 KB

Nội dung

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

Ngày đăng: 12/06/2013, 01:25

Xem thêm

TỪ KHÓA LIÊN QUAN

w