B1. Hãy liệt kê các lỗi có trong chƣơng trình dƣới đây và sửa lại cho đúng: Var a,b:= integer; Const c:=300; Begin a:=100; b:=c/a; Writeln(b) End.

0 bình luận về “B1. Hãy liệt kê các lỗi có trong chƣơng trình dƣới đây và sửa lại cho đúng: Var a,b:= integer; Const c:=300; Begin a:=100; b:=c/a; Writeln(b) End.”

1. Var a,b:= integer;               `->`   var a: integer;  b: real;   (vì b gán kết quả phép chia nên phải là số thực)
   Const c:=300;                   `->` const c=300;
   Begin
   a:=100;                        
   b:=c/a;                                             (1)
   Writeln(b)                         `->` Writeln(b);           (thiếu dấu chấm phẩy)    
   End.                          `->` readln;   End.

   Bình luận

2. Các lỗi trong bài:
   Var a,b:= integer; {Khai báo Var không có lệnh gán. Do đó sau tên biến chỉ  có “:” sau kiểu dữ liệu}

   Const c:=300; {Chỉ có dấu “=” vì đây là const chứ không phải là khai báo}

   Begin

   a:=100;

   b:=c/a; {Do b khai báo thuộc kiểu integer, không phải real. Mà phép gán b sẽ cho  ra kết quả thuộc real}

   Writeln(b) {Không có “;” sau câu lệnh}

   End.
   Sửa lại:

   Var a,b : integer;

   Const c=300;

   Begin

   a:=100;

   Writeln(‘Gtri B luc nay= ‘,c/a); 
   End.
   Hoặc: 

   Var a : integer; b:real;

   Const c=300;

   Begin

   a:=100;
   b:=c/a;

   Writeln(‘Gtri B luc nay= ‘, b); 
   End.

   * Trước “end.” có thể có readln hoặc không cũng không sao nhé! Vì chúng chỉ cho phép dừng kết quả lại!

   Bình luận