Question

Hãy tìm lỗi trong ví dụ dưới đây và sửa lại cho đúng:

Mỗi dòng là 1 ý nhá mn, không phải đây là cả một chương trình đâu ạ ! mong mn giúp

Program Vi_du;

Var a,b,c,s: Integer;

Begin

Write(\(`\)nhap chieu dai a =\('\)); readln(\(` \)a\('\))

Write(\(`\)nhap chieu dai b =\('\)); readln(\(`\)b');

S:=a*b

C:=(a+b)x2;

Write(\('\)dien tich hinh chu nhat la: \(`,\) \(`\)S\('\));

Write(\(' \)chu vi hinh chu nhat la: \('\)\(,'\)C\('\));

Readln;

End

Answer 1

Dòng 6: Lỗi kết thúc lệnh gán không có dấu ; . Sửa : S:=a*b;

Dòng 7: Lỗi sai phép nhân đối với Pascal. Sửa: C:=(a+b)*2;

Dòng 8: Để in ra giá trị của biến S thì không được bỏ dấu nháy. Sửa write('Dien tich hinh chu nhat la : ',S);

Dòng 9: Để in ra giá trị của biến C thì không được bỏ dấu nháy. Sửa write('Dien tich hinh chu nhat la : ',C);

Answer 2

Dòng cuối cũng sai.

Sửa lại thành End. (lệnh End có dấu chấm ở cuối)