cứu tớ với <333 Cho chương trình sau: Hãy sửa lại để chương trình đúng Program Bai kiem tra học ky I; Var Cv,Dt: integer; R:real; Const pi: =3.14; Begin Write (‘Ban hay nhap R =’); Read(R); Writeln(‘chu vi hinh tron la’,Cv); Cv=2*pi*R; Writeln(‘Dien tich hinh tron la’,Dt); Dt=pi*R*R; Readln; End;

Mình đánh dấu theo số thứ tự từ 1 xuống nha! (bắt đầu từ program...)

_________________________________________________

(1) Sai vì tên không được chứa dấu cách 

`=>` Sửa lại: Program BaikiemtrahockyI;

(2) Sai vì chu vi và diện tích phải là kiểu số thực

`=>` Sửa lại: Var Cv,Dt:real;

(4) Sai vì dư dấu ":"

`=>` Sửa lại: Const pi=3.14;

(7+8) Phải gán giá trị trước rồi mới xuất giá trị sau

`=>`Sửa lại:

Cv=2*pi*R; Writeln(‘chu vi hinh tron la’,Cv); 

Dt=pi*R*R; Writeln(‘Dien tich hinh tron la’,Dt); 

(10) Sai dấu ";"

`=>`Sửa lại: End.

__________________________________________________

CHƯƠNG TRÌNH HOÀN CHỈNH:

Program BaikiemtrahockyI;

Var Cv,Dt: real;

       R:real;

Const pi=3.14;

Begin

Write (‘Ban hay nhap R =’); Read(R);

Cv=2*pi*R; Writeln(‘chu vi hinh tron la’,Cv); 

Dt=pi*R*R; Writeln(‘Dien tich hinh tron la’,Dt); 

Readln;

End.