8 Вариант.

Процедура GetDate (Var Year, M, Day, D: word); возвращает текущую дату, установленную в ОС.

Процедура SetDate (Var Year, M, Day, D: word); устанавливает текущую дату в ОС.

Параметры принимают следующие значения: Year (год) - от 1980 до 2099, M (месяц) – от 1 до 12, Day (число) - от 1 до 31, D (день недели) – от 0 до 6, где 0 означает воскресенье.

Процедура GetTime (Var Hour, Min, Sec, Ssec: word); возвращает установленное в ОС текущее время.

Процедура SetTime (Var Hour, Min, Sec, Ssec: word); устанавливает в ОС текущее время.

Параметры принимают следующие значения: Hour (час) - от 0 до 23, Min (минута) – от 0 до 59, Sec (секунда) – от 0 до 59, Ssec (сотая доля секунды) – от 0 до 99.

Процедура GetFTime (Var F; Var Time: LongInt); возвращает время и дату создания файла, связанного с файловой переменной F. Время и дата возвращаются в переменную Time в упакованном формате.

Для их распаковки используется процедура UnpackTime (Time: LongInt, Var DT: DateTime).

Параметр DateTime имеет тип «запись», описанный в модуле Dos:

Type DateTime = Record

Year, Month, Day, Hour, Min, Sec : word

end;

Чтобы изменить дату и время создания файла, используются процедуры PackTime и SetTime.

Процедура PackTime (Var T: DateTime; Var Time: LongInt); преобразует значение параметра T в упакованный формат, который затем используется процедурой SetFTime.

Процедура SetFTime (Var F; Time: LongInt); устанавливает дату создания файла. Файл, для которого необходимо изменить дату создания, должен быть открыт для чтения.

9 Вариант.

См. вар.8

Возвращает дату и время последнего изменения файла.

Объявление:

procedure GetFTime(var F; var Time: Longint);

Пример:

uses Dos;

var

Fi : Text;

Time: Longint;

DT : DateTime;

begin

Assign(Fi, 'DATA.BAK');

Reset(Fi);

GetFTime(Fi, Time);

UnPackTime(Time, DT);

WriteLn('Year: ', DT.Year);

WriteLn('Month: ', DT.Month);

WriteLn('Date: ', DT.Day);

Close(Fi);

end.

10 Вариант.

Для выхода из графического режима используется стандартная процедура без параметров CloseGraph. Она восстанавливает режим, существовавший до инициализации графики.

Инициализация графического режима выполняется процедурой InitGraph:

InitGraph (<драйвер>:integer; <режим>:integer;<путь к файлу>:string);.

Uses Graph;

Var Driver, Mode:integer;

Procedure GrInit;

Begin

Driver:=Detect; { автораспознавание драйвера }

InitGraph (Driver, Mode, ‘’);

If GraphResult<>0 then

begin

Writeln ('Ошибка инициализации!');

Writeln ('Работа программы прервана');

Halt (1) { остановить выполнение программы с кодом завершения – 1 }

End

End;

Begin

GrInit; { графические действия }

Readln;

CloseGraph

End.

Чтобы стереть все изображение на экране, т.е. очистить его, используется процедура без параметров ClearDevice или процедура GraphDefaults, которая не только очищает экран, но и выполняет все стартовые установки графических параметров.

Процедура SеtViewPort (X1,Y1,X2,Y2:integer; Clip:boolean); служит для организации окон.

Процедура ClearViewPort; используется для очистки окна.

. Перейти к системе координат полного экрана можно с помощью процедуры ClearDevice, или задав в процедуре установки окна максимально возможные значения: SetViewPort(0,0,GetMaxX, GetMaxY, True);.