Question

На помощь!!! Пишет что нельзя преобразовать тип function(maxValue: integer):integer к integer. Только подробно пожалуйста. 22 строкаprogram Game_UP; uses graphABC; type point = record x, y: integer; end; var Main_heroes, Background, Platform: picture; Left, Right, x, y, i, h: integer; vx, vy: real; platforms: array[1..10] of point; game: boolean; begin window.Caption := 'UP!_v1.0'; setwindowsize(450, 720); Main_heroes := picture.Create('data\Main_heroes.png'); Background := picture.Create('data\Background.jpg'); Platform := picture.Create('data\Platform.jpg'); x := 225;y := 360; for i := 1 to 10 do begin platforms[i].x := random{450}; platforms[i].y := random{720}; end; game := true; while game do begin background.Draw{0,0}; end; end.

Answer 1

Скобки в Random() должны быть круглыми. Да и в прочих местах тоже. Фигурные скобки - это признак комментария.

Answer 2

Проблема, которую вы описываете, связана с неправильным использованием функции random в вашем коде. Ошибка гласит "нельзя преобразовать тип function(maxValue: integer):integer к integer". Это означает, что в этом контексте вы используете функцию random неправильно.

Давайте разберемся, что происходит и как это исправить.

Ошибка происходит в строке, где вы задаете координату X для платформы:

pascalCopy code
platforms[i].x := random{450};

Такая ошибка возникает из-за неправильного синтаксиса использования функции random. Функция random в Pascal требует аргумента, который определяет верхнюю границу случайного числа, которое будет сгенерировано. В данном случае вы хотите получить случайное число в диапазоне от 0 до 450 (верхний предел исключается).

Для исправления этой ошибки вы должны использовать правильный синтаксис вызова функции random следующим образом:

pascalCopy code
platforms[i].x := random(451);

Таким образом, функция random(451) сгенерирует случайное число от 0 до 450 включительно, что соответствует вашим ожиданиям.

То же самое применяется и к строке, где вы задаете координату Y для платформы:

pascalCopy code
platforms[i].y := random{720};

Исправление:

pascalCopy code
platforms[i].y := random(721);

Теперь ваш код должен работать правильно без ошибок преобразования типов.