Перевод кода Delphi -> C#

@AnnTIKH · Регистрация: 30.10.2013

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

Мольба о помощи! Помогите перевести код программы,написанной в Delphi, в C#. Сижу уже очень долго над этим занятием, и ничего не получается, так как Шарп совершенно не знакомый язык. Заранее спасибо!

Delphi
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
procedure TForm1.modelClick(Sender: TObject);
 var  tgeneral,t,t1,
twait1,
sum_twait1,
tengaged1,
sum_t1:real;
queue1,max1,
quancar1,
length_queue1,
q1:integer;
 
begin
  tgeneral:=0;
  queue1:=0;
  tengaged1:=0;
  twait1:=0;
  sum_twait1:=0;
  quancar1:=0;
  sum_t1:=0;
  length_queue1:=0;
  q1:=1;
  Randomize;
  while tgeneral<60 do
  begin
    t:=abs(5*ln(5*random));
 
    begin
      t1:=abs(7.5+random*(12.5-7.5));
      sum_t1:=sum_t1+t1;
      queue1:=queue1+1;
      length_queue1:=length_queue1+queue1;
      q1:=q1+1;
      if tengaged1>tgeneral
      then twait1:=tengaged1-tgeneral+t1
      else twait1:=0;
      sum_twait1:=sum_twait1+twait1;
      tengaged1:=tgeneral+t1;
      quancar1:=quancar1+1;
    end;
 
    if (tengaged1<tgeneral) and (queue1<>0) then
    begin
      queue1:=queue1-1;
      length_queue1:=length_queue1+queue1;
      q1:=q1+1;
    end;
 
    tgeneral:=tgeneral+t;
  end;
 
 
   Tablica.Cells[0,1]:='Касса';
   Tablica.Cells[0,3]:='Проданные билеты';
   Tablica.Cells[1,3]:='Всего';
   Tablica.Cells[3,3]:='Льготные';
   Tablica.Cells[2,3]:='Обычные';
   Tablica.Cells[4,3]:='Детские';
   Tablica.Cells[0,4]:='Касса';
   Tablica.Cells[1,0]:='Коэффициент загрузки кассы';
   Tablica.Cells[2,0]:='Среднее время обслуживания';
   Tablica.Cells[3,0]:='Среднее число клиентов в очереди';
   Tablica.Cells[4,0]:='Среднее время нахождения клиента в очереди';
 
   Tablica.Cells[1,1]:=floattostr(round(sum_t1/1200*1000)/1000);
   Tablica.Cells[2,1]:=floattostr(round(sum_t1/quancar1*1000)/1000);
   Tablica.Cells[3,1]:=floattostr(round(length_queue1/q1));
   Tablica.Cells[4,1]:=floattostr(round(sum_twait1/quancar1*1000)/1000);
   Tablica.Cells[1,4]:=floattostr(round(quancar1));
   Tablica.Cells[2,4]:=floattostr(round(quancar1*68/100));
   Tablica.Cells[3,4]:=floattostr(round(quancar1*7/100));
   Tablica.Cells[4,4]:=floattostr(round(quancar1*25/100)) ;
 
 
 
end;

@wendstor · 10.03.2015, 17:48

Сам не C# , но до вырезанного кода из Delphi

Delphi
1
2
begin
      t1:=abs(7.5+random*(12.5-7.5));

Будет выглядеть вот так:

C#
1
2
3
4
5
6
7
8
double tgeneral = 0, t = 0, t1 = 0, twait1 = 0, sum_twait1 = 0, tengaged1 = 0, sum_t1 = 0;
            int queue1 = 0, max1 = 0, quancar1 = 0, length_queue1 = 0, q1 = 1;
 
            Random rand = new Random();
 
            while (tgeneral < 60) {
                t = Math.Abs (5 * Math.Log(5 * rand.Next()));
            }

@AnnTIKH · 10.03.2015, 17:54 **[ТС]**

Спасибо, но это я уже сделала каким-то чудом. Как понимаю, надо сделать несколько Классов. а вот как их связать с этим проблема

@wendstor · 10.03.2015, 18:32

Структура (struct) + 2-е функции первая все рассчитывает, записывая все значения в структуру, а вторая принимает структуру как входной параметр выводит данные в таблицу.

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   public struct dtTable{
        float cash; // и т.д.
    }
 
////////////////////
 
// производим все расчёты
dtTable calc() {
            dtTable myTable = new dtTable();
            //..................
            return (myTable);
        }
 
public void SetDataTable(dtTable inData) {
            // далее вставка в таблицу
        }
 
// вызов функций расчёта и вставки данных в таблицу.
private void button1_Click(object sender, EventArgs e)
        {
            SetDataTable(calc());
        }

@bujhmT · 15.03.2015, 22:16

а как сделать вставку? покажите хотя бы вывод одной переменной, пожалуйста

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@AnnTIKH 0 / 0 / 0 Регистрация: 30.10.2013 Сообщений: 17
	10.03.2015, 17:54 [ТС]
	Спасибо, но это я уже сделала каким-то чудом. Как понимаю, надо сделать несколько Классов. а вот как их связать с этим проблема 0

@bujhmT 0 / 0 / 0 Регистрация: 15.03.2015 Сообщений: 5
	15.03.2015, 22:16
	а как сделать вставку? покажите хотя бы вывод одной переменной, пожалуйста 0