1: Sai

2: Sai

3: Đúng

4: Đúng

5: Sai

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);

Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.

Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.

Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.

Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.

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é

chỗ mà 5/2 nhé. không phải là phép chia mà gán nhé mình bất cẩn quá . xin lỗi

-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\)'

a, var h,b: integer;

b, đúng

c,const y:=4;

d, constr:=2;

e, ko nghĩ ra vì lâu ko viết chương trình nên quên rồi ~~

f, ... else write...

a. Sai

var h,b:integer;

giữa 2 biến phải có dấu " , "

b. Đúng

c. Đúng

d. Sai

Const y = 2;

Cách khai báo hằng: Const (Tên_hằng) = (Giá_trị);

e. Sai

Trong phần điều kiện không thể có dấu gán

f. Sai

If a = b then write (a,'bang',b) else write (a,'khac,'b);

Giữa else và write không thể có dấu " , "

a, Var Tb:Real,