Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=41642&view=findpost&p=271283 Fri, 26 Dec 2003 21:24:01 +0000 2 плеерз :) и БМП https://forum.sources.ru/index.php?showtopic=41642&view=findpost&p=271283 Some1 Pascal https://forum.sources.ru/index.php?showtopic=41642&view=findpost&p=271278 Fri, 26 Dec 2003 21:02:50 +0000 2 плеерз :) и БМП https://forum.sources.ru/index.php?showtopic=41642&view=findpost&p=271278 Вот простенький пример:
    uses key,crt;
    begin
    InstallKey;
    repeat
    clrscr;
    writeln('Нажмите Escape для выхода');
    gotoxy(1,2);
    if keys[2]<>0 then writeln('Нажата клавиша 1');
    if keys[3]<>0 then writeln('Нажата клавиша 2');
    if keys[72]<>0 then writeln('Нажата стрелка вверх');
    delay(10);
    until keys[1]<>0;
    end.
]]> albom Pascal https://forum.sources.ru/index.php?showtopic=41642&view=findpost&p=271254 Fri, 26 Dec 2003 19:46:17 +0000 2 плеерз :) и БМП https://forum.sources.ru/index.php?showtopic=41642&view=findpost&p=271254 2. Ещё одна просьба. Как можно засунуть какой-нибудь рисунок в паскаль. Прошу вас напишите короткие способы. А то я тут ползуюсь одним способом, но он такой огромный, что я его как модуль использую.

Зарание Спасибо. ]]> KpokoMoT Pascal