Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Системное программное обеспечение. Учебник
.pdf
171
ПРИЛОЖЕНИЯ
Приложение 2.
Работа в версиях ОС Windows
Задание: разработать сценарий и программу на языке высокого уровня.
Сценарий для реализации на языке высокого уровня разработан по аналогии со сценарием, который приведен выше в
примере 2 приложения 1 для MS-DOS. Программа повторяет
сценарий, выполненный в среде MS-DOS. Процесс ее работы
выполняется пошагово, и одновременно в окне приложения
отображается аналогичная команда DOS.
Текст программы
begin
if ch=0 then
begin
Label3.Caption:=Cоздаем каталог USER1’;
CreateDir(‘C:\USER1’);
Button1.Caption:=’Далее >’;
end;
if ch=1 then
begin
Label3.Caption:=Создаем текстовый документ’+ #13
+’file1.txt и USER1’+ #13 +’ вводим текст…’;
text:=InputBox
Assignfile (ftest,’C:\USER1\file1.txt’);
rewrite(ftest);
begin
writeln(ftest,text);
Label1.Caption:= text;
end;
CloseFile(ftest);
end;
if ch=2 then
begin
Label3.Caption:=’Создаем каталог USER2’;
CreateDir(‘C:\USER2’);
Button1.Caption:=’Далее >’;
СИСТЕМНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ
172
end;
if ch=3 then
begin
Label3.Caption:= Создаем текстовый документ’+ #13
+’file2.txt и USER2’+ #13 +’ вводим текст…’;
text:=InputBox
Assignfile (ftest,’C:\USER2\file2.txt’);
rewrite(ftest);
begin
writeln(ftest,text);
Label2.Caption:= text;
end;
CloseFile(ftest);
end;
if ch=4 then
begin
Label1.Caption:=’’;
Label2.Caption:=’’;
Label3.Caption:=’
end;
if ch=5 then
begin
Assignfile (ftest,’C:\USER1\file1.txt’);
reset(ftest);
readln(ftest,textf[1]);
CloseFile(ftest);
Assignfile (ftest,’C:\USER2\file2.txt’);
reset(ftest);
readln(ftest,textf[2]);
CloseFile(ftest);
if textf[1]=textf[2] then
Label3.Caption:=Они различны ! ! !’
else
begin
Label1.Caption:=textf[1];
Label2.Caption:=textf[2];
Label4.Caption:=Они одинаковы ! ! !’;
end;
173
ПРИЛОЖЕНИЯ
end;
if ch=6 then
begin
Label4.Caption:=’’;
Label3.Caption:=’Создаем каталог USER’;
CreateDir(‘C:\USER’);
end;
if ch=7 then
begin
Label3.Caption:=’Копируем file1.txt в USER’;
CopyFile(‘C:\USER1\file1.txt’,’C:\USER\file1.txt’,true);
end;
if ch=8 then
begin
Label3.Caption:=’ Копируем file2.txt в USER’;
CopyFile(‘C:\USER2\file2.txt’,’C:\USER\file2.txt’,true);
end;
if ch=9 then
begin
Label3.Caption:=(‘Удаляем file1’);
Label1.Caption:=’’;
DeleteFile(‘C:\USER1\file1.txt’);
end;
if ch=10 then
begin
Label3.Caption:=’ Удаляем file2’;
Label2.Caption:=’’;
DeleteFile(‘C:\USER2\file2.txt’);
end;
if ch=11 then
egin
Label3.Caption:=’ Удаляем USER1’;
RemoveDir(‘C:\User1\’);
end;
if ch=12 then
begin
Label3.Caption:=’ Удаляем USER2’;
RemoveDir(‘C:\User2\’);
СИСТЕМНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ
end;
if ch=13 then
begin
Label3.Caption:=’’;
Label1.Font.Color:= clRed;
Label1.Caption:=
Label2.Caption:=’’;
Button1.Enabled:=false;
end;
end;
end.
174
Учебное издание
Волкова Людмила Петровна
Панкрушин Петр Юрьевич
СИСТЕМНОЕ ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ
Учебник
Технический редактор Т.В. Суханова
Корректор Е.Н. Леонова
Верстальщик А.М. Маркин
Подписано в печать 07.09.22 Уч.-изд. л. 10,94
1
Формат 60 × 90
Университет науки и технологий МИСИС,
119049, Москва, Ленинский пр-кт, д. 4, стр. 1
Издательский Дом НИТУ «МИСиС»,
119049, Москва, Ленинский пр-кт, д. 2А
Тел. 8 (495) 638-44-06
Отпечатано в типографии
Издательского Дома НИТУ «МИСиС»,
119049, Москва, Ленинский пр-кт, д. 4А
Тел. 8 (495) 638-44-16, 8 (495) 638-44-43
/
16
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]