data[k][2]:=fase_r;
end;
if(get_char(BASE)=TRUE) then
begin
if(Value<>contr) then {control}
Возможно вы искали - Курсовая работа: Автомобильная сигнализация
begin
z:=0;
writeln('Error COM port');
end
else
Похожий материал - Курсовая работа: Разработка микропроцессорной системы Автомобильные часы-термометр-вольтметр на базе микроконтроллера
begin
l:=0;
while l=0 do
begin
clrscr;
Очень интересно - Курсовая работа: Автомобільний охоронний сигналізатор на мікроконтролері
writeln('Input number of measurements');
Readln(ms);
if(ms>100) then l:=1
else writeln('f=',data[ms,1],' fase=',data[ms,2]);
ReadKey;
Вам будет интересно - Реферат: Адаптивные сборочные робототехнические комплексы (РТК)
end;
freaquency_r:=0;
fase_r:=0;
for k:=1 to i do {medium measurements}
begin
Похожий материал - Реферат: Адміністрування користувачів з використанням локальних і глобальних груп
freaquency_r:=freaquency_r+data[k,1];
fase_r:=fase_r+data[k,2];
end;
freaquency_r:=freaquency_r/i;