Цифровой гироскопический датчик предназначен для измерения угла и
направления вращения робота, а также скорости его вращения. Точность
измерения составляет +/-30 , максимальная скорость проведения измерений
4400/сек., частота опроса датчика 1кГц.
Будучи включенным, при длительном нахождении робота в неподвижном
состоянии, определяемое значение угла не остаётся постоянным, а ошибочно
меняется или дрейфует. Поэтому, чем больше времени проходит от начала
первого обращения к гироскопическому датчику до чтения показаний, тем
менее точным становятся результаты за счёт систематического накопления
ошибки. Поэтому перед началом каждого измерения всегда необходимо
производить обнуление угла при режима Сброс.
Сорян, это всё что я знаю о лего
{данная программа переводит любое сочетание символов ascii в систему счисления заданную пользователем.}
//pascal abc.net v3.0 сборка 1111
var
a,i,b,r,n,j,bug: integer;
s,se,slo,slof: string;
procedure preob(var a,b,n: integer; var se: string);
begin
repeat
b: =a mod n;
a: =a div n;
str(b,se);
s+=se;
until (a< =n-1);
end;
beginreadln(slo);
readln(n);
for j: =1 to length(slo) do
begin;
a: =ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i: =1 to length(s) div 2 do
begin;
se: =s[i];
s[i]: =s[length(s)-i+1];
s[length(s)-i+1]: =se[1];
end;
write(s,'-');
slof: =slof+s;
delete(s,1,length(s));
end;
end.
пример ввода:
работа на завтра.
2
пример вывода:
11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-
{таким образом, фразу " работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}
