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.
a: Không hợp lệ
Sửa lại: for i:=50 downto 10 do writeln('A');
b: Không hợp lệ
Sửa lại: for i:=1 to 5 do writeln('A');
c: Không hợp lệ
x:=3;
while x<=3 do
x:=x+1;
d: Không hợp lệ
Sửa lại: x:=5;
while x<=5 do
x:=x+2;
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
Câu 2.
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap so ban lam bai thi hoc ki tin : '); readln(n);
for i:=1 to n do
begin
write('Nhap diem kiem tra hoc ki Tin cua ban thu ',i,' :'); readln(a[i]);
end;
writeln(n);
for i:=1 to n do write(a[i],' ');
readln
end.
Câu 1.
* Cú pháp : while <điều kiện> do <câu lệnh>;
* Hoạt động :
- Bước 1: Kiểm tra điều kiện lặp:
+ Nếu điều kiện lặp sai thì thoát khỏi vòng lặp, chuyển sang lệnh tiếp theo.
+ Nếu điều kiện lặp đúng thì chuyển sang bước 2.
- Bước 2: Thực hiện khối các lệnh lặp.
- Bước 3: Quay lại bước 1.
A/ Sai.
Sửa: Var x:array[10..13] of integer;
B/ Sai.
Sửa: S:= 0; n:= 0; while S < 50 do
begin n:= n + 1; S:= S + n; end;
C/ Sai.
Sửa: for i:= 1 to 10 do writeln('A');
D/ Sai.
Sửa x: integer; begin for x:= 1 to 10 do writeln('A'); end.
a.Var X: Array[10,13] of integer; ⇒ S
Sửa: Var X: Array[10..13] of integer;
b.Var X: Array[5..10,5] of real; ⇒ S
Sửa: Var X: Array[1..11] of real;
c.Var X: Array[3,4..4,8] of integer; ⇒S
Sửa: Var X: Array[3..5] of integer;
d. Var X: Array[4..10] of integer; ⇒ Đ
Đây là những câu lệnh lặp không phải khai báo biến mảng bạn nha.
a/ -> Đúng nhưng đây là vòng lặp vô hạn
b/ -> Sai. Vì không có biến đếm.