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/ 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: 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
a)For i:=10 to 1 do x:=x+1
---> Lỗi : giá trị đầu lớn hơn giá trị cuối
b)For i:=1 to 5,5 do x:=x+1
---> Lỗi : Giá trị cuối không phải là kiểu dữ liệu số thực. (biếm đếm, giá trị đầu và giá trị cuối bắt buộc phải là kiểu dữ liệu số nguyên)
c)Var i: real
Begin for i:=1 to n do x:=x+1 end;
---> Lỗi : Biến i phải khai báo sai kiểu dữ liệu.( Biến i phải thuộc dữ liệu số nguyên vì i là biến đếm)
For i:=1 to 10 do writeln('A'); Đúng
Var x; array[5...10]of char; Sai
Sửa lại: var x:array[5..10]of char;
Bài 1:
a/ For i:=1 to 10; do x:=x+1;
- Câu lệnh này là sai.
- Lỗi sai thừa dấu ';' ở trong ngoặc For i:=1 to 10(;) do x:=x+1;
b/ For i:=10 to 1 do x:=x+1;
- Câu lệnh này là sai
- Lỗi sai giá trị đầu lớn hơn giá trị cuối
c/ For i:= 1 to 10 do x:=x+1;
- Câu lệnh này là đúng
Bài 2:
Đoạn chương trình 1/
Giá trị j =5
Gía trị k=8
Máy in : 5 8
Đoạn chương trình 2/
Giá trị j=5
Giá trị k=15
Máy in : 5 15
Real => byte
Chắc chắn là bạn phải thay kiểu dữ liệu Real sang Integer hoặc Byte rồi bởi vì Với vòng lặp for, biến đếm không bao giờ là số thực