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