utburt
?>

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кГц.

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

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

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

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

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

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

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

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

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

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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 = ?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

sve707ta
vladimir72tatarkov1317
o-lala88387
lider-mpl550
Valerevna-Vardan
arteevdimon
Avdimov5
Vlad Petr531
margarita25061961
Vasileva
muziumednogorsk
Semenovt
Aleks0091
Evagg3856
supercom-ru-marinaguseva4267