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
1/Nhập vào số nguyên n. Tính tổng các số từ 1 đến n. Viết code bằng cấu trúc lặp.
2/Tính T(n)=1x2x3...xN. Viết code bằng cấu trúc lặp.
Câu trả lời của bạn
Câu trả lời của bạn
Viết chương trình tinh tổng S=1+2+4+6+...+N (N<10^4, n là số nguyên được nhập từ bàn phim)
Câu trả lời của bạn
Viết chương trình pascal tin học 11
một người có số tiền ban đầu là a.Đem gửi tiết kiệm với lãi suất là k/tháng.Hỏi sau ít nhất bao nhiêu tháng đạt số tiền không nhỏ hơn b
Câu trả lời của bạn
Câu trả lời của bạn
B1. Khởi tạo giá trị biến lặp, chỉ thực hiện 1 lần duy nhất
B2. Kiểm tra điều kiện lặp, nếu điều kiện sai => Chuyển sang B5
B3. Thực hiện nội dung lặp ở trong thân vòng lặp
B4. Cập nhật giá trị biến lặp => Quay lại B2
B5. Kết thúc vòng lặp
Câu trả lời của bạn
/*
In ra 3 dòng chữ "Hoc C ba dao tai Lap trinh khong kho!"
*/
#include <stdio.h>
int main(){
for(int i = 0; i < 3; i++){
printf("Hoc C ba dao tai Lap trinh khong kho!\n");
}
// Continue ...
printf("Ket thuc vong lap!\n");
}
/*
Giải thích:
B1. Gán biến lặp i = 0
B2. Kiểm tra điều kiện (i = 0) < 3 => Đúng
B3. Do kiểm tra điều kiện đúng => Thực hiện thân vòng lặp for
B4. Gọi tới (i++) => tăng i lên 1 đơn vị => i = 1
B5. Kiểm tra điều kiện (i = 1) < 3 => Đúng
B6. Do kiểm tra điều kiện đúng => Thực hiện thân vòng lặp for
B7. Gọi tới (i++) => tăng i lên 1 đơn vị => i = 2
B8. Kiểm tra điều kiện (i = 2) < 3 => Đúng
B9. Do kiểm tra điều kiện đúng => Thực hiện thân vòng lặp for
B10. Gọi tới (i++) => tăng i lên 1 đơn vị => i = 3
B11. Kiểm tra điều kiện (i = 3) < 3 => Sai => Kết thúc vòng lặp
*/
Câu trả lời của bạn
/*
In ra các số trong [a, b] biết 0 < a <= b
*/
#include <stdio.h>
int main(){
int a = 4;
int b = 9;
for(int i = a; i <= 9; i++){
printf("\t%d", i);
}
}
Câu trả lời của bạn
#include <stdio.h>
int main(){
int a = 5;
int b = 10;
int sum = 0; // cần khởi tạo giá trị
for(int i = a; i <= b; i++){
sum += i; // sum = sum + i
}
printf("Sum = %d", sum);
}
Câu trả lời của bạn
Ý tưởng giải bài tập
Nhập vào 3 số nguyên từ bàn phím
Giả sử số đầu tiên là số lớn nhất
Nếu số thứ 2 lớn hơn số lớn nhất, => số lớn nhất là số thứ 2
Nếu số thứ 3 lớn hơn số lớn nhất => số lớn nhất là số thứ 3
In ra giá trị của số lớn nhất
Câu trả lời của bạn
#include <stdio.h>
int main()
{
float a, b, c;
printf("\nNhap 3 so a, b, c: ");
scanf("%f%f%f", &a, &b, &c);
// Tìm max theo C1
float maxValue = a;
if(b > maxValue){
maxValue = b;
}
if(c > maxValue){
maxValue = c;
}
// Tìm max theo C2
// Không khuyến khích
// if (a >= b && a >= c)
// {
// printf("Max = %f", a);
// }
// else if (b >= a && b >= c)
// {
// printf("Max = %f", b);
// }
// else
// {
// printf("Max = %f", c);
// }
}
Câu trả lời của bạn
#include <stdio.h>
int main()
{
int a, b;
int sum = 0;
printf("Nhap a = ");
scanf("%d", &a);
printf("Nhap b = ");
scanf("%d", &b);
// Nếu a > b => thoát chương trình
if (a > b)
{
printf("Khong hop le!");
return 0;
}
// Cách thứ nhất
// for(int i = a; i <= b; i++){
// if(i % 2 == 0){
// sum += i;
// }
// }
// Cách 2: tốt hơn
if (a % 2 != 0)
a++;
for(int i = a; i <= b; i+=2){
sum += i;
}
printf("Sum = %d", sum);
}
Câu trả lời của bạn
var i,j,n,s: integer;
begin
s:= 0;
write('Nhap so lan lap: '); readln(n);
for i:= 1 to n do
for j:= 1 to 10 do
s:= s+(i*j);
write('S = ',s);
end.
Câu trả lời của bạn
var i: integer;
begin
for i:= 1 to 5 do
writeln ('Chao ban. Ban co khoe khong?');
end.
* * * * *
* * * * *
* * * * *
Câu trả lời của bạn
var i,j: integer;
begin
for i:= 1 to 3 do
begin
for j:= 1 to 5 do
write('*');
writeln;
end;
end.
Câu trả lời của bạn
var x,y,u: longint;
begin
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
while x<>y do
if x>y then x:=x-y else y:=y-x;
u:=x;
write('Uoc chung lon nhat cua x va y la: ',u);
end.
Câu trả lời của bạn
var t,i: integer;
k: real;
begin
t:=0; i:=0;
writeln('Nhap so muon tinh trung binh cong, nhan phim 0 de ket thuc');
repeat
begin
i:=i+1;
write('Nhap so thu ',i,': '); readln(t);
k:=k+t;
end;
until t=0;
k:=k/(i-1);
write('Trung binh cong cua day so vua nhap: ',k);
end.
Câu trả lời của bạn
var i,n,m: integer;
begin
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
m:= m+i*i*i;
write('Tong binh phuong: ',m);
readln;
end.
Câu trả lời của bạn
var i,n,m: integer;
begin
m:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
m:= m+i*i;
write('Tong binh phuong: ',m);
readln;
end.
Câu trả lời của bạn
var i,j,n: integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
for j:=0 to n-i do
write(' ');
for j:=0 to i-1 do
write('* ');
writeln;
end;
readln;
end.
Câu trả lời của bạn
var i,n: integer;
t: real;
begin
t:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
t:= t+(1/i);
write('Tong nghich dao: ',t:2);
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 *