Перевод кода 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());
}