Tạo trò chơi đếm số bằng Pascal cho trẻ nhỏ

Trò chơi đoán số

Trò chơi "Đoán số" là cách tuyệt vời để bé thực hành các khái niệm random, if-else và vòng lặp. Mục tiêu: Máy tính tạo một số ngẫu nhiên từ 1‑10, bé nhập dự đoán và nhận phản hồi.

Bước 1: Khởi tạo số ngẫu nhiên

randomize; 
number := random(10) + 1;

Bước 2: Yêu cầu bé nhập dự đoán và so sánh

repeat
  write('Bạn đoán số nào (1‑10): ');
  readln(guess);
  if guess = number then
    writeln('Chúc mừng, bạn đã thắng!')
  else
    writeln('Sai rồi, thử lại!');
until guess = number;

Giải thích:

• randomize khởi tạo bộ sinh số ngẫu nhiên.
• repeat…until giữ vòng lặp cho tới khi đoán đúng.
• Kết hợp if để đưa ra phản hồi.

Phụ huynh có thể thay đổi phạm vi số (ví dụ 1‑20) để tăng độ khó. Khi bé đã tự tin, ta mở rộng trò chơi bằng cách đếm số lần đoán và hiển thị bảng xếp hạng.