Поиск файлов

[Абай]

Поиск файлов

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

 

[Weles]

Нажимаем упорядочить значки по имени и по группам, ищем нужные файлы и считаем

 

[Vladimir_S]

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

VAR
 S:Array[1..4] of String;
 i,N:byte;
 f:Text;
BEGIN
 {$I-}
 N:=0;
 For i:=1 to 4 do
  begin
   writeln('Name[',i,']:');
   readln(S[i]);
  end;
 For i:=1 to 4 do
  begin
   Assign(f,S[i]);
   ReSet(f);
   If IOResult=0 then Inc(N);
  end;
 writeln('N= ',N);
 readln
END.

 

[Weles]

Фига, Владимир это вы уже прям всерьёз телепатией овладели, даже не задавая вопросов о языке сразу код выдали

 

[Vladimir_S]

Фига, Владимир это вы уже прям всерьёз телепатией овладели, даже не задавая вопросов о языке сразу код выдали

Так а у него все задачки по Паскалю, потому ситуацию, чтобы вдруг потребовалась Ява, ADA или там Modula-2, полагаю маловероятной.

 

[Weles]

А, понятно

 

[Абай]

СПАСИБО БОЛЬШОЕ!!!!!