Задача — перемещать строки в TStrings.

(читать всё…)

К примеру есть 57 вопросов из которых должны отобразится всего 15 у пользователя на экране.

Каждый следующий вопрос должен появляться при нажатии кнопки.
Но как показала практика из за генерации случайных чисел вопросы могут выпадать по два раза подряд одни и те же. Или за все время прохождения теста.

Вопрос, как сделать проверку чисел чтобы не выводить значения которые уже были?

(читать всё…)

Пусть задана окружность (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;

Но понятно, что распределение не равномерное, плотность точек выше к центру круга:

Есть идеи, как распределить точки равномерно?

(читать всё…)

У меня есть 20 слов и программка(самая простая,с кнопкой и мемо). Нужно сделать так,чтобы при нажатии на эту кнопку 1 любое слово из этих 20 выводилось в мемо совершенно рандомно,подскажите как организовать это?
(читать всё…)

(читать всё…)

(читать всё…)

Вобщем стоит задача генерировать задачки вида 3*5-7 , как это реализовать чтобы минимум кода? Можно конечно сделать через Random для каждой цифры, но вот как быть с знаками «*», «-«, «+», «/»?

цифры в задачках от 1 до 9 (читать всё…)

как генерировать случайные положительные и отрицательные числа?
RandomRange конечно хорош, но он генерит целые числа. да, могу я и с ним поработать через коэфициенты, но есть ли способы полегче? (читать всё…)

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);

тема на форуме

(читать всё…)