Cau truc lap tiet 2 cau truc lap whiledo
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (79.53 KB, 9 trang )
<span class='text_page_counter'>(1)</span>CẤU TRÚC LẶP (T2) LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC.
<span class='text_page_counter'>(2)</span> Bài toán 1 • Một người gửi tiết kiệm với số tiền ban đầu là A, lãi suất mỗi tháng là 0,6%. Hỏi sau bao nhiêu tháng thì người đó nhận được số tiền là B. (Cách tính: Tiền lãi của tháng trước được cộng vào tiền gửi của tháng tiếp theo)..
<span class='text_page_counter'>(3)</span> Sơ đồ thuật toán bài toán 1 Nhập A, B. M:=A; T:=0; Sai. M<=B Đúng. M:=M+M*0.6/100; T:=T+1; Thông báo T và Kết thúc..
<span class='text_page_counter'>(4)</span> Nhập A, B. M:=A; T:=0;. Sai Sai. Điều kiện. M<=B Đúng Đúng. M:=M+M*0.6/100; T:=T+1;. Sơ đồ thuật toán bài toán 1. Câu lệnh. Sơ đồ cấu trúc lặp While..Do.
<span class='text_page_counter'>(5)</span> Chương trình Var A,B,M:real; T:Integer; Begin Write(‘Nhap so tien gui=‘); readln(A); M:=A; T:=0; While M<B Do Begin M:=M+M*0.6/100; T:=T+1; end; Writeln(‘So thang gui la=‘,T); readln; End..
<span class='text_page_counter'>(6)</span> Bài tập áp dụng Bài 1. Cho biết bài toán sau làm công việc gì? Cho kết quả khi giá trị nhập vào là a=6 và b=9. Var a,b:integer; Begin Write(‘Nhap 2 so nguyen a,b=‘); readln(a,b); While a<>b Do If a>b Then a:=a-b Else b:=b-a; Writeln(‘So can tim la ‘,a); readln; End..
<span class='text_page_counter'>(7)</span> Bài tập áp dụng Bài 2. Cho biết bài toán sau làm công việc gì? Cho kết quả khi giá trị nhập vào là a=6 và b=12? Var i,a,b:integer; Begin Write(‘Nhap 2 so nguyen a,b=‘); readln(a,b); i:=a; While (a mod i <>0) or (b mod i <>0) Do i:=i-1; Writeln(‘So can tim la ‘,a); readln; End..
<span class='text_page_counter'>(8)</span> Bài tập áp dụng Bài 3. Cho biết bài toán sau làm công việc gì? Cho kết quả khi giá trị nhập vào là a=6 và b=12? Var i,a,b:integer; Begin Write(‘Nhap 2 so nguyen a,b=‘); readln(a,b); i:=a; While (i mod a <>0) or (i mod b <>0) Do i:=i+a; Writeln(‘So can tim la ‘,i); readln; End..
<span class='text_page_counter'>(9)</span> Bài tập áp dụng Bài 4. Cho biết bài toán sau làm công việc gì? Cho kết quả khi giá trị nhập vào là n=6? Var t,i,n:integer; Begin Write(‘Nhap so nguyen n=‘); readln(n); i:=0; While i<=n Do begin i:=i+1; t:=t+i; begin Writeln(‘So can tim la ‘,t); readln; End..
<span class='text_page_counter'>(10)</span>
