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
Câu trả lời của bạn
Viết chương trình nhập vào sâu st,in ra màn hình sâu vừa nhập theo chiều ngược lại
Uses crt;
Var a:array[1..99] of longint;
n,i,s: Longint;
begin
repeat
clrscr;
write('n = ');
readln(n);
until (n > 0) and (n < 100);
for i := 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i] > 0) then
s:=s+a[i];
end;
writeln('Mang vua nhap la: ');
for i := 1 to n do write(a[i],' ');
writeln;
if (s = 0) then writeln('Khong co so duong trong mang')
else write('Tong cac so duong trong mang la: ',s);
readln;
end.
Câu trả lời của bạn
Câu trả lời của bạn
while <điều kiện> do <câu lệnh>;
Câu trả lời của bạn
Câu trả lời của bạn
program tinh_tong;
var i,N,S:integer;
begin
writeln(' Nhập n : ' );Readln(n);
S:=0;
For i:=1 to n do
begin
if (i mod 2) = 0 then S:=S+i;
end;
Writeln('Tổng S la: ,S); readln;
END.
Các chữ số từ 1 đến n được sắp xếp thứ tự trên 1 vòng tròn. Một trò chơi như sau: Bạn xuất phát tại vị trí x (1<=x<=n) và đi theo chiều kim đồng hồ k bước (mỗi bước qua một số). Hãy xác định xem sau khi đi k bước thì bạn sẽ đứng vị trí số mấy?
Câu trả lời của bạn
Câu trả lời của bạn
uses crt;
var a,b,S:word;
begin
clrscr;
write('Nhap a=');readln(a);
write('Nhap b=');readln(b);
while a<>b do
begin
a:=a+1;
if (a mod 3=0) or (a mod 5=0) then
S:=S+a;
end;
write('Tong cac so chia het cho 3 va 5 la:',S);
readln
end.
Câu trả lời của bạn
viết câu lệnh tính tổng các số nguyên trong phạm vi từ M dến N
Câu trả lời của bạn
bnvnbvn
s:=0
for i:=m to n do
if i mod 1<>0 then
s:=s+i
Trong Device Manager có thể nhận biết các thiết bị chưa cài đặt Driver tai mục:
a. Monitors
b. Other Devices
c. System Devices
d. Computer
Câu trả lời của bạn
B
Symtem Devices
Có thể thay thế câu lệnh for...do cho while...do và ngược lại được không? Nêu ví dụ minh hoạ
Câu trả lời của bạn
Theo mình thì không thể thay thế for...do cho while...do nhưng có thể thay while...do cho for...do. Ví dụ nè:
Tính tổng 5 tự nhiên đầu tiên.
program CTDT;
uses crt;
var S,i: longint;
begin
clrscr;
S:=0; i:=0;
while i<5 then
begin
S:=S+i;
i:=i+1;
end;
Writeln('tong 5 so tu nhien dau tien la ',s);
Readln;
end.
Ý kiến cá nhân thôi nha!!!
In ra các số chẵn trong khoảng từ 1 đến N (N>100) và mỗi hàng chỉ có 10 số
Câu trả lời của bạn
fhgfh hg
Chương trình sau thực hiện công việc gì ?kết quả vủa trương trình đó?
Var S,i : integer
Begin
A:=0
For i:=3 to 10 đó
S:=S*i;
Write('S=',S:3);
End.
Câu trả lời của bạn
hình như ct bạn viết sai a
Giải giùm:
Nhập vào một dãy tự nhiên 5 số bất kì ,hãy viết chương trình
hiện ra số tự nhiên lớn nhất.nhỏ nhất
Câu trả lời của bạn
Program min_max;
uses crt;
var
min,max,i,j:integer; a:array[1..5] of integer;
begin
assign(fin,'MINMAX.INP');
reset(fin);
for i:=1 to 5 do read(fin,a[i]);
close(fin);
assign(fout,'MINMAX.OUT');
rewrite(fout);
min:=a[1];
for i:=2 to 5 do
if (min>a[i]) then min:=a[i];
max:=a[1];
for i:=2 to 5 do
if (max<a[i]) then max:=a[i];
writeln(fout,min); write(fout,max);
close(fout);
end.
chương trình thường dùng câu lệnh lặp loại nào ? vì sao
Câu trả lời của bạn
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 *