testdelphinetuses.out

来自「格式化源码的最新板」· OUT 代码 · 共 19 行

unit testdelphinetuses;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, system.Text, system.componentmodel;

const
  effrandlinks = 28;
  effrandoben = 15;
  effrandunten = effrandoben + 102;
  effrandrechts = effrandlinks + 293;
  effmax = 4;
  effmin = 1;
  efffaktor: extended = (effrandunten - effrandoben) / (effmax - effmin);

implementation

end.