Код переписываю с Delphi на C#. Некоторые значения на C# не совпадает. Не могу найти ошибку

@jarvak0 · Регистрация: 14.11.2018

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

Код на 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
v=5; 
 i=50; 
 a=0.1;
 lk=256; 
var t1,m,q,k,t,c,n:real;
 x,y,w:integer;
begin
t1:=0; w:=0; y:=0; kol:=0;
randomize;
t:=1*v; 
m:=t/a; 
c:=lk/m*1000;
q:=exp(-1);
q:=q*100;
repeat
 x:=random(p)+1;
 if q>x then
 begin
 t1:=t1+m+t+2*t;
 inc(y);
 w:=0;
 end
 else
 begin
 w:=w+2;
 t1:=t1+w*t;
 inc(kol);
 end;
until y=g;
ef:=g*(m+t+2*t)/t1*100; 
tk:=m/1000; 
tk1:=m*g/1000; 
sk:=c; 
tkr:=t1/1000; /
tkr1:=t1/g/1000; 
sk1:=lk*g/t1*1000;

вот на C# этот же алгоритм

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
 int v = 5;
            int i = 50;
            double a = 0.1;
            int lk = 256;
            int g = Convert.ToInt32(textBox3.Text);
            int x, y, w;
            double t1 = 0;
            double m, q, k, t, c, n; 
            w = 0;
            y = 0;
            int kol = 0;
            
            t = 20 * v;
            m = t / a;
            c = lk / m * 1000;
            q = Math.Exp(-1);
            q = q * 100;
            int p = 100;
            if (checkBox1.Checked)
            {
                p = 60;
            }
            Random rnd = new Random();
 
            do
            {
                x = rnd.Next(0, p) + 1;
                if (q > x)
                {
                    t1 = t1 + m + t + 2 * t;
                    y++;
                    w = 0;
 
                }
                else
                {
                    w = w + 2;
                    t1 = t1 + w * t;
                    kol++;
                }
            }
            while (y == g);
 
            double ef = g * (m + t + 2 * t) / t1 * 100;
            double tk = m / 1000;
            double tk1 = m * g / 1000;
            double sk = c;
            double tkr = t1 / 1000;
            double tkr1 = t1 / g / 1000;
            double sk1 = lk * g / t1 * 1000;

Добавлено через 2 часа 31 минуту
Я нашел ошибку until y=g;
while должен быть while y!=g;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .