TURBO PASCAL:Учебное пособие. Терёхин В.В. - 116 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

116
end.
Следующая процедура
procedure GetDir(d: byte; var s: string);
- возвращает имя текущего каталога для заданного логического
диска. Здесь d – выражение целого типа; s -параметр перемен-
ная. (d=0 - означает текущий логический диск, d=1 - диск A,
d=2 - диск В и т. д.)
Пример:
program p52 ;
var
s: String;
begin
GetDir (0, s) ;
Writeln (' текущий каталог ', s);
end.
Процедура
procedure MkDir(s: string);
создает новый каталог. Здесь s - строковое выражение, содер-
жащее путь и имя каталога. Следующая процедура
procedure RmDir(s; string);
удаляет пустой каталог. Здесь s - путь и имя каталога.
Пример:
program р53;
var
S: String;
begin
S : = ' ABCD ' ;
{создаем новый каталог}
MkDir(S) ;
{ . . . и сразу его удаляем}
RmDir (S) ;
end.
Процедура
procedure Erase(var j);
удаляет файл. Здесь f- переменная файлового типа, связанная 
end.
          Следующая процедура
procedure GetDir(d: byte; var s: string);
- возвращает имя текущего каталога для заданного логического
диска. Здесь d – выражение целого типа; s -параметр перемен-
ная. (d=0 - означает текущий логический диск, d=1 - диск A,
d=2 - диск В и т. д.)
          Пример:
program p52 ;
var
   s: String;
begin
   GetDir (0, s) ;
   Writeln (' текущий каталог ', s);
end.
          Процедура
procedure MkDir(s: string);
 создает новый каталог. Здесь s - строковое выражение, содер-
жащее путь и имя каталога. Следующая процедура
   procedure RmDir(s; string);
 удаляет пустой каталог. Здесь s - путь и имя каталога.
          Пример:
program р53;
var
   S: String;
begin
   S : = ' ABCD ' ;
{создаем новый каталог}
   MkDir(S) ;
{ . . . и сразу его удаляем}
   RmDir (S) ;
end.
          Процедура
   procedure Erase(var j);
 удаляет файл. Здесь f- переменная файлового типа, связанная
                                                          116

Страницы