Перевод программы с Pascal на C#

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

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

Помогите плз!!! Надо перевести этот код pascal в С#.
Листинг программы 
  1. KT*T=600
  2.  KU=200.
  3. uses crt,graph;
  4. CONST
  5.     MaxT=15;
  6.     MaxU=100; 
  7.     MaxV=100; 
  8.     MaxRB=100;
  9.     MaxH=100;
  10. Type
  11.     MassVetType=array[1..MaxV] of integer; 
  12. Var
  13.  
  14.     U1,U2:MassVetType;
  15.     M:Array [1..MaxV div 2,1..MaxV div 2] of Integer; 
  16.     P:MassVetType;
  17.     i,j,CH,CRB,CE,CC,CR,CT,CD,CU,CV,KT,KU:integer;
  18.     Impulse,IC,Peredat,InputU,OutputU:byte;
  19.     CheckOnly:byte;
  20.     TR :array[1..MaxT]of record
  21.                   TTP   :byte;  
  22.                   B,E,K :integer;   
  23.              end;
  24.    TTE,MFTE,CBEO,RUE,TAU,TTK,MFTK,CBKO,RUK,
  25.    TAUU,B,Bu,TTD,MFTD,CBDO,RUD,TAUD:real;
  26.    RB,RK,RD:real;
  27.    Level0,Level1:real;
  28.    KFrontF,KBackF:real;
  29.    KInU,KOutU:byte;
  30.    Method:byte;
  31.    MDU,M1,M2,
  32.    TT,
  33.    TIMP,TSAD,
  34.    H,
  35.    HP,TP,TK:real;
  36.    UR:array [1..MaxRB] of real;
  37.    C:array [1..MaxRB] of real;
  38.    R:array [1..MaxH] of real;
  39.    F: Text;
  40.    Chr:Char;
  41.    Strg:String[7];
  42.    SUR_N:integer;
  43.    UR_N:array [1..10] of integer;
  44.    SUH_N:integer;
  45.    UH_N:array [1..10] of integer;
  46.    GRPH:boolean;
  47.  
  48. PROCEDURE READDATA ;
  49. begin
  50. KT:=60;KU:=40;
  51. M1:=0.05;
  52. M2:=0.001;
  53. TTE:=2.2E-8;
  54. TTK:=1.7E-6;
  55. TTD:=9.0E-8;
  56. MFTE:=0.033;
  57. MFTK:=0.036;
  58. MFTD:=0.034;
  59. CBEO:=3.4E-2;
  60. CBKO:=4.0E-2;
  61. CBDO:=4.0E-2;
  62. B:=100;
  63. Bu:=1;
  64. TAU:=2.0E-1;
  65. TAUU:=6.2E-1;
  66. TAUD:=6.0E-1;
  67. RUE:=1.0E3;
  68. RUK:=1.0E3;
  69. RUD:=1.0E3;
  70. RB:=0.1;
  71. RK:=0.012;
  72. RD:=0.1;
  73. GRPH:=true;
  74. HP:=0.01;
  75. Impulse:=0;
  76. TSAD:=30;
  77. TIMP:=30;
  78. Peredat:=0;
  79. IC:=0;
  80. KFrontF:=1; KBackF:=1;
  81. KInU:=50;   KOutU:=20;
  82. Method:=2;
  83. CheckOnly:=0;
  84. Level1:=2.4;   Level0:=0.4;  
  85.   Assign(F, ParamStr(1));
  86.   Reset(F);
  87.   while not Eof(F) do
  88.   begin
  89.     Strg:='';
  90.     repeat
  91.       read(F,Chr);
  92.       Strg:=Strg+Chr;
  93.     until (Chr='=');
  94.  
  95.     case Strg[1] of
  96.       'P':read(F,Peredat);
  97.       'O':read(F,OutputU);
  98.       'I':case Strg[2] of
  99.            'M':read(F,Impulse);
  100.        'N':read(F,InputU);
  101.            'C':read(F,IC);
  102.       end;
  103.       'C':case Strg[2] of
  104.        'T':read(F,CT);
  105.        'D':read(F,CD);
  106.        'E':read(F,CE);
  107.            'H':read(F,CheckOnly);
  108.        'C':read(F,CC);
  109.        'R':read(F,CR);
  110.        'U':read(F,CU);
  111.        'V':read(F,CV);
  112.        'B':case Strg[3] of
  113.         'E':read(F,CBEO);
  114.         'K':read(F,CBKO);
  115.         'D':read(F,CBDO);
  116.            end;
  117.        '=':for j:=1 to CC do read(F,C[j]);
  118.       end;
  119.       'M':case Strg[2] of
  120.        '1':read(F,M1);
  121.        '2':read(F,M2);
  122.            'E':read(F,Method);
  123.        'F':case Strg[4] of
  124.         'E':read(F,MFTE);
  125.         'K':read(F,MFTK);
  126.         'D':read(F,MFTD);
  127.            end;
  128.       end;
  129.       'B':case Strg[2] of
  130.        '=':read(F,B);
  131.        'u':read(F,Bu);
  132.       end;
  133.       'T':case Strg[2] of
  134.            'I':read(F,TIMP);
  135.            'S':read(F,TSAD);
  136.        'T':case Strg[3] of
  137.         'E':read(F,TTE);
  138.         'K':read(F,TTK);
  139.         'D':read(F,TTD);
  140.            end;
  141.        'A':case Strg[4] of
  142.         '=':read(F,TAU);
  143.         'U':read(F,TAUU);
  144.         'D':read(F,TAUD);
  145.            end;
  146.        'K':read(F,TK);
  147.        'R':for j:=1 to CT+CD do
  148.         begin readln(F);
  149.               read(F,TR[j].TTP, TR[j].B, TR[j].E, TR[j].K);
  150.         end;
  151.       end;
  152.       'R':case Strg[2] of
  153.        'U':case Strg[3] of
  154.          'E':read(F,RUE);
  155.          'K':read(F,RUK);
  156.          'D':read(F,RUD);
  157.            end;
  158.        '=':for i:=1 to CR do read(F,R[i]);
  159.        'B':read(F,RB);
  160.        'K':read(F,RK);
  161.        'D':read(F,RD);
  162.       end;
  163.       'U':for i:=1 to CV do begin readln(F);
  164.                   read(F,U1[i],U2[i]);
  165.                 end;
  166.       'E':for j:=1 to CE do read(F,UR[j]);
  167.       'K':case Strg[2] of
  168.            'I':read(F,KInU);
  169.            'O':read(F,KOutU);
  170.        'U':read(F,KU);{ U koefficient }
  171.        'T':read(F,KT);{ T koefficient }
  172.            'F':read(F,KFrontF);
  173.            'B':read(F,KBackF);
  174.            end;
  175.       'S':case Strg[6] of
  176.        'R':begin
  177.             read(F,SUR_N);
  178.             for i:=1 to SUR_N do read(F,UR_N[i]);
  179.            end;
  180.        'H':begin
  181.             read(F,SUH_N);
  182.             for i:=1 to SUH_N do read(F,UH_N[i]);
  183.            end;
  184.       end;
  185.       'L':case Strg[6] of
  186.       '0':read(F,Level0);
  187.       '1':read(F,Level1);
  188.       end;
  189.       'G':begin
  190.         read(F,i); if i=0 then GRPH:=false;
  191.       end;
  192.       'H':read(F,HP);
  193.  
  194.     end;
  195.    readln(F);
  196.   end;
  197.   close(F);
  198.   clrscr;
  199.   if ParamStr(2)<>'nowrite' then
  200.     begin
  201.       writeln('--- Исходные данные --- файл: ',ParamStr(1));
  202.       writeln(' CT=',CT,' CD=',CD,' CE=',CE,' CC=',CC,' CR=',CR,' CU=',CU,' CV=',CV);
  203.       writeln('Ветви:');
  204.       for j:=1 to CV do write(' {',U1[j],',',U2[j],'}');
  205.              writeln;
  206.  
  207.       writeln('Транзисторы и диоды:');
  208.       for j:=1 to CT+CD do
  209.          write('{',TR[j].TTP,TR[j].B,TR[j].E,TR[j].K,'}');
  210.          writeln;
  211.  
  212.       for j:=1 to CE do write(' E[',j,']=',UR[j]:1:1);
  213.             writeln;
  214.       for j:=1 to CC do write(' C[',j,']=',C[j]:1:3);
  215.             writeln;
  216.       for i:=1 to CR do write(' R[',i,']=',R[i]:3:3);
  217.             writeln;
  218.  
  219.       writeln('TK=',TK:1:0,' KU=',KU,' KT=',KT,' M1=',M1:1:3,' M2=',M2:1:3);
  220.  
  221.       write('Выводимые напряжения ');
  222.       if GRPH then writeln('(графически):')
  223.            else writeln('(таблично):');
  224.       write('Ребер (',SUR_N,'):');
  225.       for i:=1 to SUR_N do write(' ',UR_N[i]);
  226.       writeln;
  227.       write('Хорд (',SUH_N,'):');
  228.       for i:=1 to SUH_N do write(' ',UH_N[i]);
  229.       writeln; writeln('Шаг печати =',HP:1:3);
  230.       writeln;
  231.       writeln('Электрические параметры');
  232.       writeln('MFTE=',MFTE:1:3,' MFTK=',MFTK:1:3,' MFTD=',MFTD:1:3);
  233.       writeln('B=',B:3:3,' Bu=',Bu:3:3);
  234.       writeln('TTE=',TTE:1:6,' TTK=',TTK:1:6,' TTD=',TTD:1:6);
  235.       writeln('TAU=',TAU:1:6,' TAUU=',TAUU:1:6,' TAUD=',TAUD:1:6);
  236.       writeln('CBEO=',CBEO:1:6,' CBKO=',CBKO:1:6,' CBDO=',CBDO:1:6);
  237.       write('RB=',RB:3:2,' RK=',RK:3:2,' RD=',RD:3:2);
  238.       writeln('RUE=',RUE:3:2,' RUK=',RUK:3:2,' RUD=',RUD:3:2);
  239.       readkey;
  240.       clrscr;
  241.       writeln('---------------Дополнительные параметры файл: ',ParamStr(1),' -----');
  242.       write('Импульсный режим - ');
  243.       case Impulse=1 of
  244.         true:writeln('включено.');
  245.         false:writeln('выключено.');
  246.       end;
  247.       write('Режим передаточной функции - ');
  248.       case Peredat=1 of
  249.         true:begin
  250.                writeln('включено.');
  251.                writeln('Шаг входного напряжения - ',KInU);
  252.                writeln('Шаг выходного напряжения - ',KOutU);
  253.              end;
  254.         false:writeln('выключено.');
  255.       end;
  256.       writeln('Время задержки - ',TSad:3:2,'нс.');
  257.       writeln('Длительность импульса - ',TImp:3:2,'нс.');
  258.       writeln('Тангенс наклона переднего фронта - ',KFrontF:3:3);
  259.       writeln('Тангенс наклона заднего фронта - ',KBackF:3:3);
  260.       writeln('Входное напряжение - ребро #',InputU);
  261.       writeln('Выходное напряжение - ребро #',OutputU);
  262.       write('Управляющее напряжение - ');
  263.       case IC=1 of
  264.         true:
  265.           begin
  266.              writeln('отрицательное');
  267.              writeln('  ноль: -',Level0:3:2,' В, единица: -',Level1:3:2,' В.');
  268.           end;
  269.         false:
  270.            begin
  271.               writeln('положительное');
  272.               writeln('  ноль: ',Level0,' В, единица: ',Level1,' В.');
  273.            end;
  274.       end;
  275.       write('Метод интегрирования - ');
  276.       case Method=1 of
  277.         true: writeln('старый.');
  278.         false: writeln('новый.');
  279.       end;
  280.       write('Коррекция дерева - ');
  281.       case CheckOnly=1 of
  282.         true: writeln('вручную');
  283.         false: writeln('автоматически');
  284.       end;
  285.       readkey;
  286.       clrscr;
  287.   end;
  288. END;
далее...

Решение задачи: «Перевод программы с Pascal на C#»

textual
Листинг программы 
  1. MDU:=0;
  2.    for i:=1 to CC do
  3.      if MDU<abs(DUC[i]) then MDU:=abs(DUC[i]);
  4.    case Method=1 of
  5.  
  6.    true:  H:=M1/(M2+MDU); {старый метод с постоянными шагами}
  7.  
  8.    false:  {новый метод с шагами переменной величины}
  9.    if KL<>0 then
  10.      begin
  11.        while i<=CC do
  12.          begin
  13.            if ((DUC[i]>=0) and (RDU[i]>=0)) or ((DUC[i]<0) and (RDU[i]<0)) then
  14.           begin
  15.             i:=i+1;
  16.             if i>CC then
  17.                begin
  18.              KL:=1;
  19.              H:=M1/(M2+MDU)
  20.                end;
  21.           end
  22.          else
  23.            begin
  24.              H:=M1/(2*M2+MDU+RMDU);
  25.              i:=1;while i<=CC do
  26.                begin
  27.              S:=(DUC[i]*RDU[i])/(RDU[i]+DUC[i]);
  28.              i:=i+1;
  29.                end;
  30.              KL:=0;
  31.            end;
  32.          end;
  33.      end
  34.    else
  35.       begin
  36.     KL:=1;
  37.     H:=M1/(M2+MDU)
  38.       end;
  39.    end;{of case to Method selection}
  40.  
  41.    for i:=1 to CC do
  42.      UR[i+CE]:=UR[i+CE]+H*DUC[i];{ UR[i+CE] ==> UC[i] }
  43.  
  44.    RMDU:=MDU;
  45.    TT:=TT+H;
  46.    LUp:=Level1/KFrontF;    {проекция переднего фронта}
  47.    LDown:=Level1/KBackF;   {проекция  заднего  фронта}
  48. {   UR[inputU]:=sin(TT);}
  49.    if Impulse=1 then
  50.    begin
  51.      {формирование импульса}
  52.      if TT>TSAD then UR[InputU]:=( (TT-TSAD)*KFrontF+Level0);{передний фронт}
  53.      if (TT>=TSAD+LUp) and (TT<TSad+LUp+TImp){верхний уровень}
  54.      or (UR[InputU]>Level1) then UR[InputU]:=Level1;
  55.  
  56.      if (TT>=TSAD+TImp+LUp)
  57.      then UR[InputU]:=KBackF*(-TT+TSAD+TIMP+Level0+LUp+LDown);
  58.      {задний фронт}
  59.  
  60.      if (TT>(TImp+TSad+LUp+LDown)) or (abs(UR[InputU])<Level0)
  61.      then UR[InputU]:=Level0;  {нулевой уровень}
  62.  
  63.      if TT>TSAD then if IC=1 then UR[InputU]:=-UR[InputU];
  64.  
  65.    end;
  66.  
  67.    KSH:=KSH+1;
  68.  
  69.    if TT>=TP then
  70.      if GRPH then begin
  71.            {writeln('T=',TT,'  H=',H,' U[C2]=',UR[5]);}
  72.             j:=9;
  73.  
  74. if {(UR[InputU]<1.5*Level1) and} (Peredat=1) and (TT>TSAD-5) then
  75. begin
  76. putpixel(round(320+abs(UR[InputU]*KInU)),420-abs(round(abs(UR[OutputU])*KOutU)),13);
  77. {30 - шаг по оси U, 30 - по оси Т}
  78. end;
  79.  
  80.             for i:=1 to SUR_N do
  81.              begin
  82.               putpixel(round(20+TT*KT),240-round(UR[UR_N[i]]*KU),j);
  83.               j:=j+1;
  84.              end;
  85.             for i:=1 to SUH_N do
  86.              begin
  87.               putpixel(round(20+TT*KT),240-round(UH[UH_N[i]]*KU),j);
  88.               j:=j+1;
  89.              end;
  90.             TP:=TP+H;
  91.           end
  92.          else begin
  93.            write(' ',TT:3:3,' | ');
  94.            write(F,' ',TT:3:3,' | ');
  95.             for i:=1 to SUR_N do
  96.              begin
  97.               write(UR[UR_N[i]]:1:3,' | ');
  98.               write(F,UR[UR_N[i]]:1:3,' | ');
  99.              end;
  100.             for i:=1 to SUH_N do
  101.              begin
  102.               write(UH[UH_N[i]]:1:3,' | ');
  103.               write(F,UH[UH_N[i]]:1:3,' | ');
  104.              end;
  105.            writeln;
  106.            writeln(F);
  107.             TP:=TP+HP;
  108.          end;
  109.  until (TT>=TK) or (TT*KT>=639) or keypressed;
  110.   if not GRPH then
  111. end;
  112. {=========P R O G R AM=========}
  113. BEGIN
  114.  
  115.  READDATA;
  116.  CorrectTree;
  117.  TR2Polusnik(U1,U2,CU,CV);{ changes CU }
  118.  ChooseNormalTree({input}CU,CV,U1,U2,{output}CRB,CH,P);
  119.  CreateM(CRB,CH);
  120.  Solution;
  121.  
  122. END.

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

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

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

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

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

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

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