Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses linux;
const
PERMS=0644; (* РТБЧБ ДПУФХРБ РТЙ ПФЛТЩФЙЙ У Open_CREAT *)
filename='newfile';
var
filedes:integer;
begin
filedes := fdopen (filename, Open_RDWR or Open_CREAT, octal(PERMS));
if filedes = -1 then
begin
writeln('оЕ НПЗХ УПЪДБФШ ', filename);
halt(1); (* ЧЩИПД РП ПЫЙВЛЕ *)
end;
writeln('жБКМ ', filename, ' ХУРЕЫОП УПЪДБО (ПФЛТЩФ ДМС ЪБРЙУЙ), ДЕУЛТЙРФПТ ТБЧЕО ',filedes);
(* пУФБМШОБС РТПЗТБННБ *)
halt(0);
end.
const
PERMS=0644; (* РТБЧБ ДПУФХРБ РТЙ ПФЛТЩФЙЙ У Open_CREAT *)
filename='newfile';
var
filedes:integer;
begin
filedes := fdopen (filename, Open_RDWR or Open_CREAT, octal(PERMS));
if filedes = -1 then
begin
writeln('оЕ НПЗХ УПЪДБФШ ', filename);
halt(1); (* ЧЩИПД РП ПЫЙВЛЕ *)
end;
writeln('жБКМ ', filename, ' ХУРЕЫОП УПЪДБО (ПФЛТЩФ ДМС ЪБРЙУЙ), ДЕУЛТЙРФПТ ТБЧЕО ',filedes);
(* пУФБМШОБС РТПЗТБННБ *)
halt(0);
end.
Соседние файлы в папке 2