Рандомное число - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Ввел я команду
 if Edit1.Text='1' then Label1:= Random (2,11)
P.S.- суть команды такова, если в поле ввода введено 1, то сгенерировать в Label1 число от 2 до 11 И мне відаеть ошибку- Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 4 unit1.pas(40,35) Error: Wrong number of parameters specified for call to "Random" Error: Found declaration: Random(LongInt):LongInt; Error: Found declaration: Random(Int64):Int64; Error: Found declaration: Random: (тут нет пробела) Double;

Решение задачи: «Рандомное число»

textual
Листинг программы
uses math;
...............................
Label1.Caption:=inttostr(randomrange(2,11));

Объяснение кода листинга программы

  1. Используется модуль math;
  2. Вычисляется случайное число в диапазоне от 2 до 11 с помощью функции randomrange;
  3. Полученное случайное число преобразуется в строку с помощью функции inttostr;
  4. Полученная строка присваивается свойству Caption объекта Label1.

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы