Работа с модулем DOS. Изучение и практическое освоение возможностей модуля DOS. Процедуры и функции

МИНИСТЕРСТВО  ОБРАЗОВАНИЯ  РЕСПУБЛИКИ  БЕЛАРУСЬ

БЕЛОРУССКИЙ  НАЦИОНАЛЬНЫЙ  ТЕХНИЧЕСКИЙ  УНИВЕРСИТЕТ

Кафедра ” Горные  машины ”

Группа 

Отчёт

      о  выполнении  лабораторной  работы № 4                                      по  дисциплине  ”Информатика”

Работа с модулем DOS.

Выполнил:                                                                                                    Принял:   

Минск   2002

1.Цель работы: изучить и практически освоить возможности модуля DOS.

2.Задание на лабораторную работу:  составить программу, которая обеспечивает выполнение следующих действий:

2.1. определяет текущий каталог и выводит сообщение о нем на дисплей;

2.2. изменяет текущий диск на диск A:  ;

2.3. создает на текущем диске рабочий каталог

2.4.  создает в текстовый файл следующего содержания: ” Этот файл создан для работы с модулем DOS”;

2.5.   выводит оглавление текущего каталога;

2.6.  переименовывает созданный текстовый файл и повторно выводит оглавления каталога;

2.7.  удаляет созданный файл, выводит оглавление каталога;

2.8.   удаляет созданный на диске A: каталог;

2.9.  восстанавливает исходный текущий каталог, выводит сообщение о текущем каталоге на дисплей.

3. Пояснение:   модуль DOS содержит ряд подпрограмм для работы с файлами и доступа к средствам ОС

Процедуры и функции можно условно разбить на

Следующие группы:

---    функции управления ОС

---    процедуры управления процессами

---    процедуры обслуживания прерываний

---    процедуры работы с датой и временем

---    процедуры и функции проверки диска

---    процедуры и функции работы с файлами

---    процедуры и функции различного назначения.
3. Распечатка текста программы

Program mod;

uses dos;

var f:text;

s:string[20];

BEGIN

Exec('Command.com','dir');

Write('Введите название диска на который нужно перейти. ');Readln(S);

ChDir(S);

Write(‘ Введите пожалуйста имя нового диска.’ );

Readln(S);

MkDir(S);

Assign(f,S,Myfile1.txt);

Rewrite(f);

Writeln(f,'Этот файл создан для работы с модулем DOS,');

Close(f);

Exec('Command.com','S dir');

Rename(f,Myfile2.txt);

Exec('Command.com','S dir');

Erase(f);

Exec('Command.com','S del');      

END.

4..Вывод: изучил и практически освоил возможности модуля DOS.