powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / перевод кода с C# на delphi
5 сообщений из 5, страница 1 из 1
перевод кода с C# на delphi
    #38196140
triamera977
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте. Помогите пожалуйста до перевести код, разумеется за оплату.
Код: 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.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;


namespace WpfApplication3
{
    /// <summary>
    /// Логика взаимодействия для Window1.xaml
    /// </summary>
    public partial class Window1 : Window
    {
        public Window1()
        {
            InitializeComponent();
        }

        private void btnClose_Click(object sender, RoutedEventArgs e)
        {
            Close();
        }
        private int Lz, P, C, Td, Nr;
        private double Stotn;
        private double[] MTobs = { 0, 0, 0, 0 };

        private void btn_Rashet_Click(object sender, RoutedEventArgs e)
        {
            Lz = int.Parse(txt_Lz.Text); //Среднее число заявок в день
            P = int.Parse(txt_P.Text); //Прибыль от единицы произведенной продукции
            C = int.Parse(txt_C.Text);  //Издержки
            Td = int.Parse(txt_Td.Text); //Время на выполнение всех заявок
            Stotn = double.Parse(txt_SKO.Text); //Среднее квадратичное отклонение
            Nr = int.Parse(txt_Np.Text); //Число реализаций

            MTobs[0] = double.Parse(txt_1.Text); //массивы цехов
            MTobs[1] = double.Parse(txt_2.Text);
            MTobs[2] = double.Parse(txt_3.Text);
            MTobs[3] = double.Parse(txt_4.Text);

           Model7();

        }
        public double[] TH = { 0, 0, 0, 0 };
        public double[] TK = { 0, 0, 0, 0 };
        public double Mprof, Cprof, Sum2, SNM, SigProf, Gprof;
        public double Tz, TzI, TzO, Prof, Disp, N, Tobs, fact, Min, Max, SMT;
        public int Ir, Nz, Nobs, i, j;

        public const int K = 4; //кол-во цехов
        private void Model7()
        {
            Mprof = 0;
            Sum2 = 0;
            for (Ir = 0; Ir < Nr; Ir++)
            {
                Nz = 0; //Количество поступивших заявок на выполнение
                TzO = 0;    //Время поступления предыдущей заявки
                Nobs = 0;   //Количество выполненных заявок
                //Обнуление времени работы цехов
                for (j = 0; j < K; j++)
                {
                    TK[j] = 0;
                    TH[j] = 0;
                    bool t = false;

                    do
                    {
                        Random r = new Random();
                        double z = r.NextDouble();

                        Tz = TzO - Math.Log(z, Math.E) / Lz; //Расчет конца выполнения поступившей заявки
                        TzO = Tz; //Обновляется время поступления будущей заявки
                        if (TzO > Td)
                        {
                            t = true;
                            break;
                        }
                        else
                        {
                            Nz += 1;
                            for (j = 0; j < K; j++)
                            {
                                if (Tz > TK[j])
                                {
                                    TH[j] = Tz;
                                }
                                else
                                {
                                    TH[j] = TK[j];
                                }
                                N = NORM();
                                Tobs = MTobs[j] * (1 + N * Stotn);
                                TK[j] = TK[j] + Tobs;
                                if (TK[j] > Td)
                                {
                                    goto a;
                                }
                                Tz = TK[j];
                            }
                            Nobs += 1;
                        }
                    } while (t == false);
                a: t = true;

                    Prof = P * Nobs - C;
                    Mprof = Mprof + Prof;
                    Sum2 = Sum2 + Prof * Prof;
                }

                Cprof = Mprof / Nr;
                Disp = (Sum2 - Nr * Cprof * Cprof) / (Nr - 1);
                if (Disp > 0)
                {
                    SigProf = Math.Sqrt(Disp);
                }
                else
                {
                    SigProf = 0;
                }
                Gprof = Cprof - 1.28 * SigProf;
                Factor();

                txt_Fact.Text = fact.ToString();
                txt_MinP.Text = Gprof.ToString();
            }
        }

        private double NORM()
        {
            double Sz = 0;
            for (int i = 0; i < 12; i++)
            {
                Random r = new Random();
                double z = r.NextDouble();
               Sz += z;
            }
            return Sz / 12;
        }

        private void Factor()
        {
            Min = MTobs.Min();
            Max = MTobs.Max();
            SMT = MTobs.Sum();
           
            fact = (Max - Min) / SMT;
        }

        private void button1_Click(object sender, RoutedEventArgs e)
        {
            txt_1.Clear();
            txt_2.Clear();
            txt_3.Clear();
            txt_4.Clear();
            txt_Lz.Clear();
            txt_P.Clear();
            txt_C.Clear();
            txt_Td.Clear();
            txt_Fact.Clear();
            txt_MinP.Clear();
            txt_Np.Clear();
            txt_SKO.Clear();

        }
		
	}
}
...
Рейтинг: 0 / 0
перевод кода с C# на delphi
    #38198328
крендель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот переведенный код на delphi
замечания:
1. в процедуре btn_Rashet_Click у тебя получается цикл for (j = 0; j < K; j++) в цикле for (j = 0; j < K; j++), т.е. используется переменная j в верхнем и вложенном цикле - это логическое нарушение инструкции и если приведенный код рабочий, то компилятор или интерпретатор очень сильно толерантен.
2. goto a - это круто, basic настальжи, инструкция заменена на правильную

жду денег на yandex кошелек 410011183813505
...
Рейтинг: 0 / 0
перевод кода с C# на delphi
    #38199167
triamera977
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
крендель,
Блин, ну гдеж вы раньше были, я уже заплатил человеку за перевод. Всё равно большое спасибо за ваше старание, в конце недели я переведу вам деньгу
...
Рейтинг: 0 / 0
перевод кода с C# на delphi
    #38199905
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
triamera977я уже заплатил человеку за перевод
Об этом принято информировать там, где наследили.
...
Рейтинг: 0 / 0
перевод кода с C# на delphi
    #38201417
triamera977
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
wadman,

согласен, но и перед выполнением работы принято оговаривать условия
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / перевод кода с C# на delphi
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]