a) HS tự tạo chương trình như hình 1.

b) Chương trình tính tiền vé xem phim trong thời gian khuyến mãi ở Bảng 1

c) Chương trình tính tiền vé xem phim theo Bảng 4

Thêm biến diện tích: Make a variable>Nhập "Dientich">OK.

Thêm lệnh tính diện tích: 

Thêm lệnh thông báo diện tích hình tròn:

Thực hiện thay đổi vị trí các lệnh để hoàn thiện chương trình:

Tham khảo!

a) Lỗi được phát hiện khi thực hiện chương trình với bộ dữ liệu Hình 6b: a = 0, b = 2 và Hình 6c: a = 0, b = 0.

b) Câu lệnh trực tiếp tạo ra lỗi là: 

Câu lệnh liên quan đến lỗi là: 

c) Nguyên nhân gây ra lỗi này là: lỗi logic vì phép chia cho 0 là không xác định.

Tham khảo:

Khi chạy thử, em nhận ra rằng chương trình vẫn hoạt động vì máy tính vẫn hỏi và trả lời theo sự điều khiển của các khối lệnh. Tuy nhiên nó thực hiện không đúng kịch bản vì số lần đoán được hiển thị không đúng với số lần thực tế mà người chơi đã đoán.

Có hai loại lỗi:

1) Lỗi cú pháp xảy ra khi lệnh viết sai so với quy tắc của ngôn ngữ lập trình, làm cho chương trình không hoạt động:

2) Lỗi lôgic (hay lỗi ngữ nghĩa) xảy ra khi các câu lệnh trong chương trình tuy được viết đúng cú pháp nhưng thực hiện không đúng kịch bản như trong chương trình của trò chơi Đoán số.

Nhân vật Mèo có hoạt động đúng như kịch bản.

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Nhân vật Mèo ở vùng Sân khấu sẽ hiện câu "Xin chào! Bạn tên là gì?"