Mail

В этот день много лет назад...
16 марта. В 1999 году (27 лет назад) - Президиум Российской академии наук постановлением N58-A принял обращение "Не проходите мимо!" к научным работникам, профессорам и преполавателям вузов, учителям школ и техникумов, всем членам интеллектуального сообщества, в котором сказано: "В настоящее время в нашей стране широко и беспрепятственно распространяются и пропагандируются псевдонаука и паранормальные верования: астрология, шаманство, оккультизм и т. д. Продолжаются попытки осуществлять за счет государственных средств различные бессмысленные проекты вроде создания торсионных генераторов. Население России оболванивается теле- и радиопрограммами, статьями и книгами откровенно антинаучного содержания. В отечественных государственных и частных Сми не прекращается шабаш колдунов, магов, прорицателей и пророков. Псевдонаука стремится проникнуть во все слои общества, все его институты, включая Российскую академию наук. Эти иррациональные и в основе своей аморальные тенденции, бесспорно, представляют собой серьезную угрозу для нормального духовного развития нации... Президиум Ран призывает вас активно реагировать на появление псевдонаучных и невежественных публикаций как в средствах массовой информации, так и в специальных изданиях, противодействовать осуществлению шарлатанских проектов, разоблачать деятельность всевозможных паранормальных и антинаучных "академий", всемирно пропагандировать достоинства научного знания, рациональное отношение к действительности. Мы призываем руководителей радио- и телевизионных компаний, газет и журналов, авторов и редакторов программ и публикаций не создавать и не распространять псевдонаучные и невежественные программы и публикации и помнить об ответственности Сми за духовное и нравственное воспитание нации...".

Turbo Pascal Documentation

Процедура DetectGraph
Модуль Graph

     Функция: Проверяет наличие  соответствующих  аппаратных
средств и определяет, какой графический режим и драйвер сле-
дует использовать.
     Описание: DetectGraph(var драйвер, режим : integer)
     Примечания: Возвращает  значения  выбранного  режима  и
драйвера,  которые можно передать в качестве параметров про-
цедуре InitGraph  для  загрузки  соответствующего  драйвера.
Если  графическая аппаратура не найдена, то параметры "драй-
вер" и "режим" будут содержать значения -2.
     Определены следующие константы:

const
   Detect    = 0;  { требование автоматического распознава-
                     ния }
   CGA       = 1;
   MCGA      = 2;
    EGA       = 3;
   EGA64     = 4;
   EgaMono   = 5;
   Reserved  = 6;
   HercMono  = 7;
   ATT400    = 8;
   VGA       = 9;
   PC3270    = 10;

     Если не указываются другие  действия,  процедура  Init-
Graph  вызывает  процедуру  DetectGraph, находит и загружает
соответствующий драйвер и инициализирует графическую  систе-
му. Единственной причиной непосредственного вызова процедуры
DetectGraph является замена выбираемого ей драйвера. В  при-
веденном ниже примере идентифицируется система с объемом па-
мяти 64 или 256К и графическим адаптером ЕGА, но загружается
драйвер СGА. Заметим, что когда вы передаете процедуре Init-
Graph параметр  GraphDriver (задающий драйвер), отличающийся
от  Detect, вы должны также передать для требуемого драйвера
в параметре GraphMode допустимый графичекий режим.
     Прочее: См. также процедуры InitGraph, GraphResult.
     Пример:

     ....
     GraphDriver := Detect;
     DetectGraph(GraphDriver, GraphMode);
     if (GraphDriver = EGA64) then
   begin
    GraphDriver := CGA;
    GraphMode := CGAHi;
   end;
   InitGraph(GraphDriver, GraphMode, 'C:\BIN');
   ...