Câu 15: (3,0 điểm) Tìm lỗi sai ở mỗi câu lệnh và sửa lại (nếu có). Chương trình tính chu vi của hình tròn với bán kính R được nhập từ bàn phím. (1) Program Chu vi hinh tron; (2) Uses Crt; (3) Var r, c : Real; (4) Const pi=3,14; (5) Begin; (6) Writeln(‘Xin chao cac ban. Toi la Pascal’); (7) Write(‘Ban kinh cua hinh tron la: ’); (8) Readln(r); (9) c:=r*pi; (10) Writeln(‘Chu vi cua hinh tron la: , ’c); (11) Readln; (12) End

(1) Tên không được chứa dấu cách

`=>` Sửa: Program Chuvihinhtron;

Hoặc: Program Chu_vi_hinh_tron;

(4) Dấu ngăn cách phần nguyên và phần thập phân phải là dấu chấm

`=>` Sửa: Const pi=3.14;

(5) Dư dấu ";"

`=>` Sửa: Begin

(9) Sai công thức tính chu vi hình tròn

`=>` Sửa: c:=r*2*pi;

(10) Sai vị trí của dấu phẩy và dấu nháy đơn

`=>` Sửa:Writeln(‘Chu vi cua hinh tron la: ',c);

(12) Thiếu dấu "."

`=>` Sửa: End.

* Sửa chương trình 

(1)           Program Chu_vi_hinh_tron;
(2)           Uses Crt;
(3)           Var r, c : Real;
(4)           Const pi  =3.14;
(5)           Begin;
(6)           Writeln(‘Xin chao cac ban. Toi la Pascal’);
(7)           Write(‘Ban kinh cua hinh tron la: ’);
(8)           Readln(r);
(9)           c := 2*pi*r ;
(10)         Writeln(‘Chu vi cua hinh tron la: ', c);
(11)         Readln;
(12)         End.

*********************************************

Dòng 1 : tên biến không được có khoảng trắng;

Dòng 4 : 3,14 là không hợp lệ thay dấu phẩy thành dấu chấm 

Dòng 5 : sau begin có chấm phẩy là sai

Dòng 9 : sai công thức tính chu vi hình tròn 

Dòng 10 : thứ tự dấu phẩy và dấu ngoặc đơn  chưa đúng 

Dòng 12 : thiếu dấu chấm sau end.