IPB

> MsDos.PAS
Чат
Форум
Загрузка...
 

Язык:
Русский
English


 { Пример программы для процедуры MsDos }

uses Crt, Dos;

var
 Date, Year, Month, Day : String;
  Regs                   : Registers; { Для модуля WinDos используйте }
                                     { тип TRegisters.               }
begin
  Regs.AH := $2A;
 with Regs do
    MsDos(Regs);
 with Regs do
 begin
   Str(CX, Year);
   Str(DH, Month);
   Str(DL, Day);
 end;
 Date := Day + '.' + Month + '.' + Year;
 WriteLn('Сегодня : ', Date);
end.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"