Var a, b : integer; x, y : real; Const c : 2; Begin a := 7 ; b =8 a:=x; y:= a mod b; Writeln(x:4); Writeln(y:4:2); c:=2; Writeln(x

0 bình luận về “Var a, b : integer; x, y : real; Const c : 2; Begin a := 7 ; b =8 a:=x; y:= a mod b; Writeln(x:4); Writeln(y:4:2); c:=2; Writeln(x”

1. *Mình ko biết là bạn đã ghi chưa nhưng mình bổ sung tất cả luôn nhé:

      – Bạn thiếu phần khai báo tên chương trinh và thư viện

      – Khi gán b=8 thì bạn thiếu dấu ” : ” và dấu ” ; ” cuối dòng đó

      – Trước khi ghi End. thì bạn nên có thêm lệnh Readln; để đọc màn hình

      – Ở dòng a:=x; bạn nên sửa lại là x:=a;

      – Vì ở trên bạn đã khai báo hằng c=2 (hằng không thể thay đổi) nên bên dưới không thể gán giá trị  c=2

   *Sửa lại Chương trình:

   program ct;

   uses crt;

   var a,b:integer;

         x,y:real;

   const c:2;

   begin clrscr;

      a:=7; b:=8;

      x:=a;

      y:=a mod b;

      writeln(x:4:2);

      writeln(y:4:2);

      writeln(x mod c);

   readln;

   end.

   Học tốt!

   Bình luận

2. *Lỗi sai:

   – Thiếu phần khai báo thư viện

   – Dòng thứ 3: const c = 2; (không phải dấu 2 chấm)

   – Dòng thứ 5: b:=8; (Thiếu dầu bằng và dấu chấm phẩy)

   – Dòng thứ 6: x:=a; (“x” gán cho “a”, tức x = giá trị của a)

   – Dòng thứ 10: Bỏ dòng này (Vì đã khai báo hằng ở trên)

   – Thêm “readln” vào trước “end.” (Không cần dấu chấm phẩy)

   *Sửa chương trình:

   Uses crt;

   Var a,b: integer;

         x,y: real;

   Const c=2;

   Begin

   Clrscr;

        a:=7; b:=8;

        x:=a;

        y:=a mod b;

        Writeln(x:4);

        Writeln(y:4:2);

        Writeln(x mod c);

   Readln

   End.

   Bình luận