Hãy chỉ ra lỗi sai Var x:real; Begin For x:= 1 to 10 do Writeln('A');end. Giúp mình với nha:3
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.
không có dấu chấm phẩy sau mỗi câu lệnh
chỗ pi = 3,14 phải sửa thành const pi = 3,14;
CHÚC BẠN THI TỐT^^
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
Tìm và sửa các lỗi sau:
Uses ; crt ;
Var x:real; y:integer;
Begin
X:=10;
Y:=5/2
y=x+y
Write('Y=' Y);
Uses crt;
Var x: real; y: Integer;
Begin
x:= 10;
y:= 5/2;
y:= x+y;
Write('Y=',Y);
Bài này bạn làm sai nhiều lắm, k có End. r mấy câu gán x và y bị lặp nhau nói chung là bài làm này chưa đúng. Nếu k hiểu thì bạn đặt câu hỏi ra luôn r mình giải hộ cho. Chúc bạn học tốt !
lỗi thứ 1:
uses ; crt ; ➝ uses crt;
lỗi thứ 2:
bạn đã khai báo y là số nguyên thì không thể thực hiện được phép chia 5/2 được nên phải khai báo y là số thực( mình chỉ giải thích thêm thôi)
nên sửa lại:
var x,y;real; hay Var x:real; y:real;
và thêm dấu chấm phẩy vào sau y:=5/2
lỗi thứ 3
phải thêm dấu hai chấm và dáu chấm phẩy vào y:=x+y;
nếu bạn để trùng cũng được bởi vì pascal chạy tuần tự từng câu lệnh
lỗi thứ 4:
thêm end vào cuối bài nữa nhé (nếu bạn muốn xem chương trình thì thêm readln trên end nhé)
nếu thiếu bỏ qua cho mình nhé
-Thứ nhất thiếu tên chương trình
- Thứ 2 sai ở var a,b:=byte sửa lại thành a,b: byte;
- Thứ 3 sai ở const c:3; sửa lại thành const c=3;
-Trong pascal thiếu tên ct(vd: program baihoc;) thì ct vẫn chạy ok.
- var thì phải dùng ":" và thiếu ";". Sửa lại: var a,b:byte;
- const thì phải dùng "=". Sửa lại: const c=3;
-trong ct thiếu clrscr; thì ko sai nhưng sẽ rất khó nhìn.
-Sau readln thiếu ";". Sửa lại: readln;
Câu e sai vì trong phần điều kiện không thể có dấu gán ':='
Câu f sai vì sau else chưa hết câu mà đã có dấu chấm phẩy
và Write phải chuyển thành Writeln và chu 'bang' chuyen thanh' = ' và 'khac' chuyển thành '\(\ne\)'
Real => byte
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