... Для многих видов расчетов требуется знать параметры атомов - . участвующих в образовании данной линии и атомов, . ... Запись об отдельном атоме выглядит следующим образом: TYPE TATOM = CLASS(TObject) (*--------- данные об одном атоме ------------*) NELT : integer; (* порядковый НОМЕР ЭЛЕМЕНТА в таблице Менделеева *) ATOM : string[2]; (* ИДЕНТИФИКАТОР АТОМА *) PAT : REAL; (* АТОМНЫЙ ВЕС *) ABUND: REAL; (* ОБИЛИЕ - LG(EPS_I/EPS_H)+12, текущее значение *) aEION: array [1..4] of real;(* ПОТ-АЛ ИОНИЗ.[ ...