Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
20th
Окт
Выбор случайных вопросов без повторений
К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.
Каждый следующий вопрос должен появляться при нажатии кнопки.
Но как показала практика из за генерации случайных чисел вопросы могут выпадать по два раза подряд одни и те же. Или за все время прохождения теста.
Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?
16th
Апр
Равномерное распределение точек в круге
Пусть задана окружность (x0,y0,r0). Необходимо внутри разместить случайные точки так, чтобы они были распределены равномерно.
Решение в лоб:
with canvas do begin
Ellipse(x0-r0,y0-r0,x0+r0,y0+r0);
for i := 1 to 10000 do begin
a:=2*Pi*random;
r:=r0*random;
x:=x0+round(r*cos(a));
y:=y0+round(r*sin(a));
Pixels[x,y]:=clred;
end;
end;
Но понятно, что распределение не равномерное, плотность точек выше к центру круга:
Есть идеи, как распределить точки равномерно?
30th
Ноя
Random слов в Memo
У меня есть 20 слов и программка(самая простая,с кнопкой и мемо). Нужно сделать так,чтобы при нажатии на эту кнопку 1 любое слово из этих 20 выводилось в мемо совершенно рандомно,подскажите как организовать это?
(читать всё…)
5th
Май
Генерация задачек вида 3*5-7
Вобщем стоит задача генерировать задачки вида 3*5-7 , как это реализовать чтобы минимум кода? Можно конечно сделать через Random для каждой цифры, но вот как быть с знаками «*», «-«, «+», «/»?
цифры в задачках от 1 до 9 (читать всё…)
18th
Апр
Как генерировать случайные положительные и отрицательные числа?
как генерировать случайные положительные и отрицательные числа?
RandomRange конечно хорош, но он генерит целые числа. да, могу я и с ним поработать через коэфициенты, но есть ли способы полегче? (читать всё…)
26th
Мар
Заполнить текстовый файл случайными числами
doktor255
var f: TextFile;
i, k: integer;
begin
AssignFile(f,'c:\file.txt');
Rewrite(f);
for i:=1 to 15 do begin
k := Random(5)-2;
WriteLn(f, IntToStr(k));
end;
CloseFile(f);
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)