Роботтың айналу бұрышын немесе айналу жылдамдығын өлшеуге арналған. Датчик корпусының жоғарғы жағында сенсор жұмыс істейтін жазықтықты көрсететін екі көрсеткі бар. Сондықтан сенсорды роботқа дұрыс орнату маңызды. Сондай-ақ, дәлірек өлшеу үшін гироскопиялық сенсорды бекіту оның робот корпусына қатысты қозғалғыштығын болдырмауы керек. Роботтың түзу қозғалысы кезінде де гироскопиялық сенсор бұрыш пен айналу жылдамдығын өлшеу кезінде қате жинай алады, сондықтан өлшеудің алдында ток датчигінің көрсеткішін 0 қалпына келтіру керек. Роботты сағат тіліне қарсы айналдыру теріс өлшеу мәндерін тудырады, ал сағат тілімен айналдыру оң өлшемдерді тудырады. 2. Қозғалыс датчиктері
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin var a:=ReadlnString('->').ToWords; a.Select((x,i)->(x,x.Length,i)).OrderByDescending(x->x[1]). ThenBy(x->x[0]).Select(x->x[0]).Println end.
Пример -> Карл у Клары украл кораллы Клара у Карла украла кларнет кларнет кораллы украла Карла Клара Клары украл Карл у у
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin var s1:=''; var s2:=''; var s:=ReadlnString('->'); var p:integer; for var i:=1 to s.Length do begin p:=pos(s[i],s1); if p>0 then s[i]:=s2[p] end; Writeln(s) end.
Роботтың айналу бұрышын немесе айналу жылдамдығын өлшеуге арналған. Датчик корпусының жоғарғы жағында сенсор жұмыс істейтін жазықтықты көрсететін екі көрсеткі бар. Сондықтан сенсорды роботқа дұрыс орнату маңызды. Сондай-ақ, дәлірек өлшеу үшін гироскопиялық сенсорды бекіту оның робот корпусына қатысты қозғалғыштығын болдырмауы керек. Роботтың түзу қозғалысы кезінде де гироскопиялық сенсор бұрыш пен айналу жылдамдығын өлшеу кезінде қате жинай алады, сондықтан өлшеудің алдында ток датчигінің көрсеткішін 0 қалпына келтіру керек. Роботты сағат тіліне қарсы айналдыру теріс өлшеу мәндерін тудырады, ал сағат тілімен айналдыру оң өлшемдерді тудырады. 2. Қозғалыс датчиктері
Объяснение:
begin
var a:=ReadlnString('->').ToWords;
a.Select((x,i)->(x,x.Length,i)).OrderByDescending(x->x[1]).
ThenBy(x->x[0]).Select(x->x[0]).Println
end.
Пример
-> Карл у Клары украл кораллы Клара у Карла украла кларнет
кларнет кораллы украла Карла Клара Клары украл Карл у у
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var s1:='';
var s2:='';
var s:=ReadlnString('->');
var p:integer;
for var i:=1 to s.Length do begin
p:=pos(s[i],s1);
if p>0 then s[i]:=s2[p]
end;
Writeln(s)
end.
Пример
-> abracadabra
deudfdgdeud