Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 21.12.2018
Сообщений: 19

Как правильно записать Random ?

28.03.2019, 20:46. Показов 1436. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Условие такое, что должен использоваться Random, но диапазон дан не целыми числами...
Данные : (5,2 ; 33,67]
Попытка записать, но это неверно... Подскажите, пожалуйста, как сделать
P.S. 28 получилось (33-5)
Delphi
1
2
3
tek[2]:=+random(28);
    if (t mod opros[2])=0 then znac[2]:=random(28);
    stringgrid1.Cells[2,t]:=inttostr(znac[2]);
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.03.2019, 20:46
Ответы с готовыми решениями:

как правильно записать?
Здравствуйте я новичек в delphi поэтому и вопрос у меня как у новичка:) подскажите как правильно записать? begin ...

Как правильно записать?
всем привет! Хочу создать программу типо поисковик ( будет искать в инете всё для телефона). Но только не могу правильно записать...

Как правильно записать?
Как правильно записать код: procedure TForm1.Button7Click(Sender: TObject); var n, q, w: string; begin q:= Form1.Edit2.Text; ...

4
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,660
Записей в блоге: 21
28.03.2019, 21:21
Delphi
1
MinValue+Random()*(MaxValue-MinValue)
0
0 / 0 / 0
Регистрация: 21.12.2018
Сообщений: 19
28.03.2019, 23:03  [ТС]
Немного не понимаю
MinValue и MaxValue их объявлять надо ?
0
Злостный нарушитель
 Аватар для Verevkin
10300 / 5723 / 1268
Регистрация: 12.03.2015
Сообщений: 26,495
28.03.2019, 23:26
Цитата Сообщение от Krot25 Посмотреть сообщение
Данные : (5,2 ; 33,67]
Delphi
1
x := 5.2 + Random(2848) / 100; // но это неточно ©
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
28.03.2019, 23:47
Лучший ответ Сообщение было отмечено Krot25 как решение

Решение

Цитата Сообщение от Krot25 Посмотреть сообщение
Немного не понимаю
MinValue и MaxValue их объявлять надо ?
я когда не понимаю что-то, я визуализирую вещи в каком-то виде, например на бумажке, это очень быстро попомгает понять непонятное

Цитата Сообщение от krapotkin Посмотреть сообщение
Delphi
1
MinValue+Random()*(MaxValue-MinValue)
тупо написать на той же бумажке, визуально видеть происходящее..

Delphi
1
2
MinValue := 5.2;
MaxValue := 33.67;
пусть Random срандомило число 0.3, такой рандом рандомит 0 - 1

подставим в формулу...

Delphi
1
5.2+0.3*(33.67-5.2) = 13.741
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.03.2019, 23:47
Помогаю со студенческими работами здесь

Как правильно записать
На форме есть 6 checkbox. В каждом checkbox если checked выводим в memo строку , например - checkbox1 для checkbox1 ,checkbox2 для...

Как записать правильно ReadFile
procedure TForm1.Button1Click(Sender: TObject); var ZapisanoBytes : Cardinal; readpipe,writepipe: Thandle; Security:...

Как правильно записать выражение?
lg(2^x)+|x|+1

Как правильно записать выражение?
x^2+4x-5/x^9

Как правильно записать условие
Хочу чтобы при нажатии на кнопку воспроизводилась запись. form1.mediaplayer1.FileName:=('путь файла.mp3'); form1.mediaplayer1.Open; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru