Question

Я хотел создать программу в паскале где вы должны были угадать цифру от 1 до 10,но я хотел его улучшить и сделать холодно/горячо, с холодно у меня получилось а вот с горячо что то не выходит, помогите пожалуйста var a,j:integer;begin j:=random(10); writeln('Попробуй отгадать мое загаданное число'); readln(a); if a=j then writeln ('Молодец,вы отгадали') else writeln ('К сожелению вы ошиблись,повторите вашу попытку') ;end.

Answer 1

Решение представлено во вложении.

Answer 2

Чтобы добавить функциональность "горячо/холодно" к вашей программе на Pascal, вам нужно следить за тем, насколько близко введенное число к загаданному числу. Вот улучшенная версия вашей программы:

pascalCopy code
program HotOrCold;
var
  secretNumber, guess, attempts: integer;
begin
  randomize; // Инициализация генератора случайных чисел

  secretNumber := random(10) + 1; // Генерация случайного числа от 1 до 10
  attempts := 0;

  writeln('Попробуй отгадать мое загаданное число (от 1 до 10).');
  
  repeat
    readln(guess);
    attempts := attempts + 1;
    
    if guess = secretNumber then
      writeln('Молодец, вы отгадали! Загаданное число: ', secretNumber, ', количество попыток: ', attempts)
    else if abs(guess - secretNumber) <= 2 then
      writeln('Горячо!')
    else
      writeln('Холодно!');
  until guess = secretNumber;

  readln;
end.

В этой программе мы добавили переменную attempts для отслеживания количества попыток. Мы также используем цикл repeat...until, который продолжает выполняться до тех пор, пока игрок не угадает число. При каждой попытке программа сообщает, горячо ли или холодно было введено число относительно загаданного числа. Когда число угадано, программа выводит загаданное число и количество попыток.