Форум программистов, компьютерный форум CyberForum.ru

Написание генератора случайных чисел - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ В main работает в func нет http://www.cyberforum.ru/cpp-beginners/thread165570.html
Подскажите, пожалуйста, уважаемые форумчане. Код функции create(), будучи вставленным в main, работает безошибочно, но стоит ему оказаться на своем месте (в месте функции), так после ввода первого элемента программа виснет. //--------------------------------------------------------------------------- // Подключаемые библиотеки #include <vcl.h> #include <tchar.h> #include <iostream.h>...
C++ Проверить выполняется ли неравенства Даны действительные числа a,b,c. Проверить выполняется ли неравенства a<b b<c http://www.cyberforum.ru/cpp-beginners/thread165553.html
Взаимно простые числа C++
Задание таково:составить программу, отвечающую на вопрос, являются ли два произвольных натуральных числа взаимно простыми. З.Ы. Я что то пытался сделать,но просто операторов незнаю,составил только схематично.
C++ Из Pascal в С++
Добрый день! Еще не совсем освоил новую среду, поэтому есть проблемы. Написал программу на паскале. Ее надо перевести в с++. Кто сможет помочь, заранее благодарен! Условие задачи: В массиве С1, С2...С24 есть два элемента равные 0. Заменить все элементы, стоящие между ними, на единицы. uses crt; var С :arrayof real; i,o1,o2:integer; Begin clrscr;
C++ Вычислить выражение http://www.cyberforum.ru/cpp-beginners/thread165530.html
Вычислить выражение при помощи 3-х видов циклов (for , while , do while ) и выбор (по какому нужно считать ) при помощи switch вывести на экран значения функции Y(x) для х изменяющихся от x(начального) до х(конечного) с шагом h равным h=(x(к)-x(н))/10 . x(н)=0.1 , x(к)=1 y=((1+x*x)/2)*atan(x/2);
C++ блок схема Помогите пожалуйста составить блок схему #include <iostream> using std::cout; using std::cin; using std::endl; int main (){ char ch = 'Z'; int i = 0, j = 0; do{ j = i; подробнее

Показать сообщение отдельно
Arl
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 22
15.09.2010, 18:29     Написание генератора случайных чисел
Файл "Random":
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
#include<conio.h>
#include<stdio.h>
#include<math.h>
#include<stdlib.h>
#include<string.h>
#include<iostream.h>
 
int i, j, l, r;
int const n=100;
double alpha, x[n], c[n], b, alpha1, alpha2, alpha3, ksi, w1,w2,d;
FILE* file;
 
void Expon(int l)
{
l=2;
alpha=(double)random(RAND_MAX)/RAND_MAX;
x=-l*log(1-alpha);
 
}
 
 
void gauss()
{
do
{
alpha1=(double)random(RAND_MAX)/RAND_MAX;
alpha2=(double)random(RAND_MAX)/RAND_MAX;
alpha3=(double)random(RAND_MAX)/RAND_MAX;
w1=2*alpha1-1;
w2=2*alpha2-1;
}while (w1*w1+w2*w2<=1);
d=sqrt(w1*w1+w2*w2);
w1=w1/d;
w2=w2/d;
ksi=sqrt(-2*log(alpha3)*w1);
}
 
void Ravnom(double a, double b )
{
alpha=(double)random(RAND_MAX)/RAND_MAX;
x=a+(b-a)*alpha;
}
 
 
void Sort(double c[n])
{
for(i=0; i<n; i++)
 {
  for (j=0; j<n-i-1; j++)
   {
    if (c[j]>c[j+1])
     {
      b=c[j];
      c[j]=c[j+1];
      c[j+1]=b;
     }     
   }
 }
}

Файл "Unit1":
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
#include <fstream.h>
//#include <fstream>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
double TForm1::Expon(double l)
{
        double alpha=(double)random(RAND_MAX)/RAND_MAX;
        return (-l*log(1-alpha));
}
 
 
double TForm1::gauss(double a, double s)
{
        double alpha1, alpha2, alpha3;
        double w1, w2, ksi;
        do
        {
                alpha1=(double)random(RAND_MAX)/RAND_MAX;
                alpha2=(double)random(RAND_MAX)/RAND_MAX;
                w1=2*alpha1-1;
                w2=2*alpha2-1;
        }while (w1*w1+w2*w2<=1);
        alpha3=(double)random(RAND_MAX)/RAND_MAX;
        w1=w1/sqrt(w1*w1+w2*w2);
        w2=w2/sqrt(w1*w1+w2*w2);
        ksi=  sqrt(-2*log(alpha3))*w1;
        return (a*ksi+s);
}
 
double TForm1::Ravnom(double a, double b )
{
        double alpha=(double)random(RAND_MAX)/RAND_MAX;
        return (a+(b-a)*alpha);
}
 
 
void TForm1::Sort(double *c)
{
        double b;
        for(int i=0; i<Edit1->Text.ToInt(); i++){
                for (int j=0; j<Edit1->Text.ToInt()-i-1; j++){
                        if (c[j]>c[j+1]){
                                b=c[j];
                                c[j]=c[j+1];
                                c[j+1]=b;
                        }
                }
        }
}
 
const int ten=10;
 
void TForm1::Graphic(double *x)
{
        double len = x[Edit1->Text.ToInt()-1] - x[0];
        double n[ten];
        for(int i=0;i<ten;i++)
                n[i]=0;
        int k=0;
        for(int i=0;i<Edit1->Text.ToInt();i++){
                k=(int)((x[i]-x[0])/len*ten);
                if (k==ten) k=k-1;
                        n[k]++;
                }
 
        for(int i=0;i<ten;i++)
                n[i]/=Edit1->Text.ToInt();
        Series1->Clear();
        k=0;
        for(int i=0;i<ten;i++){
                        Series1->AddXY((i+1)*(len/10), n[i], "", clRed);
 
 
        }
        Label4->Visible=true;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(!Edit1->Text.IsEmpty()){
                ofstream fout("random.txt");
                x = new double[Edit1->Text.ToInt()];
                switch(RadioGroup1->ItemIndex){
                        case 0:{
                                if(!Edit2->Text.IsEmpty()){
                                        for(int i=0;i<Edit1->Text.ToInt();i++){
                                                x[i] = Expon(Edit2->Text.ToDouble());
                                                fout << x[i] <<  ", ";
                                        }
                                }
                                else
                                        ShowMessage("!");
                        } break;
                        case 1:{
                                if(!((Edit2->Text.IsEmpty()) || (Edit3->Text.IsEmpty()))){
                                        for(int i=0;i<Edit1->Text.ToInt();i++){
                                                x[i] = gauss(Edit2->Text.ToDouble(), Edit3->Text.ToDouble());
                                                fout << x[i] << ", ";
                                        }
                                }
                        } break;
                        case 2:{
                                if(!((Edit2->Text.IsEmpty()) || (Edit3->Text.IsEmpty()))){
                                        for(int i=0;i<Edit1->Text.ToInt();i++){
                                                x[i] = Ravnom(Edit2->Text.ToDouble(), Edit3->Text.ToDouble());
                                                fout << x[i] <<  ", ";
                                        }
                                }
                                else
                                        ShowMessage("!");
                        } break;
                        default:{
                                ShowMessage("Виберіть закон");
                        } break;
                }
                fout.close();
                Sort(x);
                Graphic(x);
                delete x;
        }
        else
                ShowMessage("Будь ласка, вкажіть кількість чисел і параметри розподілу!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
       switch(RadioGroup1->ItemIndex){
                case 0:{
                        Edit3->Visible=false;
                        GroupBox1->Visible=true;
 
                } break;
                case 1:{
                        Edit3->Visible=true;
                        GroupBox1->Visible=true;
                } break;
                case 2:{
                        Edit3->Visible=true;
                        GroupBox1->Visible=true;
                } break;
        }
}
File "project"


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
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Frame2); /* TFrame: File Type */
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
Вложения
Тип файла: doc Текст програми.doc (51.0 Кб, 198 просмотров)
Тип файла: rar Project1.rar (17.4 Кб, 206 просмотров)
 
Текущее время: 23:19. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru