Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
Không có câu nào đúng.
A. Đúng theo cách trình bày nhưng thiếu dẫn đến vòng lặp vô hạn. Phải ghép 2 câu lệnh sau do lại bằng begin ... end;.
B. Sai vè sau while lại là 1 phép gán S:=10
C. Sai, vì sau do câu lệnh lại là 1 điều kiện a=b. Và đây cũng là 1 vòng lặp vô hạn
a) Lỗi: Dư dấu ; sau từ do
b) Lỗi: While i>20 then (sửa: While i>20 do)
c) Lỗi: B=B+2; (sửa: B:=B+2;)
d) Lỗi: dư dấu ; sau từ do
e) Lỗi: S=S*2; (sửa: S:=S*2;)
f) Lỗi: i:=1 (sửa: i:=1;)
S:=0; i:=0;
While i<5 do
begin
S:=S+i;
i:=i+1;
end;
A. 15 B. 10 C.0 D. Không xác định
Giải thích:
Mô tả lặp trong vòng lặp while..do :
-Vòng 1: i ban đầu bằng 0. Kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh s=s+i <=> s=0+0=0 ; i=i+1 <=> i=0+1=1.
Vòng 2: i=1 , kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=0+1=1; i=i+1 <=> i=1+1=2.
Vòng 3: i=2, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=1+2=3; i=i+1 <=> i=2+1=3.
Vòng 4: i=3, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=3+3=6; i=i+1 <=> i=3+1=4.
Vòng 5: i=4, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=6+4=10; i=i+1 <=> i=4+1=5.
i=5, kiểm tra điều kiện i<5 ---> ĐK sai ---> kết thúc
Vậy giá trị s sau khi thực hiện đoạn chương trình đó là : 10
câu 1:
Var s, i: longint;
Begin
S := 0; //Thiếu dấu chấm phẩy ở đey
i := 1;
while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp
begin
s := s + i;
i := i + 1;
end;
write('s = ', s);
end.
câu 2:
Var p, i, n: real;
Begin
Readln(n);
p := 1;
for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng
begin
p := p * i / (i + 1);
end;
write('p = ', p);
end.
câu 3:
Var a: array [1..50] of longint;
n, s, i: real; //Thiếu dấu chấm phẩy ở đey
Begin
Readln(n);
For i := 1 to n do
begin
Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng
end;
S := 0;
For i := 1 to n do
begin
S := S + a[i];
end;
write('s = ', S); //Sửa lại tên biến trong write
end.
s=32