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

File1. Дана строка $$S$$. Если $$S$$ является допустимым именем файла, то создать пустой файл с этим именем и вывести True. Если файл с именем $$S$$ создать нельзя, то вывести False.

Решение:

program File1;
var
 S:String;
 F: File;

begin
  Write('S: ');
  Readln(S);

  Assign(F,S);
  {$I-}
   ReWrite(F);
  {$I+}
  if IOResult=0 then
   begin
    Writeln(TRUE);
    Close(F);
   end
  else Writeln(FALSE);
end.

program File1;

var

S:String;

F: File;

begin

Write('S: ');

Readln(S);

Assign(F,S);

{$I-}

ReWrite(F);

{$I+}

if IOResult=0 then

begin

Writeln(TRUE);

Close(F);

end

else Writeln(FALSE);

end.

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

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

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

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