Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
(* рТПЗТБННБ count РПДУЮЙФЩЧБЕФ ЮЙУМП УЙНЧПМПЧ Ч ЖБКМЕ *)
uses linux;
const
BUFSIZE=512;
var
filedes:integer;
nread:longint;
buffer:array [0..BUFSIZE-1] of byte;
total:longint;
begin
total := 0;
(* пФЛТЩФШ ЖБКМ 'anotherfile' ФПМШЛП ДМС ЮФЕОЙС *)
filedes := fdopen ('anotherfile', Open_RDONLY);
if filedes=-1 then
begin
writeln('пЫЙВЛБ РТЙ ПФЛТЩФЙЙ ЖБКМБ anotherfile');
halt(1);
end;
(* рПЧФПТСФШ ДП ЛПОГБ ЖБКМБ, РПЛБ nread ОЕ ВХДЕФ ТБЧОП 0 *)
nread := fdread (filedes, buffer, BUFSIZE);
while nread > 0 do
begin
inc(total,nread); (* ХЧЕМЙЮЙФШ total ОБ nread *)
nread := fdread (filedes, buffer, BUFSIZE);
end;
writeln('юЙУМП УЙНЧПМПЧ Ч ЖБКМЕ anotherfile: ', total);
fdclose(filedes);
halt(0);
end.
uses linux;
const
BUFSIZE=512;
var
filedes:integer;
nread:longint;
buffer:array [0..BUFSIZE-1] of byte;
total:longint;
begin
total := 0;
(* пФЛТЩФШ ЖБКМ 'anotherfile' ФПМШЛП ДМС ЮФЕОЙС *)
filedes := fdopen ('anotherfile', Open_RDONLY);
if filedes=-1 then
begin
writeln('пЫЙВЛБ РТЙ ПФЛТЩФЙЙ ЖБКМБ anotherfile');
halt(1);
end;
(* рПЧФПТСФШ ДП ЛПОГБ ЖБКМБ, РПЛБ nread ОЕ ВХДЕФ ТБЧОП 0 *)
nread := fdread (filedes, buffer, BUFSIZE);
while nread > 0 do
begin
inc(total,nread); (* ХЧЕМЙЮЙФШ total ОБ nread *)
nread := fdread (filedes, buffer, BUFSIZE);
end;
writeln('юЙУМП УЙНЧПМПЧ Ч ЖБКМЕ anotherfile: ', total);
fdclose(filedes);
halt(0);
end.