Điều kiện cần để dừng vòng lặp trong thuật toán tuần tự là:
A. Kiểm tra đối tượng có đúng là đối tượng cần tìm không?
B. Kiểm tra đã hết danh sách chưa?
C. Kiểm tra đối tượng có đúng là đối tượng cần tìm không hoặc Kiểm tra đã hết danh sách chưa?
Câu 1: Khi thực hiện câu lệnh lặp for,to, do máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra là gì?
Câu 2: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tìm tất cả các ước của n.
Câu 3: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Đếm tất cả các ước của n.
Câu 4: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng tất cả các nước của n.
Câu 5: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tích tất cả các ước của n.
Câu 6: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng các số chẵn trong đoạn 1 đến n.
Câu 7: Em hãy mô tả thuật toán và viết chương trình nhập vào hai số tự nhiên a và b (a <> 0; b <> 0; a <= 0)
Câu 8: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Kiểm tra xem n có là số nguyên tố hay không?
làm hộ mình nha
P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:
Câu 2:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Câu 3:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('So uoc cua ',n,' la: ',dem);
readln;
end.
Câu 4:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 5:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
if n mod i=0 then s:=s*i;
writeln('Tich cac uoc cua ',n,' la: ',s:4:2);
readln;
end.
Câu 6:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
22.Vòng lặp (Do … While) là dạng vòng lặp?
1. Không xác định và kiểm tra điều kiện trước khi lặp
2. Không phương án nào đúng
3. Không xác định và kiểm tra điều kiện sau khi lặp
4. Cả hai dạng trên
Đầu tiết học, cô giáo kiểm tra bài cũ bằng cách gọi lần lượt từng người từ đầu danh sách lớp lên bảng trả lời câu hỏi. Biết rằng các học sinh đầu tiên trong danh sách lớp là An, Bình, Cường với xác suất thuộc bài lần lượt là 0,9; 0,7 và 0,8. Cô giáo sẽ dừng kiểm tra sau khi đã có 2 học sinh thuộc bài. Tính xác suất cô giáo chỉ kiểm tra bài cũ đúng 3 bạn trên.
A. 0,504
B. 0,216
C. 0,056
D. 0,272
Đáp án D
Phương pháp:
TH1: An và Cường trả lời đúng, Bình trả lời sai.
TH2: Bình và Cường trả lời đúng, An trả lời sai.
Áp dụng quy tắc cộng.
Cách giải:
TH1: An và Cường trả lời đúng, Bình trả lời sai => P1 = 0,9.(1 - 0,7).0,8 = 0,216
TH2: Bình và Cường trả lời đúng, An trả lời sai => P2 = (1 - 0,9).0,7.0,8 = 0,056
Vậy xác suất cô giáo chỉ kiểm tra bài cũ đúng 3 bạn trên là P = P1 + P2 = 0,272
Đầu tiết học, cô giáo kiểm tra bài cũ bằng cách gọi lần lượt từng người từ đầu danh sách lớp lên bảng trả lời câu hỏi. Biết rằng các học sinh đầu tiên trong danh sách lớp là An, Bình, Cường với xác suất thuộc bài lần lượt là 0,9; 0,7 và 0,8. Cô giáo sẽ dừng kiểm tra sau khi đã có 2 học sinh thuộc bài. Tính xác suất cô giáo chỉ kiểm tra bài cũ đúng 3 bạn trên.
A. 0,504
B. 0,216
C. 0,056
D. 0,272
Đáp án D
Phương pháp:
TH1: An và Cường trả lời đúng, Bình trả lời sai.
TH2: Bình và Cường trả lời đúng, An trả lời sai.
Áp dụng quy tắc cộng.
Cách giải:
TH1: An và Cường trả lời đúng, Bình trả lời sai
⇒ P 1 = 0 , 9. 1 − 0 , 7 .0 , 8 = 0 , 216
TH2: Bình và Cường trả lời đúng, An trả lời sai
⇒ P 2 = 1 − 0 , 9 .0 , 7.0 , 8 = 0 , 056
Vậy xác suất cô giáo chỉ kiểm tra bài cũ đúng
3 bạn trên là P = P 1 + P 2 = 0 , 272
Trong cấu trúc lặp bao giờ cũng có:
A. khâu đặt điều kiện rẽ nhánh
B. khâu kiểm tra điều kiện kết thúc quá trình lặp
C. khâu kết thúc tuần tự
D. khâu kiểm tra điều kiện rẽ nhánh
Bài tập 1:Khi thực hiện câu lệnh lặp for, to, do máy tính kiểm tra một điều kiện, điều kiện cần phảikiểm tra là gì?
* Tham khảo :
Khi thực hiện, ban đầu biến đếm sẽ nhận 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.
Trường X tổ chức kiểm tra tập trung 3 môn Toán, Văn, Anh trong thời gian 1 tuần, không kiểm tra vào chủ nhật. Biết mỗi ngày chỉ kiểm tra 1 môn. Tính xác suất để môn Toán kiểm tra đầu tiên và các môn không kiểm tra vào 2 ngày liên tiếp nhau.
Chọn ngày kiểm tra môn toán: 6 cách, chọn ngày kiểm tra môn văn: 5 cách, chọn ngày kiểm tra môn anh: 4 cách
\(\Rightarrow\) Không gian mẫu: \(6.5.4=120\) cách
Nếu toán kiểm tra vào thứ 4 => 2 môn còn lại chỉ có 3 ngày thứ 5, thứ 6, thứ 7 để kiểm tra nên ko thể xếp sao cho 2 môn này cách nhau ít nhất 1 ngày (loại)
\(\Rightarrow\) Toán chỉ có thể kiểm tra vào thứ 2 hoặc 3
TH1: toán kiểm tra vào thứ Hai: 2 môn còn lại có 3 cách xếp là 46,47,57. Hoán vị 2 môn này có 2 cách \(\Rightarrow2.3=6\)
TH2: toán kiểm tra vào thứ Ba: 2 môn còn lại chỉ có 1 cách là 57, hoán vị 2 môn này có 2 cách
Tổng cộng: \(6+2=8\) cách
Xác suất: \(P=\dfrac{8}{120}\)
Viết thuật toán nhập vào từ bàn phím số nguyên dương N.
a, Kiểm tra xem số đó là chẵn hay lẻ.
b. Kiểm tra xem số đó có chia hết cho 3 hay không?.
Input: số nguyên N
Output: N là chẵn hoặc N là lẻ
- Thuật toán liệt kê:
+ Bước 1: Nhập N
+ Bước 2: Nếu N chia hết cho 2 thì in ra N chẵn và kết thúc thuật toán ngược lại nếu N không chia hết cho 2 thì in ra N lẻ và kết thúc thuật toán
- Thuật toán sơ đồ khối:
viết thuật toán nhập vào 3 số a b c. kiểm tra và thông báo ra màn hình xem a b c có phải là 3 cạnh của tam giác hay không nếu phải thì kiểm tra và thông báo ra màn hình đó là tam giác vuông hay không rồi tính diện tích của tam giác đó?
mình đang cần gấp cảm ơn mn trc nha
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b=');c readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la tam giac vuong')
else begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac vuong la: ',s:4:2);
end;
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.