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

File4. Даны имена четырех файлов. Найти количество файлов с указанными именами, которые имеются в текущем каталоге.

Решение:

program File4;
var
 S:String;
 F:File;
 i,Num:integer;

begin
  Num:=0;
  for i:=1 to 3 do
   begin
    Write('S: ');
    Readln(S);
    Assign(F,S);
    {$I-}
     Reset(F);
    {$I+}


    if IOResult=0 then
     begin
      inc(Num);
      Close(F);
     end;
  end;
  Writeln(Num);
end.

program File4;

var

S:String;

F:File;

i,Num:integer;

begin

Num:=0;

for i:=1 to 3 do

begin

Write('S: ');

Readln(S);

Assign(F,S);

{$I-}

Reset(F);

{$I+}

if IOResult=0 then

begin

inc(Num);

Close(F);

end;

Writeln(Num);

end.

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

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

Hero

21.12.2017 в 07:18

Не работает

Ответить
- Anton
  
  21.12.2017 в 08:59
  
  А какая ошибка?
  
  Ответить
asdfg

17.07.2021 в 22:47

может мне кто-нибудь объяснить откуда у меня в каталоге могут взяться рандомно названные файлы ? у меня закономерно всегда количество найденых файлов 0 ! А в чем тогда суть задания? И почему во встроенном задачнике в правильных ответах то 0 то 1 то 2 то 3 то 4 файла находит. Кто-то может объяснить эту ситуацию ???
P.S. и да, в счетном цикле 1 до 4 должно быть,т.к. в задании по 4 названия файлов даётся.

Ответить
asdfg

17.07.2021 в 22:50

И еще вопрос, коли этот задачник Абрамяна встроен в программинг таскбук паскальАБЦ, то видимо на собственно паскальАБЦ его можно выполнить. Вопрос как, если функция IOResult в паскальАБЦ отсутствует? В учебниках по паскалю тоже вижу что только через IOResult похожие задачи решаются…

Ответить

Спасибо некоему Кириллу из комментов на file5. Оказывается задание заточено под функцию FileExists из PascalABC…. Вот решение которое верные ответы выдает:

var
  s: string;
  f: file;
  i, n: integer;

begin
  
  for i := 1 to 4 do
  begin
    readln(s);
    if fileexists(s)
      then inc(n);
  end;
  write(n);
end.

var

s: string;

f: file;

i, n: integer;

begin

for i := 1 to 4 do

begin

readln(s);

if fileexists(s)

then inc(n);

end;

write(n);

end.

Но для меня так и осталось загадкой откуда эти рандомносозданные названия в каком то каталоге эта функция находит….

Ответить

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

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

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

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