Генератор случайных чисел

@Сергей123456 · Регистрация: 06.02.2012

Студворк — интернет-сервис помощи студентам

Я на СBuilder "работаю" не давно, я только учюсь за задания задают ну его ...
Помогите студенту, ведь вы сами когдато были студентами и знаете каково это*)
Требуется разработать приложение, которое генерирует случайные числа. Исходным числом для генерации может служить текущее время в компьютере, или число, заданное пользователем. По команде пользователя система должна генерировать последовательность из 100 случайных чисел и отобразить их.
Случайные числа генерировать следующим образом. Берется предыдущее число, возводится в квадрат. Из этого числа берутся его средние 4 цифры. Это и есть случайное число. Затем это полученное число снова возводится в квадрат и из него берутся 4 средних цифры. Это следующее случайное число. И так далее...
Для вас это детский лепет, а для меня даже страшно подумать... Студент
Понимаю что работа должна оплачиваться, но существуют же добрые программисты**)

Добавлено через 7 минут
Дорогие программисты форума! Ответьте на мое задание *) Я очень в вас нуждаюсь*(

@nick42 · 08.05.2012, 10:22

Сообщение от Сергей123456

2 варианта выбора они оба работают?

Да. Но когда выбирается "текущее время", поле эдита замещается произведением значений минут, секунд и миллисекунд на момент нажатия (хорошая псевдослучайная величина...). Несколько слов по поводу: я сознательно не прибегал к использованию функций рэндомайз языка, так как, следуя логике задания, псевдослучайная последовательность генерируется по достаточно ясному алгоритму получения очередного числа. Вот только эта логика имеет одно уязвимое место: очень часто возведение в квадрат некоего четырехзначного числа ведет к появлению нулей в последних цифрах числа. А нули для такого алгоритма - это тупик (ноль - он хоть в квадрате, хоть в Африке ноль). Поэтому следует в цикле сделать анализ на обнуление "выделяемого" числа и своевременную подмену его хотя бы значением миллисекунд на тот момент.

@QVO · 09.05.2012, 00:07

что-то писал.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
__int64 *CP;
int *a;
int *b;
 
__int64 GetCPUClock(void)
      {
      unsigned long a,b;
      asm     {
              rdtsc;
              mov a,eax;
              mov b,edx;
              };
      __int64 ret;
      ((unsigned long*)&ret)[0]=a;
      ((unsigned long*)&ret)[1]=b;
      return ret;
      };
 
const int normal_rnd(const int max, const int rnd, const int size)
{
        int ret_val = 0;
        for (int i = 0; i < size; i++)
        {
                ret_val += rnd;
        }
        return (ret_val / size)/2 - 12;
}
 
float sort(float *a)
{
float temp =0;
 for(int i = 0; i < 10000; i++)
  for(int j = 0; j < 10000; j++)
   if(a[i]< a[i+1])
   {
        temp = a[i];
        a[i] = a[i+1];
        a[i]=temp;
   }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
Memo2->Clear();
Chart1->SeriesList->Series[0]->Clear();
 
__int64 temp;
 
AnsiString s = "";
AnsiString s1 = "";
int h = 0, k=0;
  CP = new __int64[10000];
  a = new int[10000];
  b = new int[40000];
  float j,t;
  CP[0] = 0;
        for (int i = 1; i < 10000; i++)
        {
                CP[i] = GetCPUClock();
                s += IntToStr(CP[i]) + "    ";
                temp = CP[i] - CP[i-1];
                h = temp / 256;
                a[i] = temp - (h*256);
                if(i > 2)
                {
                        j=((float)a[i-1])/255;
 
                        //ShowMessage(j) ;
                             if(j>0)
                             {
                               j=sqrt(-2*log(j));
                               t=cos(2*M_PI*((float)a[i]/255));
                               b[k]=(int)(128+t*j*20);
                               k++;
                               b[k]=(int)(128+sqrt(1-t*t)*j*20);
                               k++;
                            }
                }
                s1 += IntToStr(a[i]) + "    ";
        }
        Memo1->Text = s;
        Memo2->Text = s1;
        //sort(b);
        for (int i = 1; i < k; i++)
        {
                Chart1->Series[0]->AddXY(b[i], i, String(b[i]), clBlack);
        }
  delete[] CP;
  delete[] a;
  delete[] b;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
      /*  for (int i = 0; i < 100; i++)
        {
 
                Memo2->Text = Memo2->Text + String(CP[i]) + "\n";
        }
        delete[] CP;
      */
}
//---------------------------------------------------------------------------

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int *a;  // массив
int size; // кол-во значений
 
// функция нормального распределения
//или распределением методом Гаусса
const int normal_rnd(const int max, const int size)
{
        // возвращающее значение
        int ret_val = 0;
        // суммируем 12 рандомных значений от 0 до 255
        for (int i = 0; i < size; i++)
        {
                ret_val += max - (rand() % max);
        }
        // возвращаем полученое число
        // при этом разделив его на 12
        // и сделав смещение на -6
        return (ret_val / size) - 6;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  randomize();
  // Очищаем чарт
  Chart1->SeriesList->Series[0]->Clear();
  // задаем размер массиваа
  size = 1000;
  // выделяем память под массив
  a = new int[size];
  // заполняем массив нормальным распределением
        for(int i = 0; i < size; i++)
        {
                a[i] = normal_rnd(255,12);
        }
  // выводим данные с массива в график
        for(int i = 0; i < size; i++)
        {
                Chart1->Series[0]->AddXY(a[i], i, String(a[i]), clBlack);
        }
  // освобождаем память
        delete a;
}
//---------------------------------------------------------------------------

@Сергей123456 · 09.05.2012, 00:21 **[ТС]**

QVO, а можно исходниками*)

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Сергей123456 4 / 4 / 0 Регистрация: 06.02.2012 Сообщений: 62

	Генератор случайных чисел 07.05.2012, 15:58. Показов 7616. Ответов 22 Метки нет (Все метки) Я на СBuilder "работаю" не давно, я только учюсь за задания задают ну его ... Помогите студенту, ведь вы сами когдато были студентами и знаете каково это) Требуется разработать приложение, которое генерирует случайные числа. Исходным числом для генерации может служить текущее время в компьютере, или число, заданное пользователем. По команде пользователя система должна генерировать последовательность из 100 случайных чисел и отобразить их. Случайные числа генерировать следующим образом. Берется предыдущее число, возводится в квадрат. Из этого числа берутся его средние 4 цифры. Это и есть случайное число. Затем это полученное число снова возводится в квадрат и из него берутся 4 средних цифры. Это следующее случайное число. И так далее... Для вас это детский лепет, а для меня даже страшно подумать... Студент Понимаю что работа должна оплачиваться, но существуют же добрые программисты) Добавлено через 7 минут* Дорогие программисты форума! Ответьте на мое задание ) Я очень в вас нуждаюсь( 0

@Сергей123456 4 / 4 / 0 Регистрация: 06.02.2012 Сообщений: 62
	09.05.2012, 00:21 [ТС]
	QVO, а можно исходниками*) 0