[an error occurred while processing this directive]

<p><!-- --></p>
<p>.сс</p>
<p>5 Расширения языка Паскаль</p>
<p>_______________________________________________________________</p>
<p><!-- --></p>
<p><!-- --></p>
<p>Расширения могут разбиты на несколько категорий. Это новые процедуры, функции и расширения синтаксиса языка. Дополнительные возможности использования аппаратных особенностей ПЭВМ "Агат", прежде всего графики. А также возможность использования в программах фрагментов на ассемблере.</p>
<p>Ниже описываются новые процедуры и функции.</p>
<p><!-- --></p>
<p>5.1 Графические процедуры и функции</p>
<pre>procedure mode(modeNumber : integer);
procedure vdu(byte1, byte2, ...byte64 : integer);
procedure plot(plotOption, x, y : integer);
function  point(xCoord, yCoord : integer) :
integer;</pre>
<p>Все они имеют соответствующие операторы BBC Бейсика. Небольшое отличие заключается в использовании процедуры VDU, в Паскале нельзя вводить данные для VDU через ';'.</p>
<p>Все другие графические команды могут быть сэмулированы с помощью процедуры VDU, ниже приведена программа, описывающая их:</p>
<p>.сс</p>
<p>.ми0</p>
<pre>program graphics(input,output);
{ Define the BBC BASIC graphics functions }
<!-- -->
const
store_= 0;
or_= 1;
and_= 2;
eor_= 3;
not_= 4;
nop_= 5;
<!-- -->
black= 0;
red= 1;
green= 2;
yellow= 3;
blue= 4;
magenta= 5;
cyan= 6;
white= 7;
fBlack= 8;
fRed= 9;
fGreen= 10;
fYellow= 11;
fBlue= 12;
fMagenta= 13;
fCyan= 14;
fWhite= 15;
<!-- -->
procedure move(x, y : integer);
const
moveCode = 4;
begin
plot(moveCode, x, y)
end;
<!-- -->
procedure draw(x, y : integer);
const
drawCode = 5;
begin
plot(drawCode, x, y)
end;
<!-- -->
procedure colour(col : integer)
const
colourCode = 17;
begin
vdu(colourCode, col)
end;
<!-- -->
procedure gcol(plotMode : integer; col : integer);
const
gcolCode = 18;
begin
vdu(gcolCode, plotMode, col)
end;
<!-- -->
procedure clg;
const
clgCode = 16;
begin
vdu(clgCode)
end;
<!-- -->
procedure cls;
const
clsCode = 12;
begin
vdu(clsCode)
end;
<!-- -->
procedure tab(x, y : integer);
const
tabCode = 31;
begin
vdu(tabCode, x, y)
end;
<!-- -->
begni { main }
end.</pre>
<p><!-- --></p>
<p>.нф</p>
<p>Здесь добавлена новая процедура 'tab', которой не было в Бейсике. Она перемещает курсор к указанной позиции.</p>
<p>Процедуры соответствующие всем кодам VDU и PLOT не приведены, так как теперь Вы сможете написать их самостоятельно.</p>
<p><!-- --></p>
<p>5.2 Процедура OSCLI</p>
<p><!-- --></p>
<p>procedure oscli(command : string);</p>
<p>Эта процедура прередает входную строку командному интерпретатору операционной системы (аналогично оператору OSCLI в Бейсике). Тип 'string' определяется как:</p>
<p>type string = packed array[1..len] of char;</p>
<p>Где len, целая константа от 2 до 255. Естественно, строку можно передать в виде:</p>
<p>oscli('cat')</p>
<p>Программа ниже, непрерывно принимает строку от пользователя и посылает ее операционной системе. Заметьте, что не надо ставить символ перевода строки в конце вводимой строки - Паскаль делает это автоматически. Не забудьте, что вызов процедуры oscli('.') приведет к ошибке, так как '.' имеет тип char. Правильным вариантом будет oscli('. ').</p>
<pre>program oscli(input,output);
<!-- -->
.ми0
const
len = 10;
<!-- -->
type
subscript = 1..len;
string = packed array[subscript] of char;
<!-- -->
var
lin : string;
ch : char;
i : integer;
<!-- -->
begin
repeat
lin := '';{Len spaces}
write('Command: ');
i := 1;
while not eoln and (i &lt;= len) do
begin
read(ch);
lin[i] := ch;
i := i + 1
end;
readln;
oscli(lin)
until lin = ''{Len spaces}
end.</pre>
<p>.нф</p>
<p><!-- --></p>
<p>5.3 Множество вызовов операционной системы</p>
<p>function adval(channel : integer) : integer;</p>
<p>function inkey(delay : integer) : integer;</p>
<p>Функции 'adval' и 'inkey' дают тот же самый результат, что и в Бейсике. Так 'inkey' может быть использована для ожидания нажатия любой клавиши или для определения состояния какой-то определенной клавиши. Для получения большей информации обратитесь к руководству "Программирование на Бейсике в среде ОС ОНИКС".</p>
<p><!-- --></p>
<p>5.4 Функции преобразования строк</p>
<p>function ival(str : string) : integer;</p>
<p>function rval(str : string) : real;</p>
<p><!-- --></p>
<p>Эти функции обеспечивают быстрое преобразование между строковыми и численными типами. Строка преобразуется в целое или вещественное значение в функциях 'ival' и 'rval' соответственно. Число воспринимается до первого нецифрового символа. Если строка не начинатся с цифрового символа, выдается сообщение об ошибке, например:</p>
<p>rval('1.23fred') возвращает значение 1.23</p>
<p>ival('fred1') генерирует ошибку</p>
<p><!-- --></p>
<p>5.5 Процедуры работы с файлами</p>
<p>procedure reset(fileName : fileType; externalName : string);</p>
<p>procedure rewrite(fileName : fileType; externalName : string);</p>
<p><!-- --></p>
<p>Эти расширенные версии стандартных процедур 'reset' и 'rewrite' позволяют назначать файлам имена файлов в текущей файловой системы. Первый параметр тотже самый, что и в стандартных вариантах. Второй параметр - имя файла в текущей файловой системе. Например:</p>
<p>reset(infile, 'text1');</p>
<p>rewrite(outfile, 'text2');</p>
<p>Конечно, в качестве строк могут использоваться и переменные, например:</p>
<p>reset(data,usersName);</p>
<p>Заметьте, что имеется два типа файлов:временный и постоянный. Временные файлы имеют имена типа 'pas___0', 'pas___1' и т.д. Они создаются стандартными операторами 'reset' и 'rewrite' и уничтожаются после использования.</p>
<p>Постоянные файлы образуются в результате использования расширенного варианта процедур 'reset' и 'rewrite', и не уничтожаются после завершения программы.</p>
<p>Если вместо имени файла указывается пустая строка, в качестве файла ввода/вывода используется консоль (клавиатура/экран).</p>
<p>При вводе с клавиатуры символ с кодом &amp;80 воспринимается как конец файла (генерируется нажатием f0'').</p>
<p>.ст pascal.5b</p>

[an error occurred while processing this directive]