Báo cáo: Lặp với số lần chưa biết trước

Ví dụ 2: Nếu cộng lần lượt n số tự nhiên đầu tiên (n=1,2,3,…), ta sẽ được kết quả tăng dần T1=1, T2=1+2,…tăng dần.Cần cộng bao nhiêu số tự nhiên đầu tiên để ta nhận đượctổng Tn nhỏ nhất lớn hơn 1000 ?
Nội dung trích xuất từ tài liệu:
Báo cáo: Lặp với số lần chưa biết trước TinHọc8 Tuần28 Tiết55 Bài8Lặpvớisốlầnchưa biếttrước Tuần 28 Lặpvớisốlầnchưabiếttrước KIỂMTRABÀICŨ Tiết 55 Bài 8 Câu 1: Hãy ghi cú pháp của câu lệnh lặp For…do ? For := to do ; Câu 2: Hãy viết chương tình tính tổng của 5 số đầu tiên ? Vari,Tong:integer; Begin Tong:=0; Fori:=1to5dowww.themegallery.com Tong:=Tong+i; Write(‘Tong=’,Tong); Readln; End. Tuần 28 Tiết 55 Lặpvớisốlầnchưabiếttrước Bài 8 1.Cáchoạtđộnglặpvớisốlầnchưabiếttrước: Vídụ1: Vídụ2:Nếucộnglầnlượtnsốtựnhiênđầutiên(n=1,2,3, …),tasẽđượckếtquảtăngdầnT1=1,T2=1+2,…tăngdần. Cầncộngbaonhiêusốtựnhiênđầutiênđểtanhậnđược tổngTnnhỏnhấtlớnhơn1000? Bước1:S0,n=0. Bước2:NếuS1000,nn+1;ngượclại,chuyểntớibước ≤ 4.www.themegallery.com Bước3:SS+nvàquaylạibước2. Bước4:Inkếtquả:Svànlàsốtựnhiênnhỏnhấtsaocho S>1000.Kếtthúcthuậttoán. Tuần 28 Lặpvớisốlầnchưabiếttrước Tiết 55 Bài 8 2.Vídụvềlệnhlặpvớisốlầnchưabiếttrước: Whiledo; Hãynêucấutrúccâulệnh lặpvớisốlầnchưabiết Trongđó: trước? Điềukiệnthườnglàcácphépsosánh; câulệnhcóthểlàcâulệnhđơngiảnhaycâulệnhghép. Câulệnhlặpđượcthựchiện nhưthếnào? Saiwww.themegallery.com Điềukiện ? Đúng Kếtthúc Câulệnh Tuần 28 Lặpvớisốlầnchưabiếttrước Tiết 55 Bài 8 2.Vídụvềlệnhlặpvớisốlầnchưabiếttrước: Vídụ3:Vớigiátrịnàocủanđể1/n=Sai_Sodo Begin n:=n+1;x:=1/n; End; Writeln(‘Sonnhonhatde1/n Tuần 28 Lặpvớisốlầnchưabiếttrước Tiết 55 Bài 8 2.Vídụvềlệnhlặpvớisốlầnchưabiếttrước: Vídụ4:Viếtchươngtìnhtínhtổngnsốtrongvídụ2 VarS,n:Integer; Begin S:=0;n:=1; WhileS1000la‘,n); Writeln(‘Tongdautienlonhonnla‘,S); Readln; End. Tuần 28 Lặpvớisốlầnchưabiếttrước Tiết 55 Bài 8 2.Vídụvềlệnhlặpvớisốlầnchưabiếttrước: Vídụ5:ViếtchươngtìnhtínhtổngT=1+1/2+1/3+…+1/n T:=0; T:=0; i:=1; Fori:=1to100do Whilei Tuần 28 Lặpvớisốlầnchưabiếttrước Tiết 55 Bài 8 3.Lặpvôhạnlần–lỗilậptrìnhcầntránh: Vara:Integer; Begin ...