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

UptoLike

ВУЗ: 

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

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

Рубрика: 

44
Procedure Ras2;
var t, i:integer;
d2, zn:array [1..8] of real;
begin
t:=1;
i:=2;
while (i<>n+2) do
begin
a[t]:=(dat[i] shr 4) and 7;
d2[t]:=(dat[i] and 3)*256;
zn[t]:=(dat[i] shr 2) and 1;
t:=t+1;
i:=i+2;
end;
t:=1; i:=1;
while (i<>n+1) 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;
Procedure Preob;
var t1:real;
begin
t1:=(dat[1] shr 0) and 7;
if t1=1 then Ras1
else Ras2;
end;
Procedure Ind;
var i, j:integer;
begin
for i:=1 to k do
write(d[i]:7:2);
writeln;
for i:=1 to 1100 do
begin
for j:=1 to 10000 do;
end;
end;

Страницы