ответь на вопросы по пройденной теме ниже заданные: 1. Как работает гироскопический датчик?
2. Что ты можешь сказать о значимости гироскопического датчика в робототехнике?
3. Как гироскопические датчики влияют на движение роботов?
4. В чем отличие гироскопического датчика от других датчиков?
Begin
AMean:=(X+Y)/2;
GMean:=Sqrt(X*Y);
End;
Var
A,B,C,D,S:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Write('D = ');ReadLn(D);
WriteLn;
Mean(A,B,S,B);
WriteLn('AMean(A,B) = ',S);
WriteLn('GMean(A,B) = ',B);
WriteLn;
Mean(A,C,S,C);
WriteLn('AMean(A,C) = ',S);
WriteLn('GMean(A,C) = ',C);
WriteLn;
Mean(A,D,S,D);
WriteLn('AMean(A,D) = ',S);
WriteLn('GMean(A,D) = ',D);
End.
A = 1
B = 2
C = 3
D = 4
AMean(A,B) = 1.5
GMean(A,B) = 1.4142135623731
AMean(A,C) = 2
GMean(A,C) = 1.73205080756888
AMean(A,D) = 2.5
GMean(A,D) = 2
Text,S:string;
n,k:boolean;
i:integer;
Begin
Write('Введите текст на русском языке: ');ReadLn(Text);
Text:=LowerCase(Text)+' '; // перевоит текст в нижний регистр
WriteLn(Text); // показывает действие предыдущей строки
For i:= 1 to Length(Text) do
Begin
if ('а' <= Text[i])and(Text[i] <= 'я')or(Text[i] = 'ё') then S:=S+Text[i] // записываем русские буквы в S
else // как только встречаем другой символ, проверяем,
if Length(S) > 0 then // есть ли в S хоть одна буква,
Begin // и если есть, то проверяем условие задачки, и выводим слово на экран, если оно истинно
if (S[1] in 'бвгджзйклмнпрстфхцчшщ')and(S[Length(S)] in 'аоэиуыеёюя') then WriteLn(S);
S:=''; // далее обнуляем S
End;
End;
End.
Пример работы программы:
Введите текст на русском языке: Дан произвольный текст на русском языке. Написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой.
дан произвольный текст на русском языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой.
на
программу
которая
слова
начинающиеся
на
согласную
заканчивающиеся