Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
Cho đoạn chương trình:i:4; K:7;while i6 do i:i+1; k:k+1;Writeln(i,,k);Sau khi thực hiện đoạn chương trình trên i, K có kết quả là.A. 6;13B. 6;12C. 6;7D. 6;6
Đọc tiếp
Cho đoạn chương trình:
i:=4; K:=7;
while i<6 do i:=i+1; k:=k+1;
Writeln(i,,k);
Sau khi thực hiện đoạn chương trình trên i, K có kết quả là.
A. 6;13
B. 6;12
C. 6;7
D. 6;6
Câu 36. Cho đoạn chương trình: i:1; j:2; k:3;While i6 do i:i+1; j:j+1; k:k+j;Writeln (i, j, k);Sau khi thực hiện đoạn chương trình trên i, j, k có kết quả làA. 6;3;6B. 6;6;12C. 6;7;12D. 6;7;28
Đọc tiếp
Câu 36. Cho đoạn chương trình:
i:=1; j:=2; k:=3;
While i<6 do i:=i+1; j:=j+1; k:=k+j;
Writeln (i, j, k);
Sau khi thực hiện đoạn chương trình trên i, j, k có kết quả là
A. 6;3;6
B. 6;6;12
C. 6;7;12
D. 6;7;28
Câu 22 (TH): Hãy cho biết kết quả của b trong đoạn chương trình sau đây. a:1; b:5; while a10 do begin b:b-a; a:a-1; end;A. b5.B. b4. C. b15.D. b20.Câu 26 (NB): Hãy cho biết điều kiện trong đoạn chương trình sau đây. a:1; b:5; while a10 do begin b:b-a; a:a-1; end;A. a1 B. a10 C. a10 D. a10Câu 27 (NB): Hãy cho biết câu lệnh trong đoạn chương trình sau đây. S:1; i:1; while S10 do begin i:i+1; s:s+i end;A. begin i:i+1; s:s+i end;B. S:1; i:1;C. S10D. begin...
Đọc tiếp
Câu 22 (TH): Hãy cho biết kết quả của b trong đoạn chương trình sau đây.
a:=1; b:=5; while a>=10 do begin b:=b-a; a:=a-1; end;
A. b=5. | B. b=4. | C. b=15. | D. b=20. |
Câu 26 (NB): Hãy cho biết điều kiện trong đoạn chương trình sau đây.
a:=1; b:=5; while a>=10 do begin b:=b-a; a:=a-1; end;
A. a=1 B. a>=10 C. a>10 D. a=10
Câu 27 (NB): Hãy cho biết câu lệnh trong đoạn chương trình sau đây.
S:=1; i:=1; while S<=10 do begin i:=i+1; s:=s+i end;
A. begin i:=i+1; s:=s+i end;
B. S:=1; i:=1;
C. S<=10
D. begin i:=i+1;
giúp nốt cho mik mấy câu này vơi ạ
Hãy sắp xếp lại đoạn chương trình sau cho đúng:
var S, n : integer;
S:=0; n:=1;
while S<=100 do n:=n+1;
S:=S+n;
end;
writeln('So n nho nhat de tong > 100 la ',n);
readln
end.
Begin
begin
writeln('Tong dau tien > 100 la ',S);
Xem chi tiết
Câu 17. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:16; T:T -n; end;A.2 B.3 C.4 D.5Câu 18: Cho đoạn chương trình sau:S:10; x:0,5;While 6,2 doS:S-x;Hãy cho biết giá trị của S sau đoạn chương trình trên:A. 5 B. 4 C.6 D.7Câu 19. Sau khi thực hiện đoạn chương trình sau:j:0; s:1;for i:1 to 3 doj:j+1;s:j+1;Gía trị của biến j, biến s bằng?A. j4, s3 B.j:3; s4 ...
Đọc tiếp
Câu 17. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình n:=16; T:=T -n; end;
A.2 B.3 C.4 D.5
Câu 18: Cho đoạn chương trình sau:
S:=10; x:=0,5;
While >=6,2 do
S:=S-x;
Hãy cho biết giá trị của S sau đoạn chương trình trên:
A. 5 B. 4 C.6 D.7
Câu 19. Sau khi thực hiện đoạn chương trình sau:
j:=0; s:=1;
for i:=1 to 3 do
j:=j+1;
s:=j+1;
Gía trị của biến j, biến s bằng?
A. j=4, s=3 B.j:=3; s=4 C.j:=1; s=2 D.j:=2; s:=3
Câu 21. Gỉa sử có dòng lệnh :
for i:=0 to 9 do
a:=1+i;
Số lần lặp của lệnh gán a:=1+i là:
A.11 B.0 C.10 D.9
Câu 6: Đoạn lệnh sau đây cho biết kết quả nào?
var i: byte;
i: 5;
While i5 do
Begin
Write(i:2);
i: i-1;
end;
a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5;
c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng.
Câu 7:Đoạn lệnh sau đây cho biết kết quả nào?
Var so: byte:
so: 1;
While so10 do writeln(so);
so:so+1;
a.In ra các số từ 1 đến 9; b...
Đọc tiếp
Câu 6: Đoạn lệnh sau đây cho biết kết quả nào?
var i: byte;
i:= 5;
While i<=5 do
Begin
Write(i:2);
i:= i-1;
end;
a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5;
c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng.
Câu 7:Đoạn lệnh sau đây cho biết kết quả nào?
Var so: byte:
so:= 1;
While so<10 do writeln(so);
so:=so+1;
a.In ra các số từ 1 đến 9; b.In ra các số từ 1 đến 10;
c.In ra vô hạn các số1, mỗi số trên một dòng. d.In ra các số từ 10 đến 1.
Câu 8:Cho đoạn chương trình sau:
Var x, tong : byte;
x:=0; tong:=0;
While tong <= 20 do
Begin
Writeln(tong);
tong:=tong +1;
End;
x:=tong;
Sau khi đoạn chương trình trên được thực hiện, giá trị của x bằng bao nhiêu?
a.20. b. 21. c. Không xác định. d. 0.
Câu 9: Hãy cho biết kết quả của đoạn chương trình dưới đây?
a:=10;
While a< 11do writlen(a);
a.Trên màn hình xuất hiện một số 10.
b.Trên màn hình xuất hiện 10 chữ.
c.Trên màn hình xuất hiện vô số chữ số10,chương trình bị lặp vô tận.
d.Trên màn hình xuất hiện một số 11.
Câu 14:Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó.
a) Thuật toán 1:
Bước 1. S ← 10, x ← 0.5
Bước 2. Nếu S ≤ 5.2, chuyển tới bước 4.
Bước 3. S ← S –x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2:
Bước 1. S ←10, n ← 0.
Bước 2. Nếu S ≥ 10, chuyển tới bước 4.
Bước 3. n ← n+3, S ← S-n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
Câu 15: Hãy tìm hiểu mỗi đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp. Hãy rút ra nhận xét của em.
a)S:=0;n:=0;
while S <=10 do
begin n:=n+1;S:=S+n end;
b)S:=0;n:=0;
while S >=10 do
n:=n+1; S:=S+n;
Câu 16: Sử dụng cấu trúc lệnh While ...do để viết chương trình tính tổng của các số tự nhiên liên tiếp bé hơn 20.
Câu 17: Sử dụng cấu trúc lệnh While ...do để viết chương trình tính tích của các số tự nhiên liên tiếp từ 1 đến n.
giúp với nhé, mình cảm ơn nhiều lắm ^-^
cho biết kết quả của đoạn chương trình sau:
a:= 60;
t:= 0;
while t<=10 do t := t + 2;
a := a mod t;
write (‘ gia tri cua a =’,a);
A. 0
B. 5
C. 10
D. 30
Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau: i := 10; While i>=1 do i := i – 1; A. 1 lần B. 2 lần C. 10 lần D. 6 lần
Cho đoạn chương trình:
j:= 2;
for i:= 1 to 5 do j:= j+1;
Sau khi thực hiện chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 7; B. 8; C. 9; D. 10