Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Theo kịch bản, trò chơi sẽ thông báo số lần đoán khi người chơi đoán đúng số bí mật. Tuy nhiên, khi chạy thử chương trình, em sẽ thấy số lần đoán mà máy tính hiển thị luôn kém số lần thực tế mà người chơi đã đoán một đơn vị.
program DoanSo;
uses crt;
var
low, high, guess, answer: integer;
response: char;
begin
clrscr;
low := 1;
high := 120;
writeln('Chon mot so tu 1 den 120 va ghi so do ra giay.');
writeln('Nhan phim bat ky khi san sang.');
readln;
repeat
guess := (low + high) div 2; // Đoán số trung bình của khoảng
writeln('So cua ban la ', guess, ' phai khong? (d/c/t)');
readln(response);
// Kiểm tra phản hồi từ người chơi
case response of
'd': begin // Trường hợp đoán đúng
writeln('May tinh da doan dung so cua ban!');
end;
'c': begin // Trường hợp số đoán cao hơn
high := guess - 1;
end;
't': begin // Trường hợp số đoán thấp hơn
low := guess + 1;
end;
end;
until response = 'd'; // Lặp cho đến khi đoán đúng
readln;
end.
( Các phần câu in đậm là các phần mình giải thích về code cho bạn dễ hiểu, không cần cho thiết nên khi chạy chương trình không cần nhé ! )
Tham khảo:
1. Theo kịch bản, biến số lần đoán sẽ thay đổi trong tình huống nào?
Lỗi được thẻ hiện ở việc chương trình hiển thị sai giá trị của số lần đoán.
2. Những khối lệnh nào làm thay đổi biến số lần đoán?
Số lần đoán cần phải tăng 1 đơn vị mỗi khi người chơi nhập một giá trị số (đoán). Điều này xảy ra ở các câu lệnh (4). (7) và (8).
Tuy nhiên, có thể thấy rằng, mặc dù (9) tăng giá trị của số lần đoán sau khi (7) hoặc (8) được thực hiện, nhưng không có lệnh nào như thế sau khối lệnh (4) cả
3. Có điều gì khác nhau giữa kịch bản và những khối lệnh tương ứng?
a. Tập trung vào những khối lệnh trực tiếp gây ra lỗi và những khối lệnh liên quan lôgic đến nó theo các cấu trúc điều khiển.
b. Chạy chương trình từng bước, kết hợp theo dõi sự thay đổi của các biến, các giá trị đầu ra và so sánh với các giá trị tính được theo cách thủ công.
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.
Bắt đầu
Gán cho số bí mật một giá trị ngẫu nhiên trong khoảng từ 1 - 100
Hỏi và nhận giá trị từ bàn phím, lưu vào biến trả lời
Hiển thị số bí mật trong 2 giây
Hiển thị số trả lời trong 2 giây
Kết thúc