pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 >  > Запись оставлена Гость 27.04.2017 в 12:16 Получить справку

Запись оставлена Гость 27.04.2017 в 12:16
запустить | скачать | новая запись

  1.  
  2.   if K[I,J]<=0.6 then
  3.    Begin
  4.                A1:=-0.100021*K[I,J]+8.887012;
  5.                A2:=0.279999*K[I,J]+8.672999;
  6.                B1:=859.999756*K[I,J]+1884.000122;
  7.                B2:=1159.999756*K[I,J]+1762.000122;
  8.                K1:=K[I,J]-5.000001e-2;
  9.                K2:=K[I,J];
  10.                P6:=0; goto C1;
  11.    End;
  12.  
  13.  if K[I,J]<=0.65 then
  14.    Begin
  15.                A1:=0.279999*K[I,J]+8.658999;
  16.                A2:=0.240002*K[I,J]+8.696997;
  17.                B1:=1160.001221*K[I,J]+1703.999268;
  18.                B2:=1500.001343*K[I,J]+1557.999146;
  19.                K1:=1.000001*K[I,J]-0.050000727;
  20.                K2:=K[I,J];
  21.                P6:=0; goto C1;
  22.    End;
  23.  
  24. if K[I,J]<=0.7 then
  25.     Begin
  26.               A1:=0.240002*K[I,J]+8.684998;
  27.               A2:=3.579997*K[I,J]+6.526001;
  28.               B1:=1499.999634*K[I,J]+1483.000244;
  29.               B2:=3099.999268*K[I,J]+518.000549;
  30.               K1:=0.999999*K[I,J]-0.0499918;
  31.               K2:=K[I,J];
  32.               P6:=0;
  33.               goto C1;
  34.     End;
  35.  
  36. if K[I,J]<=0.75 then
  37.     Begin
  38.               A1:=3.579997*K[I,J]+6.347001;
  39.               A2:=4.005432e-002*K[I,J]+9.003961;
  40.               B1:=3099.999268*K[I,J]+363.000549;
  41.               B2:=2439.999512*K[I,J]+980.000427;
  42.               K1:=K[I,J]-0.05000001;
  43.               K2:=K[I,J];
  44.               P6:=0;goto C1;
  45.     End;
  46.  
  47. if K[I,J]<=0.8 then
  48.    Begin
  49.               A1:=4.005432e-002*K[I,J]+9.0019579;
  50.               A2:=5.179976*K[I,J]+5.149019;
  51.               B1:=2439.999512*K[I,J]+858.000427;
  52.               B2:=4599.999023*K[I,J]-639.999207;
  53.               K1:=K[I,J]-0.0500002;
  54.               K2:=K[I,J];
  55.               P6:=0; goto C1;
  56.    End;
  57.  
  58. if K[I,J]<=0.85 then
  59.    begin
  60.                A1:=5.179976*K[I,J]+4.890020;
  61.                A2:=-1.079979*K[I,J]+10.156983;
  62.                B1:=4599.999023*K[I,J]-869.999206;
  63.                B2:=2699.9992068*K[I,J]+880.000488;
  64.                K1:=K[I,J]-0.05002;
  65.                K2:=K[I,J];
  66.                P6:=0; goto C1;
  67.    End;
  68.  
  69. if K[I,J]<=0.9 then
  70.   Begin
  71.                A1:=-1.07998*K[I,J]+10.21983;
  72.                A2:=-0.319976*K[I,J]+8.967020;
  73.                A3:=7.751;
  74.                A4:=7.897;
  75.                B1:=2700.002686*K[I,J]+744.997742;
  76.                B2:=4300.003906*K[I,J]-480.003601;
  77.                B3:=3742;
  78.                B4:=3685;
  79.                K1:=K[I,J]-0.05000102;
  80.                K2:=K[I,J];
  81.                K3:=0.85;
  82.                K4:=0.9; goto Ce;
  83.   End;
  84.  
  85. if K[I,J]<=0.93 then
  86.   Begin
  87.                A1:=0.533293*K[I,J]+8.759037;
  88.                A2:=17.833309*K[I,J]-6.794978;
  89.                A3:=4.866659*K[I,J]+3.371007;
  90.                A4:=9.099998*K[I,J]-0.292999;
  91.                B1:=499.99948*K[I,J]+2925.0004;
  92.                B2:=16599.982422*K[I,J]-11549.984375;
  93.                B3:=-1899.997925*K[I,J]+5451.998047;
  94.                B4:=-966.665588*K[I,J]+4554.999023;
  95.                K1:=1.666663*K[I,J]-0.6499999;
  96.                K2:=1.666665*K[I,J]-0.599999;
  97.                K3:=1.666663*K[I,J]-0.649997;
  98.                K4:=K[I,J]; goto Ce;
  99.   End;
  100.  
  101. if K[I,J]<=0.95 then
  102.    Begin
  103.                A1:=9.2550;
  104.                A2:=9.789999;
  105.                A3:=-36.350025*K[I,J]+41.702523;
  106.                A4:=7.300003*K[I,J]+1.380998;
  107.                B1:=3390;
  108.                B2:=3888;
  109.                B3:=-1450.001587*K[I,J]+5033.501465;
  110.                B4:=1550.001587*K[I,J]+2214.498535;
  111.                K1:=0.89999;
  112.                K2:=0.94999;
  113.                K3:=1.5*K[I,J]-0.495003;
  114.                K4:=K[I,J];goto Ce;
  115.   End;
  116.  
  117. if K[I,J]<=0.983 then
  118.    Begin
  119.                A1:=16.212120*K[I,J]-6.146514;
  120.                A2:=-0.303037*K[I,J]+10.077886;
  121.                A3:=34.727276*K[I,J]-25.820913;
  122.                A4:=4.666677*K[I,J]+3.882658;
  123.                B1:=15090.913086*K[I,J]-10946.367188;
  124.                B2:=9787.880859*K[I,J]-5410.485816;
  125.                B3:=939.394043*K[I,J]+2763.575684;
  126.                B4:=-2848.485352*K[I,J]+6393.061035;
  127.                K1:=1.515152*K[I,J]-0.539395;
  128.                K2:=K[I,J];
  129.                K3:=0.60606*K[I,J]+0.354243;
  130.                K4:=0.909092*K[I,J]+0.08636254;
  131.    End;
  132.  
  133.  
  134. Ce:
  135.  A6:=A3+(A4-A3)/(K4-K3)*(K[I,J]-K3);
  136.  B6:=B3+(B4-B3)/(K4-K3)*(K[I,J]-K3);
  137.  P6:=133.3*exp(ln(10)*(A6-(B6/Q[I,J])));
  138. C1:
  139.  A0:=A1+(A2-A1)/(K2-K1)*(K[I,J]-K1);
  140.  B0:=B1+(B2-B1)/(K2-K1)*(K[I,J]-K1);
  141.  P7:=133.3*exp(ln(10)*(A0-(B0/Q[I,J])));
  142.  P9:=P7-P6;
  143.  P8:=P0*Z[I,J]/(18/29+Z[I,J]);

Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки