- Cõu hỏi: ?Em hóy cho biết phần mềm Sun Time dựng để làm gỡ?
SỬ DỤNG LỆNH LẶP FOR DO I MỤC TIấU:
4 Tớnh tổng và tớch bằng cõu lệnh lặp
SỬ DỤNG LỆNH LẶP FOR DO I MỤC TIấU:
I. MỤC TIấU:
1. Kiến thức:
- Hiểu Hoạt động của cõu lệnh lặp với số lần biết trước for...do trong Pascal
2. Kĩ năng:
- Viết được chương trỡnh cú sử dụng vũng lặp for...do; - Sử dụng được cõu lệnh ghộp;
- Rốn luyện kĩ năng đọc hiểu chương trỡnh cú sử dụng vũng lặp for...do.
3. Thỏi độ:
- Cú ý thức, kỉ luật, nghiờm tỳc, trỡnh bày một vấn đề chặt chẽ, rừ ràng.
II. CHUẨN BỊ:
1. Giỏo viờn:
- KHDH, Tài liệu chuẩn kiến thức kỷ năng, SGK, SGV.
2. Học sinh:
- Vở ghi, SGK, kiến thức bài cũ.
III. TIẾN TRèNH LấN LỚP:
1. Ổn định lớp:
- Kiểm tra sĩ số - Ổn đỡnh trật tự
2. Kiểm tra bài cũ:
Cõu hỏi: ? Nờu cấu trỳc cõu lệnh lặp đơn, cõu lệnh lặp ghộp, cú biết ý nghĩa của cõu lệnh lặp
3. Dạy bài mới:
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG
Hoạt động 1 : Bài tập 1
GV: giành thời gian 15 phỳt để HS lập trỡnh bài toỏn đó làm Bài 1 HS : đọc đề GV :? Nờu cỏch giải? HS : nờu phương ỏn GV :?Cần nhõn 1 số với cỏc số từ 1 đền 10. Gọi số đú là số N ta sẽ sử dụng vũng lặp xỏc định từ giỏ trị đầu đến giỏ trị cuối là bao nhiờu?
HS : từ 1 đến 10
GV :? yờu cầu mở rộng: in ra tất cả bảng cửu chương từ 1 đến 10? Bài 1( SGK) uses crt; var N,i:integer; begin clrscr; write('Nhap so N='); readln(N); writeln; writeln('Bang nhan ',N); writeln;
for i:=1 to 10 do writeln(N,' x ',i:2,' = ',N*i:3);
readln end.
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG
HS : nờu phương ỏn
GV :? giỏ trị N lỳc này cú phải nhập nữa khụng? HS : khụng
GV :?Giỏ trị N chạy từ bao nhiờu đến bao nhiờu? HS : từ 1 đến 10
GV : =>Vậy ta cần một vũng lặp N từ 1 đến 10 GV: yờu cầu HS làm thành hai bài khỏc nhau HS : lập trỡnh và chạy chương trỡnh (adsbygoogle = window.adsbygoogle || []).push({});
GV : ? Quan sỏt kết quả nhận được? Kết quả cú dễ dàng quan sỏt khụng?
HS : sửa theo hướng dẫn của GV. GV :? Thực hiện bài 2
GV :? Để kết quả trụng dễ nhỡn ta sử dụng Cõu lệnh GotoXY(a, b) cú tỏc dụng đưa con trỏ về cột a,
hàng b. WhereX cho biết số thứ tự của cột và WhereY cho biết số thứ tự của hàng đang cú con
trỏ. Vớ dụ GotoXY(5,WhereY) đưa con trỏ về vị trớ cột 5 của hàng hiện tại.
HS : Dịch và chạy chương trỡnh GV: Giỳp HS sửa một số lỗi
uses crt; var N,i:integer; begin clrscr; writeln('Bang nhan ',N); writeln; for N:=1 to 10 do
for i:=1 to 10 do writeln(N,' x ',i:2,' = ',N*i:3);
readln end.
Chỉnh sửa cõu lệnh lặp của chương trỡnh như sau:
for i:=1 to 10 do begin
GotoXY(5,WhereY); writeln(N,' x ',i:2,' = ',N*i:3); writeln
end;
Hoạt động 2 : Bài tập 2
Hoạt động 1 : nội dung
- Tương tự như bài 1, GV cho HS gừ bài làm của mỡnh ở nhà vào mỏy.
- HS thực hiện theo yờu cầu của GV.
- GV quan sỏt trờn mỏy HS và chữa lại chỗ sai. - HS quan sỏt và theo dừi
- GV cho HS chữa bài vào vở
- HS ghi bài vào vở
Bài 2: Viết chương trỡnh tỡm xem
cú bao nhiờu số dương trong n số nhập vào từ bàn phớm?
Program tinh_so_cac_so_duong; Uses crt;
Var i,A, dem, n: integer; Begin Clrscr; Dem:=0; Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n do begin writeln(‘nhap vao so thu’,i); readln(A);
if A>0 then dem:=dem+1; end;
Writeln(‘So cac so duong la’,dem);
Readln; End.