15.8. Работа с датами и временем (модуль dos)

Компьютер имеет часы, календарь и каждый пользователь может спросить у компьютера, который час и какое сегодня число, а при желании и подправить то и другое. Для работы с временем и датой на Паскале необходим новый для вас модуль DOS. Мы рассмотрим 4 процедуры этого модуля, которые работают со временем и датой:

GetTime - узнать время,

SetTime - установить время,

GetDate - узнать дату,

SetDate - установить дату.

Чтобы воспользоваться этими процедурами, вы должны придумать имена переменным, обозначающим дату и время:

God - год (с 1980-го по 2099-й),

Mes - месяц (1-12),

Den - день месяца (1-31),

Den_Ned - номер дня недели (от 0 (воскресенье) до 6 (суббота)),

Chas - час,

Min - минута,

Sec - секунда,

Sotki - сотые доли секунды.

Все эти переменные должны быть целочисленными, однако не типа Integer, к которому вы привыкли, а типа Word. Таково требование упомянутых процедур. Переменная типа Word должна быть целым числом из диапазона 0-65535.

Приведем программу, которая узнает у компьютера день, месяц и время:

USES DOS;

VAR God,Mes,Den,Den_Ned, Chas,Min,Sec,Sotki :Word;

BEGIN

GetDate(God, Mes, Den, Den_Ned);

WriteLn('Сегодня ' ,Den, '.' ,Mes, ' ' ,God, ' года');

GetTime(Chas,Min,Sec,Sotki);

WriteLn('Сейчас ' , Chas,' час. ' ,Min,' мин. и ' ,Sec,' сек.')

END.

Задание 133

Определите быстроту своей реакции. На экране через случайный промежуток времени (секунды через 2-4) возникает квадрат. Как только он возникнет, быстрее нажимайте на какую-нибудь клавишу. Пусть компьютер вычислит, сколько сотых долей секунды прошло между этими двумя событиями.

Возможно, вас не удовлетворит работа GetTime в этой программе. Попробуйте сделать определитель быстроты реакции, не связываясь с процедурами модуля DOS. Например, засеките по секундомеру, сколько времени ваш компьютер выполняет пустой цикл for i =1 to 10000000 do, и создайте на этой основе свою единицу времени.

А вот как установить дату и время:

SetDate(1997,5,22) - установить дату 22 мая 1997 года,

SetTime(23,58,32,93) - установить время 23 часа 58 минут 32 целых и 93 сотых секунды

Имейте в виду, что эти процедуры устанавливают дату и время не только для Паскаля, а для всего компьютера.

Задание 134

Определите день недели вводимой даты. Компьютер должен определить день недели и напечатать его в виде "понедельник", "вторник" и т. д. При этом вы не должны испортить календарь, то есть после того, как ваша программа завершит работу, календарь компьютера должен показывать правильную дату, а не введенную.

15.9. Нерассмотренные возможности Паскаля

Мы познакомились с Паскалем не на самом высоком уровне. Приведем краткий обзор возможностей Паскаля.

Модуль Graph. Подобно курсору в текстовом режиме, в графическом режиме есть свой графический курсор. Существует несколько процедур, удобно рисующих с помощью этого курсора отрезки и ломаные. Имеется возможность использовать больше чем 16 цветов. Можно применять для заливки ваши собственные узоры и употреблять так называемые видеостраницы, которые ускоряют вывод на экран графической информации. Имеется возможность организации на экране нескольких графических окон, в каждом из которых в независимой системе координат может отображаться графическая информация. Можно более тонко управлять выводом на экран векторных шрифтов, устанавливать собственные шрифты, а также устанавливать разные видеорежимы и использовать свои видеодрайверы.

Модуль CRT. Подобно модулю Graph, организующему графические окна, модуль CRT может организовывать текстовые окна, может менять количество букв в строке с 80 на 40, раздвигать и сдвигать текстовые строки, менять яркость текста или делать его мигающим.

Модуль Overlay. Если в результате компиляции вашей длинной паскалевской программы программа на машинном языке получается очень большая, она может и не уместиться в оперативной памяти компьютера, а значит, и не сможет выполниться. Модуль Overlay позволяет откомпилировать вашу программу по частям, каждую часть записав в отдельный исполняемый файл. Теперь при выполнении откомпилированной программы, если память забита, в нее не загружаются части программы, которые в данный момент не нужны, а когда в них возникает необходимость, из памяти выгружаются, чтобы освободить им место.

Файлы. Кроме текстовых файлов, Паскаль различает еще два типа файлов: типизированные и нетипизированные. Типизированный файл Паскаль рассматривает как цепочку данных определенного типа (например, чисел типа Integer или записей заданной структуры). Нетипизированный файл Паскаль рассматривает как длинную цепочку бит, предназначенную для ввода в определенное место оперативной памяти или, наоборот, полученную в результате записи определенной области оперативной памяти на диск.

При работе с файлами и каталогами Паскаль позволяет:

• создавать, переименовывать и уничтожать файлы;

• создавать и уничтожать каталоги;

• определять текущий каталог;

• устанавливать текущий каталог.

Модуль DOS согласно своему названию позволяет программисту использовать в паскалевской программе многие возможности и команды ОС MS-DOS, а именно:

• определять размер дисков и свободного места на диске,

• искать файлы,

• определять их атрибуты,

• анализировать полное имя файла,

• работать с прерываниями DOS,

• организовывать субпроцессы и резидентные программы.

Ключи компиляции. В разделе 15.2 мы уже рассматривали ключ компиляции {$I...}, который позволял включать в программу в качестве фрагмента программный текст из другого файла. Для других целей существуют другие ключи компиляции, которые называются так потому, что используются Паскалем во время компиляции для настройки работы компьютера с программой и для настройки режима компиляции. Эти ключи можно узнать по конструкции {$Х...}, где вместо X стоит латинская буква.

Процедуры и функции. Паскаль позволяет использовать процедуры и функции, написанные на языке Ассемблер (Assembler) и предварительно откомпилированные.

Паскаль позволяет хранить процедуры и функции в памяти не только, как составные части программы, но и как данные. Для этого используется специальный тип данных - процедурный. Имена процедур и функций могут служить параметрами в списках параметров других процедур и функций. Это позволяет организовать удобную математическую обработку данных.

Математические возможности Паскаля включают действия над двоичным представлением данных.

Объекты. Введение процедур в программирование резко повысило надежность создаваемых больших программ и их обозримость, сделало сам процесс программирования более удобным. Следующим шагом на пути совершенствования программирования стало введение объектов. Объект - это синтез данных и процедур, которые эти данные обрабатывают. Структура объекта такая же, как и у записи (record), только вдобавок к полям для данных имеются поля для процедур и функций. Вот пример записи типа объекта:

TYPE X1= OBJECT

A :Integer;

В :String;

Procedure C(f:Char);

Function D:Word

END

Объекты в программировании напоминают объекты реального мира. Например, чтобы описать стенные часы, мы должны описать совокупность их составных частей (шестеренки, маятник и прочее) плюс совокупность процессов взаимодействия этих частей (как качается маятник, как шестеренка цепляет шестеренку и так далее - в общем, "процедуры и функции").

Типичный пример объекта в программировании - окно в программе Windows. Чтобы заставить окно на экране функционировать как надо, программисту пришлось описать его размер, цвет, толщину рамки и прочее (данные) плюс процессы перемещение его по экрану, изменения размера и прочее (процедуры и функции).

Низкоуровневое программирование. Наиболее эффективные программы пишутся на языке низкого уровня Ассемблере, но на этом языке неудобно создавать большие программы. Профессиональный программист знает, какой участок его паскалевской программы наименее эффективен (например, выполняется медленно). Он может записать этот участок на Ассемблере и вставить в паскалевскую программу. Более того, он может вставить в паскалевскую программу участок на машинном языке.

Вы можете работать не с переменными величинами, а непосредственно с участками оперативной памяти и видеопамяти компьютера, задавая их адреса в шестнадцатиричной системе счисления. Все это увеличивает эффективность работы программы, но лишает вас защитных механизмов Паскаля - в случае малейшей ошибки ваша программа "остановится" (то есть изображение на экране замрет и никакими клавишами или мышкой вы не сможете вывести компьютер из останова).