tìm lỗi sai ạ var a:=5; giúp em với em cần gấp
Các khai báo biến sau đúng hay sai? Nếu sai hãy chỉ ra lỗi sai và sửa lại cho đúng
1. Var tb :=real;
2. Var 8a2 : integer;
3. Var A, B : integer;
4. Var T : Real;
5. Var X = 5.
1: Sai
2: Sai
3: Đúng
4: Đúng
5: Sai
Câu 5: Tìm lỗi sai trong các lệnh khai báo sau và sửa lại cho đúng.
a, var start;begin:real
b, const x:=50,y:=500;
c, var a=8;
d, var xep_loai;diem:interger;real;
Kíu!!!! Mai thi mất r!!!!
Tham khảo:
Tìm lỗi sai trong các lệnh khai báo sau và sửa lại cho đúng : a, var start , begin : real ; b, const x : = 3 . 14 , y : 1000 ; c, var a : 5 ; d, const ten lop = ' 8a2 ' ; e, var xep _ loại , diem : integer , real ; f, var nguyen 1 , nguyen 2 ,... - Hoc24
Câu 5: Tìm lỗi sai trong các câu lệnh khai bao sau và sửa lại cho đúng.
a) var Start, begin: real;
b) const x:= 50, y:= 500;
c) var a=8;
d) var xep_loai, diem : integer, real;
Giúp mình với !
c: Lỗi sai là chữ var
Sửa lại const a=8;
Tìm và sửa lỗi sai các câu sau, giải thích rõ lỗi sai đó
a, Var begin:real;
b, Const y:integer;
c, Var bk=3
d, Var AB:array[1...100] of integer;
e, Var Diem: array[3.8...4.5] of real;
Tin 8
help me
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ
Tìm và sửa lỗi trong chương trình pascal sau:
var T, So, D: longint;
begin
T:= 0;
D:= 0;
repeat
write('Nhap so: ');
readln(So);
if T + So <= 15000 then
begin
T:= T + So;
D:= Dem + 1;
end;
until T >= 15000;
writeln('Tong cac so la: ', Tong);
writeln('Tong so da nhap: ', Dem);
readln;
end.
Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem
Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()
a, Var begin:real;
b, Const y:integer;
c, Var bk=3
d, Var AB:array[1...100] of integer;
e, Var Diem: array[3.8..4.5] of real;
Lỗi sai mình đóng trong ngoặc và in đậm nhé.
a, Var begin:real;
---> Lỗi sai : Var (begin):real;
---> Sửa lỗi : Var begi : real;
---> Giải thích lỗi sai : Khai báo biến trùng với từ khóa
b) Const y:integer;
---> Lỗi sai : Const y(:)integer;
---> Sửa lỗi : Const y=integer;
---> Giải thích: sai cú pháp khai báo hằng
c) Var bk=3
---> Lỗi sai : (Var) bk=3
---> Sửa lỗi : Const bk=3
---> Giải thích : Khai báo hằng nhưng lại dùng từ khóa khai báo của biến
d) Var AB:array[1...100] of integer;
---> Lỗi sai : Var AB:array[1..(.)100] of integer;
---> Sửa lỗi : Var AB:array[1..100] of integer;
---> Giải thích : sai cú pháp khai báo mảng
e) Var Diem: array[3.8..4.5] of real;
---> Lỗi sai : array[(3.8)..(4.5)] of real;
---> Sửa lỗi : array[3..5] of real;
---> Giải thích:
Cú pháp khai báo mảng là: var <biến mảng> ; array[<giá trị đầu>..<giá trị cuối>] of <kiểu dữ liệu>;
Trong đó giá trị đầu và giá trị cuối là kiểu dữ liệu số nguyên.
a)
-Lỗi sai: begin là biến
-Sửa lỗi: Var a:real;
-Giải thích: Biến trùng với từ khóa là sai nguyên tắc đặt tên biến trong pascal
b)
-Lỗi sai:
+ Có dấu: giữa chữ y và integer
+ Gán giá trị hằng số y là một kiểu dữ liệu
-Sửa lỗi: Const y=10;
-Giải thích: Sai cú pháp hằng
Tìm và sửa lỗi sai các câu sau, giải thích rõ lỗi sai đó
a, Var begin:real;
b, Const y:integer;
c, Var bk=3
d, Var AB:array[1...100] of integer;
e, Var Diem: array[3.8...4.5] of real;
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
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.
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;
Xác định lỗi sai và sửa lại
a) Var X : Array [1;50] of integer;
b) Var X : Array [5..50.5] of real;
c) For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A');
e) While x:=10 do x:=x+5;
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;