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

Автор: asdfg

asdfg — Sat, 17 Jul 2021 19:15:16 +0000

Спасибо некоему Кириллу из комментов на 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.

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

Автор: asdfg

asdfg — Sat, 17 Jul 2021 18:50:55 +0000

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

Автор: asdfg

asdfg — Sat, 17 Jul 2021 18:47:30 +0000

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

Автор: Anton

Anton — Thu, 21 Dec 2017 04:59:57 +0000

В ответ на Hero. А какая ошибка?

Автор: Hero

Hero — Thu, 21 Dec 2017 03:18:52 +0000

Не работает