... kiện> 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,...
... kiện> 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,...
... BEGIN Clrscr; Write(‘Nhap gia tri cua a= ‘);Readln(a); S:=1/a;N:=1; REPEAT 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; ... 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 biết...
... crt; 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 Củng cố: ... lặpvớisốlầnchưabiếttrước có dạng: while ; đó: - đ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 Câulệnhlặp thực sau: Bước : Kiểm tra điều ... : thực + G : Cho học sinh chạy chương trình máy + Hs : thực + G : Yêu cầu hs thay điều kiện sai _so = 0.003 thành 0.002 ; 0.001 ; 0.005 ; + Hs : thực Chúng ta biết rằng, n lớn * Nhận xét : Để...
... điều 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 ... writeln( 'So n nho nhat de tong > cho HS quan sát var S,n: integer; - Quan sát 1000 la ',n); begin writeln('Tong dau tien > 1000 S:=0; n:=0; while S
... For := To Do ; GV: Em cho cô biết giá 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; ... cu i: 100 Var S,n: integer; Begin S:=0; n:=0; While S1000 la’,n); Writeln (‘Tong dau tien >1000 la’,S); Readln End Ví dụ 5: SGK...
... Đ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’) ... begin n:=n+1; S:=S+n ; end; write(‘Tong S= ’,S,‘ va ’,n,’ la so tu nhien nho nhat cho S>1000’); Readln; End Tong S= 1035 va 45 la so tu nhien nho nha cho S>1000 CâuCâuCâuCâu Học sinh thảo ... cúphápcâ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 +2 +3 + .+ 100 Lặp...
... Đ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’) ... begin n:=n+1; S:=S+n ; end; write(‘Tong S= ’,S,‘ va ’,n,’ la so tu nhien nho nhat cho S>1000’); Readln; End Tong S= 1035 va 45 la so tu nhien nho nhat cho S>1000 CâuCâuCâuCâu Học sinh thảo...
... (1’) - Về xem lại cấu trúc lệnhlặp While do, so sánh khác câulệnh For to với While - Đọc trước Duyệt GVHD Trường THCS Phường 4, ngày 27/02/2010 SV so n TRẦN NGỌC KHOA Bài Lặpvớisốlầnchưa ... lệnhlặpvớisốlầnchưabiếttrước có dạng While ; + Điều kiện thường phép so sánh Bài Lặpvớisốlầnchưabiếttrước Trường Trung học Cơ sở Phường Giáo án Tin học + Câulệnh ... tăng dần số tự nhiên (?) Giải thích bước - B1: gán giá trị cho biến; thuật tốn? B2: thực thao tác so sánh Nếu S
... sai _so = 0.003 thành 0.002 ; 0.001 ; 0.005 ; + Hs : thực uses crt; 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 ... 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 ¸n tin häc líp Trêng THCS S¬n TiÕn ... 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 hs nhắc lại cúphápcâulệnhlặpvớisốlầnchưa biết...
... phép so sánh, khơng thể – GV gọi HS nhận xét chốt ý phép gán – HS ghi nhận – Điều kiện thường phép so sánh =,… (?) Câu b) sai vị trí nào? – Câulệnh khơng thể (?) Cúpháp điều kiện phép so sánh ... 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 báo cáo lên – HS thực u cầu bảng nhận xét ghi nhận – Cho HS hồn ... trình b) S:=0; n:=0; While S ≤ 10 n:=n+1;S:=S+n; (?) Đoạn chương trình có – Khơng có Begin end khác sovới đoạn chương trình a)? (?) Câulệnhlệnhlặp – n n + 1; While lúc gì? – Cho HS thảo luận...
... crt; Var x:Real; n:Integer; Const Si _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: 6:4, ‘ la ‘,n); Readln; End Tuần ... Hãy nêu cấu trúc câulệnhlặpvớisốlầnchưa Trong đó: biếttrước ? - Đ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 Câulệnhlặp thực hiệnĐiều kiện Sai ? ? ... BÀI CŨCâu 1: Hãy ghi cúphápcâulệnhlặp For…do ? For := to ; www.themegallery.com Câu 2: Hãy viết chương tình tính tổng số ? Var i, Tong: integer;...
... crt; Var x:Real; n:Integer; Const Si _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: 6:4, ‘ la ‘,n); Readln; End Bài ... Hãy nêu cấu trúc câulệnhlặpvớisốlầnchưa Trong đó: biếttrước ? - Đ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 Câulệnhlặp thực hiệnĐiều kiện Sai ? ? ... BÀI CŨCâu 1: Hãy ghi cúphápcâulệnhlặp For…do ? For := to ; www.themegallery.com Câu 2: Hãy viết chương tình tính tổng số ? Var i, Tong: integer;...
... điều kiện để kết thúc hoạt động gọi điện thoại Long cho Trang hỏi giáo viên -Đưa thêm số ví dụ cu c sống tương tự ví dụ Yêu cầu HS xác định điều kiện dừng -Chú ý, suy nghĩ trả lời câu hỏi giáo ... sốlầnchưabiếttrước có dạng: While ; Trong đó: Điều kiện: thường phép so sánh Câulệnhcâulệnh đơn hay câulệnh ghép Cách thực hiện: Kiểm tra điều kiện Nếu điều ... crt; Var S,n:Integer; Begin Clrscr; S:=0; N:=0; While S
... 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 13 15 16 17 19 12 14 18 20 21 25 27 22 24 ... thể sai, câu lện bỏ qua kết 2./ Nếu điều kiệncâu lệkhoá h h bò câulệnh ghép Từp nh đơn hay phé so sán thúc vòng lặp Nếu điều kiện đúng, thực câulệnh quay bước kiểm tra điều kiện Điều kiện Đúng ... n:=0; 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...
... n < n const 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 ... ; đó: sốlầnlặpchưa - 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 ... 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 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...