Ввод чисел
 
Отношение предназначено для присвоения объектам типа Величина вещественных и/или комплексных Числовых значений.

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

Если тип объекта, указанного во входном параметре, несовместим с типом этого параметра, то при активизированном флажке NIL в выходной параметр заносится NIL-объект.

 
Параметры
Типы объектов
Функциональное назначение параметров
Величина
Величина
Величина, которой присваивается значение
Числа
Величина, размер
Присваиваемое значение
 

Прототип команды: C0 Согласование Величина ; {-}Числа .

 
Пример:

Присвоить переменной c1 следующий перечень числовых значений: 5,3.14,nil,10+20i.


Алгоритм "Главный"
1
Величина c1 есть 0,-5,3.14,nil,10|20 .

 

 

 

 

entity ExecC0 is
port (X: in TOConst; P: out TOChisl);
end entity;

architecture ExecC0 of ExecC0 is
begin
     P.C<=X.C;
end;

 

function EExecC0(var V: TOChisl; var CST: TOChisl; Sg1: integer): boolean;
var A,B: complex;
    T: boolean;
begin
     Result:=FALSE;
     {if (V is TOChisl) then}
     begin
          A:=V.C;
          if Sg1=-1 then A.Re:=A.Re*Sg1;
          {Cst:=TOChisl.Create(A,tc_Variable,Att,OW,c_ord);}
          {Cst.AssignParents([V]);}

     end 
     
     Result:=TRUE;
end; // EExecC0