1, 2: = 10 1/с; t0a = 0, 07 с; ta =? tb = ? tc = ? 3 (рис. 5) = 10 1/с; 1= 2 = 3= 0, 8 t= ? i = ? 4 (рис. 8) 1) 1 = 10 1/с; 2 = 11 1/с; 3 = 12 1/с; 1 = 35 1/с; 2 = 38 1/с 1= ? ; 2= ? ; t = ? 2) 1 = 10 1/с; 2 = 11 1/с; 3 = 12 1/с; 1 = 33 1/с; 2 = 38 1/с 1= ? ; 2= ? ; t = ?

Цифровой гироскопический датчик предназначен для измерения угла и

направления вращения робота, а также скорости его вращения. Точность

измерения составляет +/-30 , максимальная скорость проведения измерений

4400/сек., частота опроса датчика 1кГц.

Будучи включенным, при длительном нахождении робота в неподвижном

состоянии, определяемое значение угла не остаётся постоянным, а ошибочно

меняется или дрейфует. Поэтому, чем больше времени проходит от начала

первого обращения к гироскопическому датчику до чтения показаний, тем

менее точным становятся результаты за счёт систематического накопления

ошибки. Поэтому перед началом каждого измерения всегда необходимо

производить обнуление угла при режима Сброс.

Сорян, это всё что я знаю о лего

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.