... TRƯỚC SGK Ví dụ 1: Ví dụ 2: Tính đưa kết hình: S =1+2+3+ …; Cho đến S≥ 20 Có gi ng toán Tìm thuậbiết i cho t giLặpvớisốlần bàigtoán trước khôn ? Cụ thể thuật toán theo ngôn ngữ tự nhiên: ... B2a: S ← S+i B2b: i ← i+1; → B2 B3: Đưa S hình; B4: Kết thúc Var S,i:Integer; Begin S:=0; i:=1; While S DO Câulệnhlặp thực sau: Thường 1./ Kiểm tra:nh đơnkhoácâu lệnh ghép n Lệ Điều ki so sánh hay Từ p phé 2./ Nếu điều kiện sai, câulệnh bò bỏ qua kết thúc vòng lặp Nếu điều kiện đúng,...
... TRƯỚC SGK Ví dụ 1: Ví dụ 2: Tính đưa kết hình: S =1+2+3+ …; Cho đến S≥ 20 Có gi ng toán Tìm thuậbiết i cho t giLặpvớisốlần bàigtoán trước khôn ? Cụ thể thuật toán theo ngôn ngữ tự nhiên: ... B2a: S ← S+i B2b: i ← i+1; → B2 B3: Đưa S hình; B4: Kết thúc Var S,i:Integer; Begin S:=0; i:=1; While S DO Câulệnhlặp thực sau: Thường 1./ Kiểm tra:nh đơnkhoácâu lệnh ghép n Lệ Điều ki so sánh hay Từ p phé 2./ Nếu điều kiện sai, câulệnh bò bỏ qua kết thúc vòng lặp Nếu điều kiện đúng,...
... S:=S+1/(a+N); N:=N+1 UNTIL 1/(a+N)< 0.0001; {Bat dau lap} {Ket thuc lap} Writeln(‘Gia tri cua tong S = ‘,S:8:3); Readln; END Trường THPT Cao Lãnh - Tổ: Toán_Tin - Gi o viên: Lê 12 Những nội dung cần đạt Lặp ... lệnh For-do a Dạng lặp tiến: For := to Do ; b Dạng lặp lùi: For := downto Do ; Lặpvớilầnchưa ... Toán_Tin - Gi o viên: Lê c Một số ví dụ Ví dụ 1: Tính gi trị tổng S, với a số nguyên a>2 S= 1 1 + + + + + cho đên < 0,0001 a a +1 a + a+N a+N Nhận xét Chừng 1/(a+N)>=0.0001 thực hiện: + Tăng gi ...
... Vớigi trị n ( n>o ) < 0.005 < n n 0.003? Chương trình tính số n nhỏ để n nhỏ sai số cho trước : uses crt; var x: real; n: integer; const sai _so= 0.003; begin clrscr; x:=1; n:=1; while x>=sai _so ... const sai _so= 0.003; begin clrscr; x:=1; n:=1; while x>=sai _so begin n:=n+1; x:=1/n end; writeln( 'So n nho nhat de 1/n < ',sai _so: 5:4, 'la ',n); readln end Củng cố: - Lấy ví dụ hoạt động phải lặp ... chép + Gv : Xét ví dụ n nhỏ, luôn lớn Vớigi 1 trị n < 0.005 < 0.003 ? n n ( Gv đưa phim ví dụ ) + Hs : Đọc ví dụ + G : gi i thiệu chương trình mẫu sgk ( Gi o viên in chương trình mẫu trên) + Hs...
... kiện sai _so = 0.003 thành 0.002 ; 0.001 ; 0.005 ; const sai _so= 0.003; begin clrscr; x:=1; n:=1; while x>=sai _so begin n:=n+1; x:=1/n end; writeln( 'So n nho nhat de 1/n < ',sai _so: 5:4, 'la ',n); ... 1000 la ',n); begin writeln('Tong dau tien > 1000 S:=0; n:=0; while S 20 la ',n); end n n writeln('Tong dau tien > 20 la ... hoa ̣t đô ̣ng điề u khiể n III CHUẨN BỊ Gi o viên: Gi o trình, bảng phụ, máy tính, máy chiếu (nếu có) Học sinh: Kiến thức cũ, sách, IV - TIẾN TRÌNH BÀI GI NG - ỔN ĐỊNH - KIỂM TRA BÀI CŨ: HĐ CỦA...
... := To Do ; GV: Em cho cô biếtgi trị đầu, gi trị cuối câulệnh gì? Hs: - Gi trị đầu: - Gi trị cuối: 100 Var S,n: integer; Begin S:=0; n:=0; ... S1000 la ,n); Writeln (‘Tong dau tien >1000 la ,S); Readln End Ví dụ 5: SGK Program vidu5_1; Var i: integer; T: real; Begin T:=0; ... Các em quan sát thấy câulệnhgi ng Nếu cô thay i=1,2,… tổng S thay lệnh S S+? HS: S S+i GV: Lệnh S S+i lặp lại lần? HS: Không biết GV: Ta sử dụng câulệnhlặp để gi i toán? HS: Lệnhlặp while…do…...
... (Sgk) var S,n: integer; Begin S:=0; n:=0; Hãy nêu Cú Pháp câulệnhlặp while Sb’); a:=a-1; End; Trong : While, từ khóa Điều kiện a>b (chứa phép so sánh) Câulệnh Write(‘a>b’) ... Câu hỏi - Hãy nêu cú pháp câulệnhlặp For…Do KIỂM TRA BÀI CŨ Cú pháp: For := to ; VD1: Viết chương trình tính tổng số tự nhiên từ đến 100 S =1...
... S,n: integer; Begin S:=0; n:=0; while S1000’); Readln; End Tong S= 1035 va 45 laso tu nhien nho ... Điều kiện ab Begin write(‘a>b’); a:=a-1; End; Trong : While, từ khóa Điều kiện a>b (chứa phép so sánh) Câulệnh Write(‘a>b’) ... While ; Điều kiện: biểu thức quan hệ biểu thức logic Câu lệnh: mơt câulệnh Pascal (có thể câulệnh đơn gi n hay câulệnh ghép) Ví dụ lệnhlặpvớisốlầnchưabiếttrước Quan...
... var x: real; n: integer; const sai _so= 0.003; begin clrscr; x:=1; n:=1; while x>=sai _so begin n:=n+1; x:=1/n end; writeln( 'So n nho nhat de 1/n < ',sai _so: 5:4, 'la ',n); readln end Tiết + G : Y/c ... : Gi i thiệu cú pháp lệnhtrước có dạng: while … ….; while ; + hs : ý nghe ghi chép đó: - điều kiện thường phép so sánh; - câulệnhcâulệnh đơn gi n hay câulệnh ghép Gi o ... G : so sánh kết chạy hai chương trình + Hs : Kết Gi o viªn: Ph¹m TuÊn Anh Ví dụ Chương trình Pascal thể thuật toán tính số n ví dụ 2: var S,n: integer; begin S:=0; n:=1; while S
... cặp từ khóa Begin end – Gọi HS đọc tập – Cá nhân HS đọc (?) Bài tốn u cầu làm gì? Bài tập (SGK/71) – Tìm sốlầnlặpgi trị S kết thúc – GV treo bảng thuật tốn a) Thuật tốn gọi HS gi i thích ý ... real; chương trình phụ, treo lên bảng Begin S := 10; x := 0.5; Bài tập Trường Trung học Cơ sở Phường Gi o án Tin học While S>5.2 S := S - x; Writeln(‘Gia tri cua S: ’, S:5:2); End – Gọi nhóm ... phải để chương trình? cặp Begin end – GV chốt ý – Các câulệnh ghép phải để cặp từ khóa Begin end – Khi thực vòng lặp, – HS ghi nhận điều kiện cần phải thay đổi để gi trị chuyển từ sang sai,...
... HOẠT ĐỘNG CỦA THẦY & TRÒ NỘI DUNG Hoạt động 1: Gi i thiệu Gv: Ở trước em học câulệnhlặpvớisốlầnlặpbiếttrước Nhưng có hoạt động lặp mà số ... LẶPVỚISỐLẦN Gv: Vậy lặpvớisốlầnchưabiếttrướcCHƯABIẾTTRƯỚC Pascal sử dụng câulệnh để gi i tóan sốlầnlặpchưabiếttrước Cô em sang Hoạt động 2: Hs làm quen với hoạt động lặpvới số...
... Vớigi trị n để 1/n < 0.003 ? Viết chương Trình tính số n nhỏ để 1/n nhỏ sai số cho trước Uses crt; Var x:Real; n:Integer; Const Si _So= 0.003; Begin Clrscr; x:=1; n:=1; While x >= Sai _So Begin ... số ví dụ Var S,n:Integer; Begin S:=0; n:=1; While S 1000 la ‘,n); Writeln(‘Tong dau tien lon hon n la ‘,S); Readln; End Tuần ... Begin Clrscr; x:=1; n:=1; While x >= Sai _So Begin n:=n+1; x:=1/n; End; Writeln( So n nho nhat de 1/n < ‘,Sai _So: 6:4, ‘ la ‘,n); Readln; End Tuần 28 Tiết 55 Bài Lặpvớisốlầnchưabiếttrước Ví...
... Vớigi trị n để 1/n < 0.003 ? Viết chương Trình tính số n nhỏ để 1/n nhỏ sai số cho trước Uses crt; Var x:Real; n:Integer; Const Si _So= 0.003; Begin Clrscr; x:=1; n:=1; While x >= Sai _So Begin ... số ví dụ Var S,n:Integer; Begin S:=0; n:=1; While S 1000 la ‘,n); Writeln(‘Tong dau tien lon hon n la ‘,S); Readln; End Bài Lặp ... Begin Clrscr; x:=1; n:=1; While x >= Sai _So Begin n:=n+1; x:=1/n; End; Writeln( So n nho nhat de 1/n < ‘,Sai _So: 6:4, ‘ la ‘,n); Readln; End Bài Lặpvớisốlầnchưabiếttrước Ví dụ lệnhlặp với...
... lƯnh nhËp tªn vµ hiĨn thÞ mµn h×nh lêi chµo cho c¸c b¹n líp Gi sư líp cã 40 b¹n §¸p ¸n Cú pháp: For := to ; Đoạn chương trình 23 30 29 26 28 10 ... while S 1000 la: ’,S); Writeln( So n nho nhat cho tong >1000 la: ’n); Readln; End Câu CâuCâuCâu Học sinh thảo luận theo nhóm (3 bàn ... integer; Begin S ← 0, n ← Nếu S≤1000, n ← n+1; Ngược lại, chuyển tới bước S ← S + n quay lại bước In kết quả: S n số tự nhiên nhỏ cho S>1000 Kết thúc thuật tốn S:=0; n:=0; while S
... gi i toán? Ta sử dụng câulệnhcâulệnh gì? Ví dụ lệnhlặpvớisốlầnchưabiếttrước Program vidu4; Var T,n: integer; Begin T:=0; n:=0; While T1000 la ,T); Readln End 2 Ví dụ lệnhlặpvớisốlầnchưabiếttrước Ví dụ 5: Tính ... i=1, 2, 3,…,100 tổng gi i bàibằng lệnh gì? Ta sử dụng câulệnh để T thay toán? Ví dụ lệnhlặpvớisốlầnchưabiếttrước Ví dụ 5: Program vidu5_1; Var i: integer; T: real; Begin T:=0; For i:=1...
... (BTĐK): biểu thức logic cho gi trị TRUE FALSE - Lệnh: Làlệnh (Công việc) mà chương trình phải thực * Chú ý: Nếu sau DO có nhiều lệnh (Từ hai lệnh trở lên) phải đặt lệnh Begin End; BACK Hoạt ... chương trình hiển thị hình chữ số tự nhiên Mô tả Gi i n:=0; While (n
... sai _so= 0.003; 0.005 < n begin 0.003 ? clrscr; ( Gv đưa phim x:=1; n:=1; ví dụ ) while x>=sai _so begin + G : gi i thiệu n:=n+1; x:=1/n end; chương trình mẫu writeln( 'So n nho nhat de 1/n < sgk ( Gi o ... - biếttrước phép so sánh; chương trình lập trình Sau ta xét câulệnh ví dụ TP điều kiện thường - câulệnhcâulệnh đơn gi n hay câulệnh ghép Câulệnhlặp thực sau: + G : Gi i thiệu Bước : ... Gi o viên in ',sai _so: 5:4, 'la ',n); chương trình mẫu readln phim ) + G : Chạy tay end cho học sinh xem + Hs : thực + G : Yêu cầu học sinh mở máy tính chương mở trình ví dụ ( gi o viên chuẩn bị...