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

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

program Param46;
type
 FileName=String;

var i:integer;
S:FileName;

function LineCount(S:FileName):integer;
var
 F: Text;
 TempS:String;
begin
  Assign(F,S);
  {$I-}
  Reset(F);
  if IOResult<>0 then Result:=-1
  else
   begin
    Result:=0;
    While not eof(F) do
     begin
      Readln(F,TempS);
      inc(Result);
     end;
    Close(F);
   end;
  {$I+}
end;

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

program Param46;

type

FileName=String;

var i:integer;

S:FileName;

function LineCount(S:FileName):integer;

var

F: Text;

TempS:String;

begin

Assign(F,S);

{$I-}

Reset(F);

if IOResult<>0 then Result:=-1

else

begin

Result:=0;

While not eof(F) do

begin

Readln(F,TempS);

inc(Result);

end;

Close(F);

end;

{$I+}

end;

begin

for i:=1 to 3 do

begin

Write('S: ');

Readln(S);

writeln(LineCount(S));

end;

end.

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

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

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

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