Решаем задачи Абрамян на Паскале. Param48

Param48. Описать функцию IntFileSize($$S$$) целого типа, возвращающую количество элементов в файле целых чисел с именем $$S$$. Если файл не существует, то функция возвращает $$-1$$. С помощью этой функции найти количество элементов в трех файлах с данными именами.
Решение:

program Param48;

type
 FileName=String;

var i:integer;
S:FileName;

function IntFileSize(S:FileName):integer;
var
 F: File of Integer;
 i: integer;

begin
  Result:=0;
  Assign(F,S);
  {$I-}
  Reset(F);
  if IOResult<>0 then Result:=-1
  else
   begin
    while not eof(F) do
     begin
      Read(F,i);
      inc(Result);
     end;
    Close(F);
   end;
  {$I+}
end;

begin
 for i:=1 to 3 do
  begin
   Write('S: ');
   Readln(S);
   writeln(IntFileSize(S));
  end;
end.

program Param48;

type

FileName=String;

var i:integer;

S:FileName;

function IntFileSize(S:FileName):integer;

var

F: File of Integer;

i: integer;

begin

Result:=0;

Assign(F,S);

{$I-}

Reset(F);

if IOResult<>0 then Result:=-1

else

begin

while not eof(F) do

begin

Read(F,i);

inc(Result);

end;

Close(F);

end;

{$I+}

end;

begin

for i:=1 to 3 do

begin

Write('S: ');

Readln(S);

writeln(IntFileSize(S));

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param48

Комментарии:

Добавить комментарий Отменить ответ