tìm lỗi sai ạ var a:=5; giúp em với em cần gấp
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)
-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
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.
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;
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;
đâu?
???