• Паскаль.
    Написать программу, которая будет выводить внизу экрана "бегущую строку", а в конце процесса давать двойной гудок

Ответы 1

  • //Больше всего проблем доставил звукuses graphABC;var x , y : integer; s : string; begin;x:= 1;y:= windowheight-20;s:= 'Важное сообщение';while x<>windowwidth dobegin;textout(x,y,s);inc(x);sleep(50);clearwindow;end;system.Console.Beep(500,1000);sleep(1000);system.Console.Beep(500,1000);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years