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) Var X : Array [1;50] of integer; (sai cách khai báo mảng)
-> Var X : Array [1..50] of integer;
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)
-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)
-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)
->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)
-> While x=10 do x:=x+5;
a, var start , begin : real ;
( tên biến không được trùng với từ khóa)
=> var start, biến bất kì (vd: a, b, c..):real;
b, const x : = 3 . 14 , y : 1000 ;
( khai báo hằng phải dùng dấu "=", giữa các hằng phải được ngăn cách = dấu chấm phẩy)
=> const x=3.14; y=1000;
c, var a : 5 ;
(khai báo biến là khai báo kiêu dữ liệu của biến chứ không khai báo giá trị của biến)
=> var a: kiểu dữ kiệu bất kì (vd: integer, real,...);
d, const ten lop = ' 8a2 ' ;
(tên hằng không được chứa ký tự đặc biệt);
=> const ten_lop (tenlop) = '8a2';
e, var xep _ loại , diem : integer , real ;
(tên biến không được chứa ký tự đặc biệt và không có dấu, không được khai báo 1 biến mà nhiều kiểu dữ liệu)
=> var xep_loai, diem:integer (real) ;
f, var nguyen 1 , nguyen 2 , : integer , thuc 1 , thuc 2 , : real ;
( tên biến không được chứa ký tự đặc biệt, dư dấu phẩy, giữa các kiểu khai báo biến phải ngăn cách = dấu chấm phẩy)
=>var nguyen1 (nguyen_1), nguyen2 (nguyen_2) : integer; thuc1( thuc_1), thuc2 (thuc_1) : real;
g, const 3 ban = ' Phan ' , ' Tuan ' , ' Thanh ' ;
(tên hằng k được bắt đầu = chữ số, các giá trị phải ghi chung chứ k ghi riêng)
=> const ten3ban = 'Phan, Tuan, Thanh';
h, const tên _ nhom = Tin hoc ;
( tên hằng không chứa ký tự đặc biệt và không có dấu, giá trị là chữ thì phải đặt trong dấu ' ')
=>const ten_nhom='Tin hoc';
chúc bạn học tốt!!
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;
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
Sửa :
Var x: byte;
begin
for x:=1 do 10 do
writeln('A');
end.