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

Question

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

Comments

В не против мерцания текста?

---

нет

Answer 1

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