Перевод кода 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()); }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д