М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alinkaalekseev1
alinkaalekseev1
05.08.2020 17:05 •  Информатика

за в Ahk скрипте Делаю Практическую работу для конкурса программистов в нашей школе, и столкнулся с такой проблемой, что мне нужно много и часто нажимать на пробел. Нашел скрип AHK, чтобы было побыстрей нажимать на пробел. Но после нажатия других кнопок (Кроме пробела) скрипт полностью перестает работать (приходится заново нажимать пробел).

В общем мне нужно, чтобы при нажатии на потусторонние клавиши на клавиатуре скрипт не прекращал работать. (У меня виндовс 10). Подскажите что нужно исправить в скрипте.

Вот скрипт:

*~$Space::

Sleep 100

Loop

{

GetKeyState, SpaceState, Space

If SpaceState = U

break

Sleep 100000

Send, {Blind}{Space}

}

👇
Открыть все ответы
Ответ:
Annet234
Annet234
05.08.2020
1 Задание 1. Изображения

В изображение можно закодировать ЛЮБУЮ информацию. Начнём с того, что в изображение можно легко спрятать GEO-тег, можно из фотографии сделать архив (переименовав в .rar/.7z), можно спрятать водяной знак, нарисовать лишние пиксели, которые при сравнении с такой же фотографией без пикселей выдадут надпись, можно закодировать пиксели двух цветов в байты и тому подобное.  

2. Текст

Тут много рассуждать не нужно. Очень и ОЧЕНЬ много существует для кодирования текста. Начиная от банального шифра Цезаря, замены (меняем любую букву на другую; чтобы раскодировать такое, придётся использовать частотный анализ) заканчивая Base 16/32/64, Hex, Atom128, URI, Decimal, Morse, Hackerize XS, бинарным кодом, TIGO-3FX, ZONG22, MD5 и тому подобным.

3. Видео и Аудио

Чаще всего приходится разбивать видео и аудио на отдельные фрагменты и действовать по ситуации, возвращаясь в первый пункт. Что касаемо аудио чаще всего используют методы кодировки LSB, чётного кодирования и эхо-метода.

2 Задание

Base64 ⇔ 0KXQm9CV0JE=

Hex (0x) ⇔ 0xd00xa50xd00x9b0xd00x950xd00x91

Scrypt (N = 16384, r = 8, p = 1, length = 64) ⇔ 7e3d4adfbf6c14fbca16b0d55ef48cd21636c0fa50018c91fc0113f07533a146c36e34c1913c3bdb0ea55e709929749327a5640aa7213fdf9c23c40e039b9070

3 задание

Пусть на один символ приходится 2 байта, тогда всего в пословице 47 символов (включая точку и пробелы)  * 2 байта = 94 байта

4 Задание

Нужно найти количество битов, которое не будет превышать 14, но и не будет меньше.  

2¹ = 2, 2² = 4, 2³ = 8, 2⁴ = 16. Дальше считать не нужно, ведь для 14 видов товара хватит 4 бита.

5 Задание

Для начала нам нужно определить, в каких системах счисления присутствует тройка:

Двоичная (0, 1) - нет, троичная (0, 1, 2) - нет, восьмеричная (0, 1, 2, 3, ..., 8) - да, 12-ная (0, 1, 2, 3, ..., A, B) - да, 16-ная (0, 1, 2, 3, ..., E, F) - да. Думаю, этих систем хватит сполна. Как видим, нам подходят только 8-ная, 12-ная и 16-ная. Очевидно, что любое десятичное число (10-ной системой счисления), оканчивающееся на 3 будет в любой другой подходящей системе оканчиваться на 3.

4,8(80 оценок)
Ответ:
madinaseidahmet
madinaseidahmet
05.08.2020
1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r
4,7(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ