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

Узнай цену своей работы

Формулировка задачи:

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

Листинг программы
  1. procedure TForm1.modelClick(Sender: TObject);
  2. var tgeneral,t,t1,
  3. twait1,
  4. sum_twait1,
  5. tengaged1,
  6. sum_t1:real;
  7. queue1,max1,
  8. quancar1,
  9. length_queue1,
  10. q1:integer;
  11. begin
  12. tgeneral:=0;
  13. queue1:=0;
  14. tengaged1:=0;
  15. twait1:=0;
  16. sum_twait1:=0;
  17. quancar1:=0;
  18. sum_t1:=0;
  19. length_queue1:=0;
  20. q1:=1;
  21. Randomize;
  22. while tgeneral<60 do
  23. begin
  24. t:=abs(5*ln(5*random));
  25. begin
  26. t1:=abs(7.5+random*(12.5-7.5));
  27. sum_t1:=sum_t1+t1;
  28. queue1:=queue1+1;
  29. length_queue1:=length_queue1+queue1;
  30. q1:=q1+1;
  31. if tengaged1>tgeneral
  32. then twait1:=tengaged1-tgeneral+t1
  33. else twait1:=0;
  34. sum_twait1:=sum_twait1+twait1;
  35. tengaged1:=tgeneral+t1;
  36. quancar1:=quancar1+1;
  37. end;
  38. if (tengaged1<tgeneral) and (queue1<>0) then
  39. begin
  40. queue1:=queue1-1;
  41. length_queue1:=length_queue1+queue1;
  42. q1:=q1+1;
  43. end;
  44. tgeneral:=tgeneral+t;
  45. end;
  46.  
  47. Tablica.Cells[0,1]:='Касса';
  48. Tablica.Cells[0,3]:='Проданные билеты';
  49. Tablica.Cells[1,3]:='Всего';
  50. Tablica.Cells[3,3]:='Льготные';
  51. Tablica.Cells[2,3]:='Обычные';
  52. Tablica.Cells[4,3]:='Детские';
  53. Tablica.Cells[0,4]:='Касса';
  54. Tablica.Cells[1,0]:='Коэффициент загрузки кассы';
  55. Tablica.Cells[2,0]:='Среднее время обслуживания';
  56. Tablica.Cells[3,0]:='Среднее число клиентов в очереди';
  57. Tablica.Cells[4,0]:='Среднее время нахождения клиента в очереди';
  58. Tablica.Cells[1,1]:=floattostr(round(sum_t1/1200*1000)/1000);
  59. Tablica.Cells[2,1]:=floattostr(round(sum_t1/quancar1*1000)/1000);
  60. Tablica.Cells[3,1]:=floattostr(round(length_queue1/q1));
  61. Tablica.Cells[4,1]:=floattostr(round(sum_twait1/quancar1*1000)/1000);
  62. Tablica.Cells[1,4]:=floattostr(round(quancar1));
  63. Tablica.Cells[2,4]:=floattostr(round(quancar1*68/100));
  64. Tablica.Cells[3,4]:=floattostr(round(quancar1*7/100));
  65. Tablica.Cells[4,4]:=floattostr(round(quancar1*25/100)) ;
  66.  
  67. end;

Решение задачи: «Перевод кода Delphi -> C#»

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.538 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут