HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
2 декабря. В 1805 году (218 лет назад) - Аустерлицкое сражение. В сражении, получившем название "Битва трех императоров", армия Наполеона (73 тысячи человек) наносит тяжелое поражение объединенной русско-австрийской армии (86 тысяч человек). Командующим считается М. И. Кутузов, но фактически он отстранен от принятия решений императором Александром I, который принял план австрийского генерала Ф. Вейротера, не учитывавший маневра противника и без достаточных сведений от обстановке. Союзники теряют убитыми и ранеными 27 тысяч человек, французы - около 12 тысяч. У России самые внушительные потери: 21 тыс. убитых и раненых.
 
 

Turbo Pascal Documentation

Процедура ClrScr

Модуль Сrt


      Функция: Очищает экран и помещает курсор в верхний  ле-
вый угол экрана.
     Описание: ClrScr
     Примечания: Все позиции символов заполняются пробелами.
При  этом используется текущее определение текстовых атрибу-
тов. Таким образом, если для ТехtВасkGround не задан  черный
цвет,  то для всего экрана устанавливается фоновый цвет. Это
относится также к позициям  символов,  очищенных  с  помощью
процедур  ClrЕоl,  InsLine и DelLine, а также к пустым стро-
кам, образующимся при пролистывании экрана.
     Эта процедура зависит от используемого окна. Например:

     Window(1,1,60,20);
     ClrScr;

приведут к очистке прямоугольной области на экране  размером
60х20 с началом в точке (1,1).
     Прочее: См. также процедуры ClrEol, Window.
     Пример:

uses Crt;
begin
   TextBackGround(LightGray); { для всего экрана устанавли-
                                вается светлосерый фоновый
                                цвет }
   ClgScr;
end.




HOME