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

Линейный конгруэнтный метод на с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Создать абстрактный класс - млекопитающие http://www.cyberforum.ru/cpp-beginners/thread452591.html
Помогите пожалуйста с задачей! задача: на языке с++ Создать абстрактный класс -млекопитающие. Определить производные классы - животные, люди. У животных определить производные классы собак и...
C++ ввод данных из файла как организовать ввод данных для одномерного массива из файла и вывод файл,с клавиатуры вводится только имя файла http://www.cyberforum.ru/cpp-beginners/thread452586.html
ИИ для крестиков ноликов на С++ C++
вот написал крестики нолики 3х3 но немогу написать ИИ для компа тупо перебирать все комбинации типа : if(a==a && a!=' '){ a=charr;} if(a==a && a!=' '){ a=charr;} if (a==a && a!=' '){ a=charr;} ...
Cygwin отображаются крякозабры. C++
Проблема кодировками. Запускаю терминал cygwin, далее ping i.ua - лезут ▒▒▒▒▒▒▒▒▒▒ ▒▒▒ ▒▒. в опциях окна text-locale(ru_RU)-character set(cp866) и норм отображается пропадают. Однако запуск, например...
C++ [файлы]В чем ошибка? http://www.cyberforum.ru/cpp-beginners/thread452558.html
нужно чтобы в файле a.txt, читал через строчку строку #include <iostream.h> #include <stdio.h> #include <fstream.h> using namespace std; int main() {
C++ Как можно написать клиент-серверное приложение, работающее в локальной сети? Как можно написать клиент-серверное приложение работающее в локальной сети? Ну например на одном из компютеров стоит сервер а на остальных клиенты которые посылают серверу кокуюто информацию? подробнее

Показать сообщение отдельно
A_S_M
0 / 0 / 0
Регистрация: 07.10.2011
Сообщений: 29

Линейный конгруэнтный метод на с++ - C++

25.02.2012, 17:39. Просмотров 1503. Ответов 0
Метки (Все метки)

помогите переделать код с паскаля на с++

Pascal
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
program Linear;
{uses wincrt.tpu; }
uses crt;
 
var
    r0 : longint;
 
procedure InitRandom(seed:Longint);
begin
    r0:=seed;
end;
 
function LinearRandom : Longint;
var
    r,a, c, m : Longint;
 
begin
    {a:=7;
    c:=7;
    m:=10;
  }
  a:=170;
  c:=205;
  m:=33;
 
 
    r:=(r0*a+c) mod m ;
    r0:=r;
    LinearRandom:=r0;
end;
 
var
  a,c,i,n:Longint;
  lya,tau,m,d,dx1,x1,x2,dx,d1,d2:real;
  x : array[1..20] of integer;
 
begin
  clrscr;
  n:=20;
  a:=2;
  c:=5;
  m:=0;
  x1:=0;
 
    InitRandom(7);
    for i:=1 to n do
  begin
  x[i]:=a+(c-a)*LinearRandom;
    writeln('x[',i,']=', x[i]);
  m:=m+x[i];
  end;
  x2:=m;
  m:=m/n;
  writeln('mx =',m:3:4);
 
 
  for i:=1 to n do
  dx1:=d1+(sqr(x[i]-m));
  dx1:=d1/(n-1);
  writeln('Dx=',dx1:3:4);
  for i:=1 to n+1 do
  x1:=x1+sqr(x[i]);
  x2:=(1/n)*sqr(x2);
  dx:=(1/(n-1))*(x1-x2);
  writeln ('dx =', dx:3:4);
  readln;
  writeln ('vvedite lyambdu');
  readln (lya);
  for i:=1 to n+1 do begin
  tau:=((-1/lya)*Ln(x[i]));
  writeln ('t[',i,']=',tau);
 
  end;
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru