Лабораторная работа: Знакомство с MS-DOS

C:\--\--\--\--\--\x1\rdx11 - удалил каталог x11;

C:\--\--\--\--\--\x1\rdx12 - удалил каталог x12;

C:\--\--\--\--\--\x1\cd .. - поднялся в каталог x;

C:\--\--\--\--\x\rdx1 - удалил каталог x1;

5.C:\--\--\--\--\x\cdx2 - вошёл в каталог x2;

C:\--\--\--\--\--\x2\cda - вошёл в каталог a;

C:\--\--\--\--\--\--\a\cdb - вошёл в каталог b;

C:\--\--\--\--\--\--\--\b\cdc - вошёл в каталог c;

C:\--\--\--\--\--\--\--\--\c\delMOUSE.TXT - удалил один из файлов с расширением txt;

C:\--\--\--\--\--\--\--\--\c\cd \ - вышел в корневой каталог С;

6.C:\cd 104412 - вошёл в каталог 104412;

C:\104412\cd 104412_1 - вошёл в каталог 104412_1;

C:\104412\104412_1\cdChudinov - вошёл в каталог Chudinov;

C:\--\--\Chudinov\cdLab1 - вошёл в каталог Lab1;

C:\--\--\--\Lab1\cdy - вошёл в каталог y;

C:\--\--\--\--\y\cdy1 - вошёл в каталог y1;

C:\--\--\--\--\--\y1\cdy11 - вошёл в каталог y11;

C:\--\--\--\--\--\--\y11\type 104121YR.PAS - открыл один из файлов с расширением pas;

PROGRAM LAB_1_1;

VAR x:real;

FUNCTION tg(x:real):real;

BEGIN

If cos(x)<>0 then tg(x):=sin(x)/cos(x)

else writeln ('----------');

end;

begin

writeln ('-----------');

readln (x);

writeln ('x');