Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Tanyatanyatanya
0 / 0 / 0
Регистрация: 05.06.2012
Сообщений: 28
1

Переделать из Java в Delphi / Delphi для начинающих

12.05.2014, 10:22. Просмотров 290. Ответов 0
Метки нет (Все метки)

Пожалуйста- Пожалуйста- Пожалуйста помогите!!!))))буду очень благодарна)
нужно переделать программку из java в delphi! )


Java
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
package ISM;
 
import java.util.Scanner;
 
public class SLAEmethodMonteKarlo {
    private static int[] F = { 93, 20 };
    private static int n = 2; // размерность системы
    private static double x = 0; // решение
    private static double[] pi = { 0.5, 0.5 };
    private static double[][] P = { { 0.5, 0.5 }, { 0.5, 0.5 } };
    private static double[][] A = { { 0.3, 0.08 }, { 0.55, 0.69 } };
 
    public static void main(String[] args) {
        // TODO Auto-generated method stub
        System.out.print("Введите номер переменной: ");
        Scanner scan = new Scanner(System.in);
        int f = scan.nextInt();
        System.out.print("Введите длину цепи N=");
        int N = scan.nextInt();
        System.out.print("Введите количество прогонов L=");
        int L = scan.nextInt();
        double[] h = new double[n];
        for (int j = 0; j < n; j++) {
            if (j == (f - 1))
                h[j] = 1;
            else
                h[j] = 0;
        }
        double[] Q = new double[N + 1]; // веса цепи Маркова
        int[] i = new int[N + 1]; // цепь Маркова
        double[] ksi = new double[L]; // СВ
        double alpha;
        for (int j = 0; j < L; j++) {
            alpha = Math.random();
            if (alpha < pi[0]) {
                i[0] = 0;
            } else
                i[0] = 1;
            for (int k = 1; k <= N; k++) {
                alpha = Math.random();
                if (alpha < 0.5) {
                    i[k] = 0;
 
                } else
                    i[k] = 1;
            }
            // вес цепи Маркова
            if (pi[i[0]] > 0)
                Q[0] = h[i[0]] / pi[i[0]];
            else
                Q[0] = 0;
            for (int k = 1; k <= N; k++) {
                if (P[i[k - 1]][i[k]] > 0)
                    Q[k] = Q[k - 1] * A[i[k - 1]][i[k]] / P[i[k - 1]][i[k]];
                else
                    Q[k] = 0;
            }
            for (int k = 0; k <= N; k++) {
                ksi[j] += Q[k] * F[i[k]];
 
            }
        }
        for (int k = 0; k < L; k++) {
            x = x + ksi[k];
        }
        if (f == 1)
            System.out.println("Точное решение x1=175.89595375723");
        else
            System.out.println("Точное решение x2=376.58959537572");
 
        System.out.println("x" + f + "=" + (x / L));
 
    }
 
}

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2014, 10:22
Ответы с готовыми решениями:

Delphi для начинающих
Скажите как в Delphi сделать вложенный список(древовидный список) ?

Delphi для начинающих
разработать программу в которой происходит введение двох чисел и исполняется их...

Delphi для начинающих
Помогите пожалуйста с кодом. Нужно чтобы при нажатие на кнопку открывался...

DELPHI FAQ для начинающих
]В этой теме будут собраны советы и подсказки для новичков в среде...

Delphi для начинающих - циклы
Составить программу для вычисления выражения S=1+1/2+2/3+3/4+4/5...для...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2014, 10:22

Учебники по Delphi для начинающих
Посоветуйте, пожалуйста, хорошие учебники по Delphi. Думаю, эта тема будет...

совет по Delphi для начинающих
Посоветуйте что нужно изучить на начальных этапах(книги какие?, языки...

Литература по Delphi для начинающих
Всем доброго времени суток:) Я только начинаю программировать на Delphi:)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru