ИнформатикаСоставить программу, которая запрашивает число пользователя и сравнивает его с...

Question

ИнформатикаСоставить программу, которая запрашивает число пользователя и сравнивает его с рандомным числом. Оба числа в диапазоне до 15Срочно!!!! Даю 50 баллов

Answer 1

1. var
2.  randomNumber, inputNumber: integer;
3. begin
4.  Readln(inputNumber);
5.  randomNumber := Random(16);
6.  if inputNumber = randomNumber then
7.    Writeln('Числа ', inputNumber, ' и ', randomNumber, ' равны')
8.  else
9.    Writeln('Числа ', inputNumber, ' и ', randomNumber, ' не равны');
10. end.

Comments

Мне не очень понятно. Я 8 класс

---

Что Вам не понятно? Объявляются две целочисленные переменные и инициализируются (даются имена) как inputNumber (введёное число) и randomNumber (случайное число)

---

На 4 строке мы запрашиваем inputNumber, на 5 строке генерируем случайное число от 1 до 15 (я написал 16, потому что функция возвращает случайное число от 0 до n - 1, где n - число, которое мы передаём в функцию)

---

На 6 строке мы просто сравниваем эти числа и выводим

---

Пожалуйста, конкретизируйте, и я Вам объясню и помогу. Если что-то не понятно - говорите строчку или кусок кода.

---

Просто поинтересуюсь. Разве random() работает нормально без randomize() перед ним?

---

Я компилирую на PascalABC, у меня нормально.

---

Ааа, понял. Больше от IDE зависит. В онлайн-компиляторе randomNumber := Random(16); выдает всегда одно число: 8

---

Понятно. Я код в онлайн-компиляторах проверяю лишь на наличие ошибок, чтобы компилировалось и на PascalABC.NET, и на обычном Pascal. Даже не думал про псевдорандом, поскольку делаю буквально 2-4 теста.