Категория
Информатика
Тип
реферат
Страницы
9 стр.
Дата
26.03.2014
Формат файла
.html — Html-документ
Архив
1011905.zip — 4.2 kb
  • jemuljacija-komandnogo-processora-os-unix-v-srede-windows-9x_1011905_1.html — 17.58 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы


--PAGE_BREAK--
Список литературы
1. Паскаль для персональных компьютеров: Справ. пособие / Ю.С. Бородич, А.Н. Вальвачев, А.И. Кузьмич. – Мн.: Выш. шк.: БФ ГИТМП “НИКА”, 1991. – 365 с.: ил.

2. Информатика: Учеб. пособие для студ. вузов / А.В. Могилев, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера. – М.: Изд. центр «Академия», 2000. – 816 с.

3. UNIX: Справочник / Рейчард К., Фостер — Джонсон Э. – Спб: Питер Ком, 1999. — 384 с.

Приложение А

Листинг программы

Program unix_com;

Uses Dos;

Var comu:string;

s_or_f:text;

k:integer;

Function Unix_num (comu:string):integer;

const inp:array[1..9] of string[6] = (

'ls', 'dircmp', 'tr', 'comm', 'rmdir', 'cat', 'mv', 'man', 'exit');

var f:boolean;

i:integer;

Begin f:=False;

for i:=1 to 9 do

if (Copy(comu, 1, Pos(' ', comu)-1)=inp[i]) or (comu=inp[i]) then

begin

f:=True;

Break;

end;

if not f then i:=11;

Unix_num:=i;

End;

Procedure Reout(var comu:string);

var Dev:string;

Flag:boolean;

Begin

Dev:='con';

Flag:=False;

if Pos ('>', comu) <> 0 then

begin

if Pos ('>>', comu) <> 0 then

begin

Delete (comu, Pos('>', comu), 1);

Flag:=True;

end;

Dev:=Copy(comu, Pos('>', comu)+1, Length(comu)-Pos('>', comu)+1);

if Dev[1]='' then Delete(dev, 1, 1);

Delete(comu, Pos('>', comu), Length(comu)-Pos('>', comu)+1);

end;

Assign (s_or_f, dev);

if Flag then begin

{$I-} Append (s_or_f); {$I+}

if IOResult <> 0 then Rewrite (s_or_f);

end

else Rewrite(s_or_f);

End;

Function Error (comu:string):boolean;

Begin

Error:=False;

if Pos(' ', comu)=0 then

begin

WriteLn('Команда введена неверно!');

Error:=True;

end;

end;

Procedure Spaces (var s:string);

Begin

while Pos(' ', s)<>0 do Delete(s, Pos(' ', s), 1);

while Pos(' ', s)=1 do Delete(s, 1, 1);

if s[Length(s)]=' ' then Delete (s, Length(s), 1);

end;

Procedure Attr(at:byte);

const Ast:array[0..6] of string[5] = (

'-', 'R', 'H', 'S', 'V', '

', 'A');

A16:array[0..6] of byte = (

$00, $01, $02, $04, $08, $10, $20);

var i, i1, i2, i3, i4, i5:integer;

at1:byte;

ss:string[20];

Begin

for i:=0 to 1 do

for



Ваше мнение



CAPTCHA