Роботтың айналу бұрышын немесе айналу жылдамдығын өлшеуге арналған. Датчик корпусының жоғарғы жағында сенсор жұмыс істейтін жазықтықты көрсететін екі көрсеткі бар. Сондықтан сенсорды роботқа дұрыс орнату маңызды. Сондай-ақ, дәлірек өлшеу үшін гироскопиялық сенсорды бекіту оның робот корпусына қатысты қозғалғыштығын болдырмауы керек. Роботтың түзу қозғалысы кезінде де гироскопиялық сенсор бұрыш пен айналу жылдамдығын өлшеу кезінде қате жинай алады, сондықтан өлшеудің алдында ток датчигінің көрсеткішін 0 қалпына келтіру керек. Роботты сағат тіліне қарсы айналдыру теріс өлшеу мәндерін тудырады, ал сағат тілімен айналдыру оң өлшемдерді тудырады. 2. Қозғалыс датчиктері
Объяснение:
O__o
var
i, s : Integer;
begin
for i := 1000 to 9999 do
if (i * 4 >= 1000) and (i * 4 <= 9999) then
begin
s := i * 4;
if ((i mod 100) div 10 = ( s div 1000)) then
if ((i mod 10) = ( s mod 1000) div 100) then
if ( i div 1000 = (s mod 100) div 10) then
if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
Writeln(i, ' = ', i * 4);
end;
Readln;
end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln('Целая часть ',n div 10,', остаток ',n mod 10)
end.
Пример
n= 253421
Целая часть 25342, остаток 1