Để so sánh hai số a, b được nhập từ bàn phím, một bạn đã tạo chương trình ở Hình 1. Khi nháy chuột vào nút lệnh  chương trình không hoạt động. Bạn đã phát hiện được lỗi và chỉnh sửa thành chương trình ở Hình 2. Khi thực hiện chương trình ở Hình 2 và nhập giá trị a, b đều là 5, chương trình đưa ra kết quả sai (xem Hình 3).

Hãy thảo luận với bạn và cho biết:

- Tại sao chương trình ở Hình 1 không hoạt động?

- Tại sao chương trình ở Hình 2 đưa ra kết quả sai khi nhập cặp số a, b là (5;5)?

           Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ

          Tìm và sửa lỗi trong chương trình pascal sau: 

          var T, So, D: longint;
          begin
                T:= 0; 
                D:= 0;
                repeat
                write('Nhap so: ');
                readln(So);
                if T + So <= 15000 then 
          begin
                 T:= T + So;
                 D:= Dem + 1; 
          end;
                 until T >= 15000; 
                 writeln('Tong cac so la: ', Tong); 
                writeln('Tong so da nhap: ', Dem);
          readln;
          end.

Thực hành theo các yêu cầu sau:

a) Tạo chương trình ở Hình 4.

b) Chạy thử chương trình với các bộ dữ liệu thử em đã đề xuất ở hoạt động làm của Mục 1 để phát hiện lỗi chương trình.

c) Thực hiện gỡ lỗi để chương trình tính đúng nghiệm của phương trình ax + b = 0 với mọi cặp số a, b.

II/ TỰ LUẬN:

1/ Nêu ý nghĩa các từ khóa sau và các quy tắc đặt tên trong chương trình?

2/ Để chương trình dịch sửa lỗi và chạy chương trình thì ta làm như thế nào?

3/ Hãy chỉ ra các tên không hợp lệ trong Pascal và giải thích vì sao?

a/ Bai toan

b/ Giai-toán

c/ 8A

d/ hoc_sinh

e/ Bang_diem@

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.