|
| |
Отношение предназначено для присвоения объектам типа Величина вещественных и/или комплексных Числовых значений.
При указании знака “минус” перед именем списочной переменной, ссылающейся на величину (размер), значения вещественной и мнимой частей результата изменяются на противоположные.
Если тип объекта, указанного во входном параметре, несовместим с типом этого параметра, то при активизированном флажке 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 |
|
| |
|
