Навигационные системы летательных аппаратов. Шивринский В.Н. - 44 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

43
Function Input_Port : byte;
var Status : byte; Inp_D : byte;
begin
repeat
Status := port[$2fd];
Status := Status mod 2;
until Status = 1;
Inp_D := port[$2f8];
Input_Port := Inp_D;
end;
Procedure Inp_Arr;
var i:integer;
begin
for i:=1 to n do
begin
dat[i]:=Input_Port;
end;
end;
Procedure Ras1;
var t, i:integer;
d2, zn:array [1..8] of real;
begin
t:=1;
i:=1;
while (i<>n+1) do
begin
a[t]:=(dat[i] shr 0) and 7;
d2[t]:=((dat[i] shr 5) and 3)*256;
zn[t]:=(dat[i] shr 4) and 1;
t:=t+1;
i:=i+2;
end;
t:=1;
i:=2;
while (i<>n+2) do
begin
d[t]:=((dat[i]+d2[t])-1)/100;
If zn[t]=1 then d[t]:=0-d[t];
t:=t+1;
i:=i+2;
end;
end;

Страницы