Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp  cho đúng?

                        Tính giá trị biểu thức: 12.x – 30 + 12

              Uses CRT:

          Clrscr.

            Begin

           Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3)

           Program Tinh _gia_tri_bieu_thuc;

            Var x: Real;

            Write(‘Nhap gia tri x:  ’); readln(x);

            Readln;

            End.

Cho đoạn chương trình:

a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.

b. Sửa lỗi đoạn chương trình và đưa ra yêu cầu bài toán phù hợp với chương trình đã sửa lỗi.

Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?

Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:

Program     tinh_tong;

Var         n  S: Integer

Begin

n:  0;

S = 0;

While S< 1000 do

n:= n + 1; 

                   S:= S + n

            Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);  

    Readln;

End.

Chương trình sau đây tính chu vi, diện tích của hình chữ nhật( chu vi, diện tích, chiều dài, chiều rộng là số thực; chiều dài, chiều rộng được nhập vào từ bàn phím). Hãy khoanh tròn vào các lỗi trong chương trình và sửa lại cho đúng.

Progam hinh chu nhat;

uses crt

var chd, chr, chuvi, dientich:read;

begin

clrscr;

writeln<‘nhap chieu dai hinh chu nhat:’);

readln(chd);

writeln(‘nhap chieu rong hinh chu nhat:’);

readln(chr)

chuvi=(chd+chr)*2;

dientich=chd*chr;

writeln(‘Chu vi hinh chu nhat la:’chuvi:10:2);

writeln(‘Dien tich hinh chu nhat la:, dientich:10:2);

readln;

end.

Cho chương trình Pascal sau:

Program chuvi_duongtron :

uses crt;

const pi := 3.14;

var cv, r: real;

Begin

clrscr;

write(‘nhap ban kinh r = ‘);

 writeln(r);

cv:= 2*pi*r;

writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);

readln

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.