program nhom_ppt;

uses crt;

begin

writeln('Nhom chung minh Phan,My,Minh');

writeln('Chuc cac ban hoc tot');

readln;

end.

Program kiemtra: -> kết thúc phải là dấu '', sửa: Program kiemtra;

Use crt -> thiếu dấu '' khi kết thúc 1 lệnh, sửa: Use crt;

Var a, b: interger;

c: integerl; -> Sai tên kiểu dữ liệu, sửa: c: integer;

Begin

Clrscr;

a: = 10;

b = 3; -> lệnh gán sai, sửa: b:=3;

c: = a/b -> thiếu '' khi kết thúc 1 câu lệnh sửa: c:=a/b;

Writeln(‘Gia tri cua c = ‘,c);

Readln;

End -> kết thúc thiếu dấu '.'. sửa: End.

a) uses crt;

b) var dt, r: real;

c) Thiếu Begin

d) dt:= pi*sqr(r);

Chương trình 1 có lỗi cú pháp, câu lệnh 2, 3 không khớp nối với câu lệnh 1, 4.

Chương trình 2 có lỗi logic, a = b thuộc trường hợp a > b sai nên chương trình đưa ra thông báo sai khi nhập hai số a, b bằng nhau.

Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;

Lỗi: gia tri sửa lại: giatri

Lỗi: readin(n) sửa lại: readln(n);

Lỗi: i:=1 sửa lại: i:=1;

Lỗi: while i < n do sửa lại: while i <= n do

Lỗi: i:=i+2 sửa lại: i:=i+1;

Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);

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.

Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

chắc là sau readln nếu có thêm chấm phẩy

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;