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
var i,n: integer;
begin
write('Nhap n: '); readln(n);
write('Cac uoc so cua ',n,':');
for i:=1 to n do
if n mod i = 0 then
write(i:4);
readln;
end.
Câu trả lời của bạn
var i,n,min,max,a: integer;
begin
max:=0;
write('Nhap bao nhieu so de so sanh: '); readln(n);
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
min:=a;
if min>max then
max:=min;
end;
write('So lon nhat: ',max);
readln;
end.
Câu trả lời của bạn
var i,n,t: integer;
begin
t:=0; i:=2;
write('Nhap n: '); readln(n);
while i<=n do
begin
t:= t+i*i;
i:= i+2;
end;
write('Tong binh phuong cac so chan: ',t);
readln;
end.
Câu trả lời của bạn
Hệ điều hành được lưu trữ dưới dạng các môđun độc lập trên bộ nhớ ngoài (Đĩa cứng, đĩa mềm, CD...).
Câu trả lời của bạn
Hệ điều hành mà nhiều chương trình được thực hiện cùng một lúc và nhiều người được đăng nhập vào hệ thống là hệ điều hành đa nhiệm nhiều người dùng. Hệ điều hành này rất phức tạp, đòi hỏi máy phải có bộ xử lí mạnh, bộ nhớ trong lớn như Windows 2000 Server.
Câu trả lời của bạn
Hệ điều hành đơn nhiệm 1 người dùng là hệ điều hành mà các chương trình phải được thực hiện lần lượt và chỉ 1 người được đăng nhập vào hệ thống. Ví dụ như hệ điều hành MS-DOS.
Câu trả lời của bạn
Người sử dụng có thể giao tiếp với máy tính bằng cách đưa vào các lệnh (Command) được nhập từ bàn phím hoặc chọn trên bảng chọn (Menu) được điều khiển bằng bàn phím hoặc chuột.
Câu trả lời của bạn
Hệ điều hành đa nhiệm nhiều người dùng là hệ điều hành mà nhiều người cùng đăng nhập vào hệ thống và nhiều chương trình được thực hiện cùng một lúc.
Câu trả lời của bạn
Một số chức năng của hệ điều hành là:
+ Tổ chức giao tiếp giữa người dùng và hệ thống
+ Cung cấp các dịch vụ tiện ích hệ thống
+ Hỗ trợ bằng phần mềm cho các thiết bị ngoại vi để có thể khai thác chúng một cách thuận tiện và hiệu quả
+ Tổ chức lưu trữ thông tin trên bộ nhớ ngoài, cung cấp các phương tiện để tìm kiếm và truy cập thông tin được lưu trữ
+ Cung cấp các tài nguyên cho các chương trình và các tổ chức thực hiện chương trình đó.
Câu trả lời của bạn
Hệ điều hành "Đa nhiệm một người dùng" là chỉ có một người đăng nhập vào hệ thống. Nhưng có thể kích hoạt cho hệ thống thực hiện đồng thời nhiều chương trình.
Câu trả lời của bạn
Câu trả lời của bạn
Một số thành phần của hệ điều hành là:
+ Các chương trình nạp hệ thống (chương trình giao tiếp giữa người dùng và hệ thống).
+ Các chương trình quản lí tài nguyên (phân phối và thu hồi tài nguyên).
+ Các chương trình điều khiển và các chương tiện ích hệ thống.
Câu trả lời của bạn
Program Tin_hoc;
Uses Crt;
Var N: Integer;
Begin
Write('Nhap so nguyen N');
Readln(N);
If N>0 then write(' So do la so duong ');
If N<0 then write(' So do la so am ');
If N=0 then write(' So do khong la so am va so duong');
Readln;
End.
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
long long n,i;
//chuongtrinhcon
long long tuoc(long long n)
{
long long t=0;
for (long long i=1; i<=n/2; i++)
if (n%i==0) t=t+i;
return(t);
}
//chuongtrinhchinh
int main()
{
cin>>n;
for (i=n-1; i>=1; i--)
if (tuoc(i)==i) cout<<i<<" ";
return 0;
}
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
t=t+i;
cout<<t;
return 0;
}
T:=1 ; S:=0;
For i:=1 to 5 do
begin
S:=S+5;
T:=T*2;
End;
Câu trả lời của bạn
s=25
t=32
Gợi ý:
- Tổng n số hạng của cấp số cộng là: Sn=n(A+D)/2
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
double n,a,d;
int main()
{
cin>>n>>a>>d;
cout<<fixed<<setprecision(2)<<n*(a+d)/2;
return 0;
}
Câu trả lời của bạn
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
Câu trả lời của bạn
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
inc(dem);
write(i:4);
if dem=15 then writeln;
end;
readln;
end.
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 *