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

UptoLike

ВУЗ: 

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

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

Рубрика: 

42
Разработка программного обеспечения навигационной системы про-
изводится по функционально-модульному принципу, рассмотренному
в данной главе в разделе «Проектирование программного обеспечения».
Приведем листинг программы для работы с ЭВМ измерительно-вычи-
слительного комплекса нижнего уровня через интерфейс RS-232, подго-
товленной в среде программирования Турбо Паскаль.
var
k, n, w:integer;
dat:array [1..16] of byte;
a:array [1..8] of integer;
d:array [1..8] of real;
z:array [1..8] of char;
Procedure Inp_N;
begin
write('Введите количество датчиков [1..7] k = ');
read(k);
If k<1 then k:=1;
If k>7 then k:=7;
n:=k*2;
w:=1;
end;
Procedure InZ;
var i, j:integer;
begin
port[$2fB]:=$80;
for i:=1 to 100 do j:=i;
port[$2f9]:=$00;
for i:=1 to 100 do j:=i;
port[$2f8]:=$0C;
for i:=1 to 100 do j:=i;
port[$2fB]:=$03;
for i:=1 to 100 do j:=i;
port[$2f9]:=$00;
for i:=1 to 100 do j:=i;
end;
Procedure Zap;
var s:byte;
begin
s:=port[$2f8];
port[$2f8]:=$00;
end;

Страницы