Откройте «Настройки» и пролистайте страницу вниз.
В общем списке войдите во вкладку «Универсальный доступ».
Появится перечень возможностей, в котором тапните по «Виртуальный контроллер».
Следующим выберите «Переключатели».
Система допускает создание 1-10 профилей виртуальных контроллеров. Чтобы настроить первый, клацните по «Добавить новый».
В перечне источников тапайте на «Экран».
Откроется следующее окно. Выберите в нем «На весь экран».
В подкатегории «Система» тапните по «Касание».
Сверху нажмите на «Назад», чтобы выйти из переключателя и открыть дополнительное меню.
Теперь выберите «Набор правил», по которым будет работать автокликер.
Появится перечень доступных действий, где пользователю нужно нажать «Создание нового набора правил».
В поле «Название» введите имя контроллера, а затем жмите по «Назначить переключатель».
Снова жмите «На весь экран».
Появится список функций, доступных для надстройки. В подгруппе «Удержание на точке» вам нужен «Собственный жест».
В следующем окне предложат сделать движения, которые в последующем будут автоматически повторяться на экране. Делайте касание по экрану или свайпы в той зоне, где в игре или приложении понадобится повторить тапы. После “натапывания”, жмите «Стоп» в правом нижнем углу, а затем «Сохранить» в верхнем.
Вернитесь к предыдущему меню, тапнув по «Назад».
Пользователь вернется во вкладку «Набор правил», где нужно перейти в «Запуск набора правил».
Переключите галочку с пункта «Нет» на название автоматического кликера, который создал юзер.
Снова вернитесь во вкладку «Универсальный доступ» и откройте «Универсальная команда».
Сверху перечня нажмите по «Виртуальный контроллер
Первая задача:
var digs:String;
sum, sr:Real;
i:Integer;
begin
writeln('Введите 5 чисел через пробел');
readln(digs);
digs := digs.Replace(' ', '');
sum := 0;
for i := 1 to 5 do
sum := sum + strToInt(digs[i]);
sr := sum / 5;
writeln('Сумма: ' + sum);
writeln('Сред. арифметическое: ' + sr);
end.
Ввод:
1 2 3 4 5
Вывод:
Сумма: 15
Сред. арифметическое: 3
Вторая задача:
var i:Integer;
begin
for i := 0 to 10 do
writeln(i + '^3=' + i**3);
end.
Вывод:
0^3=0
1^3=1
2^3=8
3^3=27
4^3=64
5^3=125
6^3=216
7^3=343
8^3=512
9^3=729
10^3=1000
проверить? или сделать?