Рандомное число - Free Pascal
Формулировка задачи:
Ввел я команду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;
if Edit1.Text='1' then Label1:= Random (2,11)
Решение задачи: «Рандомное число»
textual
Листинг программы
uses math; ............................... Label1.Caption:=inttostr(randomrange(2,11));
Объяснение кода листинга программы
- Используется модуль math;
- Вычисляется случайное число в диапазоне от 2 до 11 с помощью функции randomrange;
- Полученное случайное число преобразуется в строку с помощью функции inttostr;
- Полученная строка присваивается свойству Caption объекта Label1.