
// --- Проверка работы процедуры 'INAPP' ---
  {Str1 := ' --- ' + DateToStr(Date) + ' --- ' + TimeToStr(Time) + ' --- ';
  Str2 := ' --- ' + ModelName + ' --- ';
  AssignFile(fTABL_Ina, ModelDir + '\fTABL_Ina.rsl');
  Rewrite(fTABL_Ina);
  writeln(fTABL_Ina, Str1);    writeln(fTABL_Ina, '');    writeln(fTABL_Ina, Str2);    writeln(fTABL_Ina, '');
  writeln(fTABL_Ina, '  Проверка работы процедуры "INAPP"');    writeln(fTABL_Ina, '');
  writeln(fTABL_Ina, 'I, D[I], V[I, 1], V[I, 2]:');    writeln(fTABL_Ina, '');

  for I := 1 to N5 do
  begin
    // из DLL:
    Str1 := IntToStr(I)                            + '  ' +
            FloatToStrF(D[I],    ffexponent, 3, 2) + '  ' +
            FloatToStrF(V[I, 1], ffexponent, 6, 2) + '  ' +
            FloatToStrF(V[I, 2], ffexponent, 6, 2);
    writeln(fTABL_Ina, Str1);}

    // по формулам:
    {PI1 := 4*PI*PI;          //ShowMessage('PI1  = ' + FloatToStr(PI1));
    PI2 := 2*PI;             //ShowMessage('PI2  = ' + FloatToStr(PI2));
    Z1 := S0 - PI1;          //ShowMessage('Z1   = ' + FloatToStr(Z1));
    Z2 := PI2 * D[I];        //ShowMessage('Z2   = ' + FloatToStr(Z2));
    V[I, 1] := 0.5 * S1 * (1 / S0 + cos(Z2)) / Z1;
    V[I, 2] := -PI * S1 *           sin(Z2)  / Z1;
    Str1 := IntToStr(I)                            + '  ' +
            FloatToStrF(D[I],    ffexponent, 3, 2) + '  ' +
            FloatToStrF(V[I, 1], ffexponent, 6, 2) + '  ' +
            FloatToStrF(V[I, 2], ffexponent, 6, 2);
    writeln(fTABL_Ina, Str1);    writeln(fTABL_Ina, '');}
  //end;
  //CloseFile(fTABL_Ina);
