Question

Турбо паскальКак сделать чтобы при нажатии shift и alt выводилось твое имя? ​

Answer 1

Ответ:

по факту в старых версиях это было по умолчанию

Answer 2

Для решения вашей задачи в Turbo Pascal вы можете использовать функцию `GetAsyncKeyState` из Windows API. Эта функция позволяет проверить, нажата ли в данный момент определенная клавиша. В вашем случае, вам нужно проверить, нажаты ли одновременно клавиши Shift и Alt.

Вот пример кода, который вы можете использовать:

uses crt;

var
 ch: char;

begin
 repeat
   if (GetAsyncKeyState(VK_SHIFT) <> 0) and (GetAsyncKeyState(VK_MENU) <> 0) then
   begin
     writeln('Ваше имя');
   end;
   ch := readkey;
 until ch = #27;
end.

В этом коде функция `GetAsyncKeyState` используется для проверки состояния клавиш Shift и Alt. Если обе клавиши нажаты, то программа выводит ваше имя. Цикл `repeat..until` используется для постоянного проверяния состояния клавиш, пока пользователь не нажмет клавишу Esc (код `#27` в ASCII).

Обратите внимание, что для использования функции `GetAsyncKeyState` вам необходимо включить модуль `crt` в ваш код.

Также стоит отметить, что функция `GetAsyncKeyState` возвращает состояние клавиши на момент вызова, поэтому если пользователь удерживает клавиши Shift и Alt, программа может выводить ваше имя несколько раз.

Источник: [Microsoft Docs](https://learn.microsoft.com/ru-ru/windows/win32/learnwin32/keyboard-input)