Những câu hỏi liên quan
TB
Xem chi tiết
KL
20 tháng 4 2023 lúc 9:02

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;)

Bình luận (0)
SK
Xem chi tiết
TP
14 tháng 8 2018 lúc 9:53

a) Thừa dấu hai chấm trong điều kiện;

b) Thiếu dấu hai chấm trong câu lệnh gán;

c) Thiếu các từ khóa begin và end trước và sau các lệnh n:=n+1; S:=S+n, do đó vòng lặp trở thành vô tận.

Bình luận (0)
NH
Xem chi tiết
ML
23 tháng 3 2023 lúc 23:34

Sửa:

S:=0;n:=0;

while s<=10 do

Begin

   n:=n+1;

   s:=s+n;

End;

Bình luận (0)
TN
Xem chi tiết
ML
14 tháng 4 2020 lúc 9:54

a) X:= 5(;) while X <= 5(;) do X:= X + 5;

----> lỗi sai: Thừa 2 dấu ';' ở sau while và ở sau do (lỗi sai trong ngoặc)

----> sửa lại :X:= 5 while X <= 5 do X:= X + 5;

b) X= 10; while X = 10 do X:= X + 5;

----> lỗi sai : Sai lệnh gán X=10.

----> sửa lại : X:= 10; while X = 10 do X:= X + 5;

c) S:= 0; n:=0; while S <= 10 do S:=S + n ; n:=n+1;

Về cấu trúc không sai nhưng để như vậy sẽ thành vòng lặp vô hạn.

----> lỗi sai : thiếu begin ... end; ở sau câu lệnh lặp

----> sửa lại : S:= 0; n:=0; while S <= 10 do begin S:=S + n ; n:=n+1; end;

Bình luận (0)
LN
Xem chi tiết
H24
14 tháng 3 2022 lúc 20:23

A

Bình luận (3)
TC
14 tháng 3 2022 lúc 20:24

A

Bình luận (1)
QN
Xem chi tiết
NT
30 tháng 4 2022 lúc 21:22

a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối

b: Sai vì chỉ số đầu, chỉ số cuối là số thực

c: Sai vì chỗ end thiếu chấm phẩy

d: Sai vì chỉ số đầu lớn hơn chỉ số cuối

e: Sai vì chỉ số đầu và chỉ số cuối là số thực

d: Đúng

Bình luận (1)
QH
Xem chi tiết
NT
12 tháng 10 2019 lúc 20:42

a) 2 lỗi

- thiếu do

- vòng lặp for tuyệt đối không có ;

b: sau writeln('A') không có chấm phẩy

c: sai chỗ y:=10

phải là y=10 mới đúng

d: sử dụng 2 chấm phẩy là sai

sau while do nếu có từ 2 lệnh trở lên phải bao bọc trong begin end

e: thiếu dấu : sau i, đi từ 100 tới 20 là sai,

phải là for i:=100 downto 20 do mới đúng

f: không sai

Bình luận (0)
LN
Xem chi tiết
ML
15 tháng 3 2023 lúc 23:00

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

Bình luận (0)
TH
Xem chi tiết
H9
13 tháng 3 2023 lúc 11:59

Program câu 1;

Var n: Integer; s:real;

Begin

Writeln(‘ Nhap gia tri n=’); Readln(n);

S:=0;

While n<0 do

begin

s:=s+n/2; n:=n-1;

end;

write(‘tong s = ‘, s:8:2);

Readln;

End.

Bình luận (0)
ML
13 tháng 3 2023 lúc 12:26

Lỗi sai:

Program câu 1; -> Tên chương trình không chứa dấu cách trắng.

-> Sửa: Program cau_1;

Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n

-> Sửa: 

Writeln(‘ Nhap gia tri n=’); Readln(n);

While n >0 do

s:=s+n/2; n:=n-1;

Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con. 

-> Sửa 

While n >0 do

begin

s:=s+n/2; n:=n-1;

end;

 

Bình luận (0)