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

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

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

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

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;

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

textual
Листинг программы
   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());
        }

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


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

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

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