Nội dung bài học Bài 10: Cấu trúc lặp dưới đây nhằm giúp các em hiểu được nhu cầu của cấu trúc lặp trong biểu diễn thuật toán và biết cách sử dụng cấu trúc lặp với số lần biết trước bằng câu lệnh for … do … .Mời các em cùng theo dõi nội dung chi tiết của bài học.
Với a là số nguyên và a > 2, xét các bài toán sau đây:
Bài toán 1. Tính và đưa kết quả ra màn hình tổng
\(S= \frac{1}{a}+\frac{1}{a+1}+\frac{1}{a+2}+...+\frac{1}{a+100}\)
Bài toán 2. Tính và đưa kết quả ra màn hình tổng
\(S= \frac{1}{a}+\frac{1}{a+1}+\frac{1}{a+2}+...+\frac{1}{a+N}+...\)
cho đến khi \(\frac{1}{a+N}< 0,0001.\)
Nhận xét:
Tóm lại:
Có hai thuật toán Tong_1a và Tong_1b để giải bài toán 1 như sau:
Thuật toán Tong_1a:
Thuật toán Tong_1b:
Một số lưu ý:
Để mô tả cấu trúc lặp với số lần biết trước, Pascal dùng câu lệnh for-do với hai dạng tiến và lùi như sau:
for < biến đếm > := < giá trị đầu > to < giá trị cuối > do < câu lệnh >;
for < biến đếm > := < giá trị cuối > downto < giá trị đầu > do < câu lệnh >;
Trong đó:
Chú ý 1: Giá trị của biến đếm được điều chỉnh tự động, vì vậy câu lệnh viết sau do không được thay đổi giá trị biến đếm.
Ví dụ 1. Sau đây là hai chương trình cài đặt các thuật toán Tong_1a và Tong_1b.
Chương trình cài đặt thuật toán Tong_1a:
program Tong_1a;
uses crt;
var S: real;
a, N: integer;
begin
clrscr;
write('Hay nhap gia tri a vao!');
readln(a);
S:=1.0/a; {Buoc 1}
for N:= 1 to 100 do Buoc 2, Buoc 3}
S:= S+1.0/(a+N); {Buoc 4}
writeln('Tong S la: ', S:8:4); {Buoc 5}
readln
end.
Chương trình cài đặt thuật toán Tong_1b:
program Tong_1b;
uses crt;
var S: real;
a, N: integer;
begin
clrscr;
write ('Hay nhap gia tri a vao!');
readln(a);
S:=1.0/a; {Buoc 1}
for N:= 100 downto 1 do {Buoc 2 va Buoc 3}
S:= S+1.0/(a+N); {Buoc 4}
writeln('Tong S la: ', S:8:4); {Buoc 5}
readln
end.
Ví dụ 2. Chương trình sau thực hiện việc nhập từ bàn phím hai số nguyên dương M và N ( M < N ), tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ M đến N.
Chương trình cài đặt:
program Vi_du_2;
uses crt;
var M, N, I: integer;
T: longint;
begin
clrscr;
writeln('Nhap so M nho hon N');
write('M = '); readln(M);
write('N = '); readln(N);
T:= 0;
for I:= M to N do
if(I mod 3 = 0) or (I mod 5 = 0) then
T:=T+I;
writeln('KET QUA: ', T);
readln
end.
Thuật toán Tong_2:
Như vậy, việc lặp với số lần chưa biết trước sẽ chỉ kết thúc khi một điều kiện cho trước được thoả mãn.
Để mô tả cấu trúc lặp như vậy, Pascal dùng câu lệnh while-do có dạng:
while < điều kiện > do < câu lệnh >;
Trong đó:
Việc thực hiện lệnh while-do được thể hiện trên sơ đồ ở hình 1 dưới đây:
Hình 1. Sơ đồ lặp với số lần lặp chưa biết trước
Ví dụ 3. Sau đây là chương trình cài đặt thuật toán Tong_2.
Hình 2. Sơ đồ khối của thuật toán Tong_2
program Tong_2;
uses crt;
var S: real;
a, N: integer;
begin
write ('Hay nhap gia tri a vao!');
readln(a);
S:= 1.0/a; N:= 0; {Buoc 1}
while not (1/(a+N)<0.0001) do {Buoc 2}
begin
N:= N+1; {Buoc 3}
S:= S+1.0/(a+N); {Buoc 4}
end;
writeln('Tong S la: ', S: 8: 4); {Buoc 5}
readln
end.
Ví dụ 4. Tìm ước chung lớn nhất (UCLN) của hai số nguyên dương M và N.
Thuật toán tìm ước chung lớn nhất:
Hình 3. Sơ đồ khối của thuật toán tìm ước chung lớn nhất
Chương trình sau thể hiện thuật toán tìm ước chung lớn nhất:
program UCLN;
uses crt;
var M,N:integer;
begin
clrscr;
write('M, N = ');
readln(M,N);
while M <> N do
if M > N then M:= M-N else N:= N-M;
writeln('UCLN = ', M);
readln
end.
Chú ý 2: Các câu lệnh trong vòng lặp thường được lặp lại nhiều lần, vì vậy để tăng hiệu quả của chương trình thì những thao tác không cần lặp lại nên đưa ra ngoài vòng lặp.
Sau khi học xong Bài 10: Cấu trúc lặp, các em cần nắm vững các nội dung trọng tâm:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài 10 cực hay có đáp án và lời giải chi tiết.
Chọn phát biểu sai trong các phát biểu sau đây:
Em hãy chọn phát biểu đúng trong các phát biểu sau đây:
Cho hai dạng lặp FOR – DO trong PASCAL như sau:
Dạng lặp tiến:
FOR < biến đếm > := < giá trị đầu > TO < giá trị cuối > DO < câu lệnh >;
Dạng lặp lùi:
FOR < biến đếm > := < giá trị cuối > DOWNTO < giá trị đầu > DO < câu lệnh >;
Chọn phát biểu sai trong các phát biểu đưới dây:
Câu 4-10: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Chọn phát biểu sai trong các phát biểu sau đây:
Em hãy chọn phát biểu đúng trong các phát biểu sau đây:
Cho hai dạng lặp FOR – DO trong PASCAL như sau:
Dạng lặp tiến:
FOR < biến đếm > := < giá trị đầu > TO < giá trị cuối > DO < câu lệnh >;
Dạng lặp lùi:
FOR < biến đếm > := < giá trị cuối > DOWNTO < giá trị đầu > DO < câu lệnh >;
Chọn phát biểu sai trong các phát biểu đưới dây:
Trong ngôn ngữ lập trình Pascal, về mặc cú pháp câu lệnh nào sau đây là đúng với cấu trúc lặp For có một lệnh con?
Trong ngôn ngữ lập trình Pascal, về mặc cú pháp câu lệnh nào sau đây là đúng với cấu trúc lặp For có một lệnh con?
Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng với cấu trúc lặp For có nhiều lệnh con?
Begin
a := a – 1 ;
b := a – c ;
End;
Vòng lặp While – do kết thúc khi nào
Mọi quá trình tính toán đều có thể mô tả và thực hiện dựa trên cấu trúc cơ bản là:
Tính tống S = 1 + 2 + 3 + … + n + … cho đến khi S>108. Điều kiện nào sau đây cho vòng lặp while – do là đúng:
Cú pháp lệnh lặp For – do dạng lùi:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
uses crt;
var s,i:integer;
begin
clrscr;
i:=1;
s:=0;
while s<=1000 do
begin
s:=s+sqr(i);
inc(i);
end;
writeln('S=',s);
readln;
end.
Câu trả lời của bạn
program Gui_tiet_kiem;
uses crt;
const laisuat = 0.003;
var tiengui, tienrutve, luu: real;
thang : integer;
Begin
clrscr;
write ('Nhap vao so tien gui:'),
readln(tiengui);
luu:= tiengui;
write('So tien co khi rut ve: ’);
readln(tienrutve);
thang : = 0 ;
while Tiengui < tienrutve> do begin
tiengui:= tiengui + tiengui* laisuat ; thang:= thang + 1 ;
end;
write('Gui',luu: 0 : 0, ' dong, sau thang, thang');
writeln('se nhan duoc so tien',tienrutve:0 : 0,' dong');
readln
End .
Câu trả lời của bạn
program bai7;
uses crt;
var tcha,tcon,nam:integer;
begin
clrscr;
write('nhap vao tuoi cha va tuoi con '); readln(tcha,tcon);
nam:=0;
while(tcha<>tcon*2) do
begin
tcha:=tcha+1;
tcon:=tcon+1;
nam:=nam+1;
end;
writeln('sau ',nam,' nam nua thi tuoi cha gap 2 lan tuoi con');
readln;
end.
Câu trả lời của bạn
uses crt;
var a,b,i,t:integer;
begin
clrscr;
repeat
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
until a<b;
t:=0;
for i:=a to b do
t:=t+i;
writeln(t);
readln;
end.
Câu trả lời của bạn
uses crt;
var i:integer;
begin
clrscr;
for i:=20 to 25 do
if i mod 2=0 then write(i:4);
readln;
end.
Câu trả lời của bạn
Hoạt động:
-Vòng lặp For: Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.
-Vòng lặp While:
+Bước 1: Máy thực hiện câu lệnh 1.
+Bước 2: Sau đó tính giá trị của biểu thức 1 , nếu giá trị của biểu thức 1 sai thì chương trình thoát ra khỏi vòng lặp. Nếu giá trị của biểu thức 1 đúng thì quay lại bước 1.
Cấu trúc
-Vòng lặp For:
for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Trong đó:
-For, to, do là các từ khóa
-Biến đếm thuộc kiểu dữ liệu số nguyên
-Giá trị đầu, giá trị cuối là các số nguyên
-Câu lệnh có thể là câu lệnh đơn hoặc câu lệnh kép
-Vòng lặp While:
While <điều kiện> do <câu lệnh>;
Câu trả lời của bạn
uses crt;
var a,m,i:integer;
s:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap m='); readln(m);
s:=1;
for i:=1 to m do
s:=s+1/sqr(a+i);
writeln(s:4:2);
readln;
end.
Câu trả lời của bạn
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];
writeln('Tong cac so am chia het cho 7 la: ',t);
readln;
end.
Câu trả lời của bạn
uses crt;
var c,a:array[1..10]of integer;
i,kt,j,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('C[',i,']='); readln(c[i]);
end;
dem:=0;
for i:=1 to 10 do
if c[i]>1 then
begin
kt:=0;
for j:=2 to c[i]-1 do
if c[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=c[i];
end;
end;
if dem=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem do
write(a[i]:4);
end;
readln;
end.
Câu trả lời của bạn
uses crt;
var n,i,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
Câu trả lời của bạn
uses crt;
var d:array[1..200]of integer;
i,k,dem:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
begin
write('D[',i,']='); readln(d[i]);
end;
dem:=0;
for i:=1 to k do
if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);
writeln('So phan tu chan co 2 chu so la: ',dem);
readln;
end.
b, y=1+2+3+....+100
c, y=1+2+3+...+n cho đến khi y>3200
Câu trả lời của bạn
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
Câu trả lời của bạn
Program DapAnHay;
var x,a,b: integer;
y: longint;
begiin
write('Nhap a;x;b : '); readln(a,x,b);
y:=a*x+b;
if y mod 2=0 then write('y la so le ') else write('y la so chan');
readln
end.
Câu trả lời của bạn
program bai1;
var a:array[1..5] of longint;
max,min,i:longint;
begin
for i:=1 to 5 do
begin
write('A[',i,']= ');
readln(a[i]);
end;
max:=a[1];min:=a[1];
for :=1 to 5 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So tu nhien lon nhat la ',max);
writeln('So tu nhien nho nhat la ',min);
readln
end.
Câu trả lời của bạn
program bai1;
var n,l1,l2,l3:longint;
begin
n:=185;
l1:=n div 21;
n:=n-l1*21;
l2:=n div 17;
n:=n-l2*17;
l3:=n div 16;
write('So thung loai 21kg la ',l1);
write('So thung loai 17kg la ',l2);
write('So thung loai 16kg la ',l3);
readln
end.
Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write('Nhap gia tri cho N='); Readln(N);
write('nhap gia tri cho day so');
For i=1 to N do Readln(A[i]);
Tong :=0;
For i :=1 to N do;
If (A[i] mod 2<>0) then Tong :=Tong + A[i];
Write('Tong cac so le trong day so la: ',Dem);
Readln
End.
Câu trả lời của bạn
Sữa lỗi:
Phần khai báo:a:array[1..250] of integer (ngoặc vuông ko phải ngoặc tròn)
S = 101 + 1 + 2 + 3 +...+ n +... cho đến khi S > 150
Câu trả lời của bạn
var S,i,n: integer;
begin
S:=101;
while S<=150 do
begin
writeln ('nhap n'); readln(n);
S:=101;
for i:= 1 to n do S:=S+i;
end;
writeln ('tong la ',S);
readln;
end.
S=1² +2²+3²+...+n² và S=1+3+5+...+(2n-1) với n nguyên dương được nhập vào từ bàn phím.
Câu trả lời của bạn
a.
var S,i,n: integer;
begin
writeln ('Nhap so nguyen duong n'); readln(n);
repeat
writeln ('nhap lai'); readln(n);
until (n>=1);
S:=0;
for i:=1 to n do S:=S+ sqr(i);
writeln ('tong la ',S);
readln;
end.
b.
var S,i,n: integer;
begin
writeln ('nhap so nguyen duong n'); readln(n);
repeat
writeln ('nhap lai'); readln(n);
until (n>=1);
S:=0;
for i:= 1 to n do
if i mod 2 = 1 then S: = S+i;
writeln ('tong la ',S);
readln;
end.
Câu trả lời của bạn
Program hotrotinhoc;
var i: integer;
begin
for i:=1 to 10 do write('Truong THPT Long Hiep');
readln
end.
S=1+2+3+...+N nếu N lẻ
S=(N+1)/2 nếu N chẵn
Viết chương trình với cấu trúc For...do
Câu trả lời của bạn
program hotrotinhoc;
var s: real;
i,n: integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if n mod 2=1 then s:=s+i;
if n mod 2=0 then s:=(n+1)/2;
write(s:1:0);
readln
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *