Могилев А.В., Пак Н.И., Хённер Е.К. Информатика

Подождите немного. Документ загружается.

end.

Пример 2. Узор. Используя простейшие геометрические образы строят замечательные

графические изображения. Ниже приведена программа изображения муарового узора,

полученного пересечением двух семейств расходящихся отрезков прямых. Качество и

изображение получаемого узора зависит в основном от трех параметров: kl, k2 - расстояний между

отрезками слева и справа ; h - смещения вниз (вверх) всего семейства.

Программа 30

program uzor;

uses crt, graph;

var gd,gm,errCode,i,kl,k2,h; integer;

begin

kl:=8; k2:=3; h:=110; gd:=Detect; InitGraph(gd,gm.'') ;

errCode:=GraphResult ;

if errCode = grOk then begin

setcolor(green); *

for i:=l to (420 div kl) do

begin line(0,i*kl,640,i*k2+h); line(0,i*k2+h,640,i*kl);

end;

repeat until keypressed; CloseGraph;

end else writeln('errCode=',errCode)

end.

Процедуры построения прямоугольных фигур удобно использовать, в частности, при

построении схем, диаграмм.

Пример 3: программа 31 строит столбчатую диаграмму, наглядно отражающую числовую

информацию о населении 6 крупных городов мира: Токио, Гамбурга, Москвы, Бангкока, Мехико и

Парижа.

Программа 31

program colon;

uses crt,graph;

const m:array[l..6] of real=(11500,2300,9700.5100,12400,8200) ;

name:array[I..6] of

string =('Токио','Гамбург','Москва','Бангкок','Мехико','Париж');.

var gd,gm,k,n,s:integer; st:string[6];

begin

gd:=detect;

initgraph(gd,gm,' ');

setcolor(15);

setlinestyle(0,0,1);

line(60,400,620,400);

line(60,400,60,100) ;

settextstyle(0,0,1);

for k:=l to 12 do begin n:=1000*k; str(n.st);

outtextxy(10,400-20*k-4,st);

line(60,400-k*20,65,400-k*20)

end;

setcolor(14); settextstyle(0,0,2);

outtextxy(120,20, 'Население городов (тысяч)');

settextstyle(0,0,1);

for k:=l to 6 do begin setfillstyle(1,k+2);

bar(100+(k-l)*70,400,100+k*70,round(400-m[k]/1000*20)) ;

outtextxy(100+(k-l)*70+4,450,name[k]) ;

end;

251

repeat until keypressed;

closegraph

end.

Процедура bar3d(xl,yl,x2,y2,d,top) рисует трехмерный столбец, глубина которого

определяется параметром d. Последний параметр процедуры top - логического типа. Если top=true,

рисуется верхнее основание столбика, в противном случае оно не изображается, что позволяет

рисовать столбики один над другим. Диаграммы с трехмерными столбиками красивы, но их

труднее создавать.

Построение графиков функций. Построение графиков функции - неотъемлемая часть

большинства программ, предназначенных для обучения математике, физике. Ниже представлен

пример программы построения графика функции y=x*x*sin(l/x). на произвольном отрезке [а, b].

Количество точек графика (параметр п) также задается произвольно (точка х=0 исключается, так

как в ней функция не определена). В программе также определяются величины tl=(xl-x0)/(b-a) и

t2=(yl-y0)/(2m), которые означают масштабы по осям Х и Y соответственно.

График рассматриваемой функции представлен на двух отрезках [а, b] и [-0.1,0.1]. Чтобы

построить график другой функции, достаточно задать ее аналитический вид в описании функции

(function f).

Программа 32

program grafik;

uses crt, graph;

var gd,gm, errCode : integer; a,b : real; n : integer;

function f(x:real):real;

begin if x<>0 then f:=x*x*sin(l/x);

end;

procedure grafun(xO,xl,yO,yl,n :word;a,b;real);

var h,m,x, tl,t2 : real; i, u,v,xv,yv : word;

begin

h:=(b-a)/n; (поиск максимума f(x)} m:=abs(f (a));

for i:=l to n do if m<abs(f(a+i*h)) then m:=abs(f(a+i*h)) ;

tl:=(xl-x0)/(b-a);

t2:=(yl-y0)/(2*m); (построение координатных осей)

setfillstyle(l,15); bar(x0-5,y0-5,xl+5,yl+5) ;

xv:=round(x0-a*tl); yv:=round((yO+yl)/2) ;

setcolor(l); line(xv,y0,xv,yl);

line(xO,yv,xl.yv) ;

Moveto(xO,yv-round(f(a) *t2)); (установка курсора в начало

графика}

setcolor(3); (построение графика) for i:=l to n do begin

x:=a+i*h; u:=x0+round((x-a)*tl);

v:=yv-round(f(x)*t2); lineto(u,v);

end;

end; (конец процедуры } begin

clrscr; write ('введи a,b и n : '); readln(a,b,n); gd^Detect;

InitGraph (gd,gm, ' ' ) ;

errCode:=GraphResult ;

if errCode = grOk then begin

grafun(100,500,50,300,n,a,b);

grafun(550,620,10,100,200,-0.1,0.1);

repeat until keypressed; CloseGraph;

end else writeln( "ezzCode=' ,errCode)

end.

Для изображения поверхностей, определяемых функцией двух переменных z=f(x,y), можно

использовать разные способы. Одним из них является метод построения семейства одномерных

графиков функции z=f(x.y) от одной переменной х или у различных фиксированных значениях

252

другой. Это может быть хорошей тренировкой для самостоятельной работы по освоению графики.

Построение движущихся изображений. Особую ценность в графике представляет

организация движения фрагментов рисунка. Наиболее просто это сделать по следующему плану:

• нарисовать фрагмент в нужном месте экрана;

• стереть фрагмент, рисуя его цветом фона или используя процедуру cleardevice;

• снова нарисовать фрагмент в другом месте экрана.

Такой способ осуществлен в программе billiard, где два шарика радиусом 5 пикселей

разных цветов двигаются с одинаковой скоростью внутри зеленого прямоугольника, построенного

с помощью процедуры bar.

Процедура blou измеряет смещение центра шарика от сторон прямоугольника по каждой

оси и, если это смещение на следующем шаге цикла станет меньше радиуса, изменяет направление

движения, моделируя поведение упругого шара при ударе о стенку.

В программе также рассмотрена ситуация соприкосновения шариков во время их движения.

Она решается примитивно просто: каждый шарик меняет направление своего движения на

противоположное.

Программа 33

program billiard;

uses crt,graph;

var х,y,dx,dy,gd,gm:integer; xl,yl,dxl,dyl:integer;

procedure blow(a,b:integer; var c,d:integer);

begin if (a<107) or (a>523) then c:=-c;

if (b<107) or (b>363) then d:=-d;

end;

begin

gd:=detect; initgraph(gd,gm,''); setcolor(14);

setlinestyle(0,0,1); rectangle(99,99,531,371) ;

setfillstyle(l,3); bar(100,100,530,370) ;

x:=320; y:=240; dx:=2; dy:°2;

xl:=320; yl:=200; dxl:=-2; dyl:=-2;

repeat circle(x,y,5); setcolor(4); circle(xl,yl,5);

blow(x,y,dx,dy); blow(xl,yl,dxl,dyl); delay(10);

if (abs(x-xl)<=10) and (abs(y-yl)<=10) then begin

dx:—dx; dy:=-dy; dxl:=-dxl; dyl:=-dyl; delay(300)

end;

setcolor(3); circle(х,у,5);

x:=x+dx; y:=y+dy;

setcolor(3); circle(xl,yl,5) ;

xl:=xl+dxl; yl:=yl+dyl; setcolor(14)

until keypressed;

closegraph

end.

Еще один способ организации движения на экране, широко применяющийся в

компьютерных играх, связан с использованием нескольких экранных страниц. В режиме Vgamed

их две, а в режиме Vgalo - четыре. Страницы имеют номера: 0,1,... В любой момент времени одну

из страниц можно сделать видимой и посмотреть ее содержимое на экране с помощью процедуры

setvisualpage(номep). Визуальная страница обычно пассивна, т.е. на ней нельзя выполнять

графические процедуры. Другую страницу можно объявить активной с помощью процедуры

setactivepage(номep). Активная страница невидима для пользователя. На ней можно подготовить

другой рисунок. В следующий момент можно поменять роли страниц, т.е. визуальную сделать

активной и невидимой и на ней рисовать следующий кадр, а бывшую активную сделать

визуальной и показать объект в новом месте экрана.

В программе helicopter с помощью страниц моделируется вращение винтов вертолета. Две

процедуры verti и vert2 подготавливают рисунки вертолета с разным положением винтов.

Изображения выводятся на разные страницы, которые потом по очереди становятся то видимыми,

253

то активными.

В программе организовано также движение вертолета по эллиптической орбите. Центр

орбиты - точка (х0,у0) - располагается в центре экрана, числа а=250 и b=130 -горизонтальная и

вертикальная полуоси эллипса. Положение вертолета на орбите 'вычисляется по формулам

u=x0+round(a*cosp), t=y0+round(b*sinp),

где р - чекущии угол, образованный радиус-вектором точки эллипса с осью абсцисс.

Программа 34

program helicopter;

uses crt,graph;

const step=0.01;

var gd,gm,u,t,z,k,xO,yorc,ac,vi:integer; p,a,b:real;

procedure vertl(x,у:integer) ;

begin

cleardevice; setcolor(14);

setlinestyle (0,0,1); setfillstyle(1,3) ;

line(x+12,y,x+36,y);line(x+24,y,x+24,y+8) ;

fillellipse(x+24,y+14,12,7); moveto(x+18,y+20);

lineto(x,y+20); lineto(x,y+14);

line(x+18.y+28,x+30,y+28); line(x+24,y+27,x+24,y+21) ;

end;

procedure vert2(x,у:integer);

begin

cleardevice; setcolor(14);

setlinestyle(0.0,1); setfillstyle(1,3) ;

line(x+22,y,x+26,y); line(x+24,у,x+24,y+8) ;

fillellipse(x+24,y+14,12,7); moveto(x+18,y+20) ;

lineto(x,y+20); lineto(x,y+14) ;

line(x-3,y+14,x+3,y+14); line(x+24,y+27,x+24,y+21) ;

line(x+18,y+28.x+30,y+28);

end;

begin

gd:=vga; gm:=vgamed; initgraph(gd,gm,' ');

x0:=getmaxx div 2; y0:=getmaxy div 2;

z:=l; p:=pi; a:=250; b:=130; ac:=0; vi:=l;

for k:=l to 800 do

begin u:=x0+round(a*cos(р)); t:=y0-round(b*sin(p));

• setactivepage(ac); setvisualpage(vi);

if z=l then vertl(u,t) else vert2(u,t); z:=-z;

delay(50); p:=p+step; c:=ac; ac:=vi; vi:=c:

end; closegraph

end.

Контрольные вопросы и задания

1. Какие бывают режимы графического экрана?

2. Охарактеризуйте возможности процедур модуля Graph.

3. Какие есть способы построения движущихся изображений?

4. Постройте трехмерные столбчатую и круговую анаграммы для примеров, рассмотренных

в данном параграфе.

5. Изобразите поверхность функции z=Sin(x)+Cos(y), предусмотрев удаление «невидимых

линии».

6. Создайте демонстрационную модель идеального газа в замкнутом объеме.

3.8. ТУРБО-ОБОЛОЧКИ. ВЕРСИИ ПАСКАЛЯ

254

Система программирования Турбо-Паскаль 3.0. После запуска программы turbo.exe на

экране появится меню системы

Logged drive : A

Work fi1е:

Main file:

Edit Compile Run Save eXecute Dir Quit compiler Options

Text: 0 bytes (7BF5-7BF5)

Free: 19472 by tes (7BF6-C806) >

Рис. 3.2. Главное меню Турбо-Паскаля 3.0

Соответствующие команды выполняются при нажатии выделенной большой буквы.

Logged drive: команда «L» осуществляет выбор дисковода: на запрос

(выбор устройства) NEW DRIVE ввести одну из букв от А до Р,

oбозначающую номер дисковода;

Work file: команда «W» осуществляет выбор рабочего файла, на

(рабочий файл) запрос Work file name ввести имя вашего файла;

Main file: команда «М» выбирает основной файл для программ,

(основной файл) использующих директивы $I: аналогична команде «W»;

Edit команда «Е» вызывает текстовый редактор; если не

(редактор) выбран файл, то будет запрос; инструкцию по работе с

редактором см. ниже;

Compile команда «С» осуществляет компиляцию программы,

(компиляция) компиляция проводится в память, режим компиляции (в

СОМ или CHN файлы) меняют по команде «О» (см.

compiler Options );

Run команда «R» запускает откомпилированную или

(запуск) неоткомпилированную программу;

Save команда «S» осуществляет запись рабочего (сохранить)

(сохранить) файла с сохранением предыдущей версии с расширением

.ВАК;

EXecute команда «X» осуществляет вызов и выполнение любого

(выполнять) СОМ-файла;

Dir команда «D» осуществляет просмотр директории

(оглавление файлов);

Quit команда «Q» осуществляет выход из системы; если файл

(прервать) не записан, то будет запрос;

compiler Options команда «О» выбирает режим компиляции

(опции компилятора) с помощью меню

255

(команды «М», «С» и «Н» осуществляют выбор режима

компиляции в память, в corn-файл и в chn-файл

(откомпилированный файл без библиотеки), команда «Q»

возвращает в основное меню)

Описание языка Паскаль, проведенное в §3, соответствует версии 3. Исключение

составляет раздел работы с графикой, в котором использован универсальный модуль Graph для

версий 5 и выше. Таким образом, практически все приведенные в главе примеры могут быть

реализованы в среде Турбо-Паскаль 3 (и, разумеется, в более поздних версиях)

Система программирования Турбо-Паскаль 5.5. Ниже перечисляются основные

расширения возможностей версии Турбо-Паскаля 5.5:

•допускается изменение структуры Паскаль-программы, заголовок программы (program) не

обязателен, разделы глобальных описаний могут следовать в любом порядке;

• расширен синтаксис описания констант, разрешено определять типизированные

константы и производить их инициализацию;

• введены шестнадцатиричные константы;

• расширен список арифметических функций;

• введены типы данных Word, Byte,

• значительно расширен список процедур и функций для работы с файлами и модулями.

Начиная с версии 4.0 в Турбо-Паскале введено понятие модуля (Unit), определены его

составляющие части, а также разрешена раздельная компиляция модулей. Имеются стандартные

модули Crt, Svstem, DOS, Graph, Turbo3. Graph3. Последние модули призваны осуществлять

совместимость с предыдущими версиями.

В системе программирования Турбо-Паскаль версии 5.5 создана интегрированная среда

разработчика, т е ряд специализированных средств и возможностей, объединенных оконным

турбо-меню (контекстное меню). Главное меню интегрированной среды содержит следующие

пункты:

File Edit Run Compile Options Debug Break/watch

Система вступает в диалог с пользователем и предоставляет возможность обратиться к

контекстной помощи в любой момент.

Как правило, работа в среде начинается с загрузки текста программы или с его

формирования в окне редактирования. После редактирования программы осуществляется

компиляция и выполнение, которые выполняются при нажатии клавиш Ctrl+F9 (эквивалентно

выбору команды run из меню Run).

Во время компиляции программы на экране появляется специальное окно, в котором

информируется процесс компиляции. В случае обнаружения ошибки компиляция прерывается и

активизируется встроенный редактор, в котором курсор указывает место ошибки. Клавиша F1 в

этот момент выводит информацию из службы помощи по диагностике ошибки. Исправив ошибку,

можно опять отправить программу на компиляцию. После удачной компиляции программа

выполняется и результаты ее работы можно просмотреть нажатием клавиш Alt+F5. В процессе

компиляции выявляются лишь синтаксические ошибки. Правильность работы программы

необходимо проверять специальными приемами. В интегрированной среде разработчика

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

участков, прерывать выполнение в заданных точках, следить за изменениями значений различных

переменных. Трассировкой называют пошаговое исполнение программы, при котором за один шаг

выполняются все операторы одной строки с последующим ожиданием. Очевидно, что трассировка

эффективнее работает для исходного текста, в котором в строке помещают не более одного

оператора. При этом появляется возможность анализировать результаты работы каждого

оператора в отдельности.

Сеанс отладки обычно начинается с команды Trace into (F*) или Step over (F8) из меню Run.

Выборочная трассировка отдельных участков исходного текста осуществляется с помощью

команд Toggle breakpoint из меню Break/Watch и Go to cursor меню Run, Для наблюдения за

значениями переменных и выражений существует окно просмотра Watch (F6) в меню Debug. В

256

нем отображаются текущие значения выбранного выражения. Сеанс отладки программы

необходимо завершать командой Program reset (Ctrl+F2) из меню Run.

Система программирования Турбо-Паскаль 6.0. Главное меню интегрированной среды

содержит следующие пункты. Е - системное меню;

File - работа с файлами (сохранение, загрузка, связь с операционной системой);

Edit -редактирование текущего файла (стандартные возможности встроенного текстового

редактора);

Search - поиск и замена фрагментов текста;

Run -запуск программы на выполнение;

Compile -компиляция программы:

Options - установка опций интегрированной среды;

Debug - установка параметров отладки программы;

Window - работа с окнами;

Help - система помощи и подсказок.

Версия 6.0 является развитием и усовершенствованием версии 5.5. Существенно

переработана интегрированная среда пользователя. В ней появилась возможность работать в

многооконном режиме, редактируя несколько файлов одновременно. Допускается работа с

«мышью». Существенно улучшен сервис для работы с окнами и с системой помощи Help, которая

контекстно вызывается из любого окна, а в окне Help допустимы некоторые команды

редактирования. Увеличился максимальный размер редактируемого файла и имеется возможность

менять цветовую палитру самой интегрированной среды.

Еще одна возможность, появившаяся в Турбо-Паскале 6.0 - объектно-ориентированное

проектирование программ. Подобная технология стала возможной благодаря новому типу данных

«объект». Объект - это структура данных, содержащая поля данных (подобно записи) различных

типов и заголовки методов. Метод - это процедура или функция, объявленные внутри объявления

элемента типа «объект». Большую популярность среди программистов приобрела объектно-

ориентированная библиотека TurboVision, включающая объекты, управляющие

• перекрывающими окнами с изменяемыми размерами;

• выпадающими меню;

• диалоговыми окнами;

• работой мыши;

• кнопками,полосами скроллинга.

Следует отметить, что сама интегрированная среда Турбо-Паскаля 6.0 разработана с

использованием библиотеки TurboVision.

Система программирования Турбо-Паскаль 7.0. Главное меню интегрированной среды

Турбо-Паскаль 7.0 в дополнение к меню Турбо-Паскаля 6.0 содержит

Tools - инструментальные программные средства.

По сравнению с предыдущей версией в интегрированной среде появилась возможность

настройки компилятора на работу в трех режимах: обычном режиме MS DOS (Real), защищенном

режиме (Protected) и в режиме операционной среды Windows (Windows). Введена новая команда

Object Browser - просмотр модулей, объектов и символов при редактировании исходного текста.

Появилось удобное средство - синтаксическая подсветка, которая обеспечивает подсвечивание

управляющих структур, зарезервированных слов, идентификаторов, строк и т.п. Новая секция

меню Tools предназначена для передачи управления внешним программам и создания

собственных инструментальных программных средств. Нажатие клавиш Alt+Fl (или правый

щелчок мыши) активизирует локальные меню, чувствительные к контексту (Browse, Edit, Help,

Message, Watch).

В версии 7.0 расширена библиотека стандартных модулей. Помимо известных в версии 6.0

модулей Crt, Graph, Graph3, Overlay, String, System, Turbo3 появились WinAPI, WinCrt, WinDos,

WinPrn, WinTypes, WinProcs.

Контрольные вопросы

1. В чем состоят основные различия версий Турбо-Паскаля?

257

2. Какие возможности версии Турбо-7.0 отсутствуют в предыдущих версиях?

3.9. РУКОВОДСТВО ПОЛЬЗОВАТЕЛЮ ТУРБО-ПАСКАЛЯ

СТАНДАРТНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ

Принятые обозначения:

type -любой тип;

string - любой строковый тип;

file -любой файловый тип;

scalar - любой простой тип;

pointer -любой ссылочный тип.

Замечание: если в списке параметров не указан спецификатор типа, то в качестве данного

параметра процедура допускает параметр любого типа; в некоторых процедурах допускаются

несколько вариантов заголовков процедур.

ПРОЦЕДУРЫ ВВОДА-ВЫВОДА

Процедура Read

•

Read(var F:file of type; var v:type);

Read(var F:text; var I':intnger);

Read(var F:text; var R:real);

Read(var F:text; var C:char);

Read(var F:text; var S:string);

где F - имя переменной файлового типа, a var I,R,C,S - одна или несколько переменных,

совпадающих по типу с типом элементов файла.

Процедура Readln

Readln(var F:text; var varl,var2,...varN);

Readln(var varl ,var2,...varN);

Readln(var F:text);

Readln;

где F - имя переменной типа text, a varl...varN - переменные типа Char. Если опущено имя

файла, то по умолчанию принимается имя типа INPUT. Если опущея список переменных, то

происходит переход на другую строку.

Процедура Write

Write(var F:file of type; var v:type);

Write(var F:text; var I:integer);

Write(var F:text; var B:boolean);

Write(var F:text; var C:char);

Write(var F:text; var S:string).

Процедура Writeln

Writeln(var F:text; var varl ,var2,... varN);

Writeln(var var varl ,var2,... varN);

Writeln(var F:text);

Writeln.

СТАНДАРТНЫЕ ФУНКЦИИ

Функции арифметические

Abs(x); Arctan (x); Cos (x); Exp (x); Ln (x); Sin (x); Sqr (x); Sqrt (x)

имеют стандартный смысл. Функция

fruc(R:Real):Real;fruc(I:Integer):Real

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

258

Функция

int (R:real):real; int (I:integer):real;

возвращает значение целой части своего аргумента.

Функции скалярные

Odd(x); Pred(x); Succ(x)

имеют стандартный смысл.

Функции преобразования

Chr (x); Ord (x); Round (x); Trunc (x) имеют стандартный смысл.

СТРОКОВЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ

Процедура Delete(var S:Strina;Pos, Len: Integer) убирает из строки S Len символов, начиная

с Pos. Если Len больше длины S, то ничего не происходит. Если Pos+Len больше длины строки, то

удаляются все символы до конца строки.

Процедура Insert(S:String; var D:String;Pos:Integer) вставляет строку S в строку D перед

символом с номером Pos. Если Pos больше длины D, то S и D соединяются. Если длина результата

при этом больше максимальной длины D, то в D записываются только самые левые символы.

Процедура Str(I:Integer; var S: String); Str(R:Real; var S:String) преобразует I или R из числа

в строку и записывает эту строку в S, причем R и I могут записываться формально, т.е. как в

процедурах Write и Writeln.

Процедура Val(S:String; var R:Real; var P:Integer); Val(S:String; var I,P:Integer) преобразует

строковую переменную S в число (тип зависит от типа переменной I или R соответственно). Если

в строке S ошибок нет. то Р равно 0, иначе значение R (или I) не определено, а Р присваивается

номер первого ошибочного символа.

Функция Concat(Sl,S2,....Sn:string):String возвращает строку, полученную конкатенацией

строк Sl,...,Sn. Если длина результата больше 255, то возникает ошибка времени выполнения.

Функция Copy(S:String; Pos,Len:Integer):String возвращает строку, полученную из Len

символов строки S, начиная с позиции Pos. Если Pos больше, чем длина строки S, то возвращается

пустая строка. Если Pos+Len больше, чем длина строки S, то возвращаются только символы,

принадлежащие строке S.

Функция Length(S:Strina):Integer возвращает длину строки S.

Функция Pos(Pattern,Sourse:String):Integer возвращает номер символа, начиная с которого

Pattern входит в Sourse. Если вхождения нет, то возвращается 0.

ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С ФАЙЛАМИ

Процедура Assign(var F:File: Name:String); Name - имя файла на диске, F – имя файловой

переменной. После выполнения этой процедуры Name и F отождествляются. Assign не должна

применяться к файлу, находящемуся в употреблении.

Процедура BlockRead(var F:File; var Dest:Type; Num:Integer)

F -нетипизируемый файл, Dest -переменная,

Num - количество 128-баитных записей, которые должны быть перенесены из дискового

файла в переменную.

Процедура BlocKWrite(var F:File; var Dest:Type; Num:Integer) I Num - количество 128-

баитных записей, которые должны быть перенесены из переменной в дисковый файл.

Процедура Chain(var F:File) активизирует CHN-файл, с которым предварительной

процедурой Assign было отождествлено имя F.

Процедура Close(var F:File); дисковый файл, отождествленный с переменной F,

закрывается и в директорию диска вносятся необходимые изменения.

Процедура Erase(var F:File); дисковый файл, отождествленный с переменной F,

уничтожается.

Процедура Execute(var F:File) загружает и выполняет файл с диска, с которым

предварительно процедурой Assign было отождествлено имя F.

Процедура Rename(var F:File; Name:String); дисковому файлу, отождествленному с

переменной F, присваивается новое имя Name. Rename не должна применяться к уже открытому

файлу.

Процедура Reset(var F:File) открывает файл F для чтения и ставит указатель на начало

файла.

259

Процедура Rewrite(var F:File) открывает файл F для записи, чистит его и ставит указатель

на начало файла.

Процедура Seek(var F:File of type; Pos:Integer) устанавливает указатель файла F на Pos

элемент файла.

Процедура Flush(var F:File) очищает буфер дискового файла, отождествленного с

переменной F. Гарантирует, что следующая операция чтения будет произведена непосредственно

с диска. Должна применяться к уже закрытым файлам.

Функция Eof(var F;File):boolean возвращает TRUE, если найден конец файла.

Функция Eoln(var F:Text):boolean возвращает TRUE, если найден конец строки или конец

файла F.

Функция Filepos(var: F: File of Type):Integer; Filepos(var: F:File):Integer возвращает

текущую позицию указателя файла.

Функция Filesize(var: F: File ofType):Integer; Filesize(var: F:File):Integer возвращает текущее

количество элементов файла.

ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ СО ССЫЛОЧНЫМИ СТРУКТУРАМИ

Процедура Getmem(var P:Pointer; I:Integer) отводит под область памяти, на которую будет

ссылаться переменная Р, 1 байт памяти.

Процедура Mark(var P:Pointer) запоминает текущий указатель «кучи» в переменной Р.

Процедура New(var P:Pointer) отводит место в памяти под переменную того типа, на

который указывает Р.

Процедура Release(var P.Pointer) ставит указатель «кучи» на значение переменной Р.

Переменная Р должна быть предварительно обработана процедурой Mark. Уничтожаются все

динамические переменные, расположенные в памяти после последнего вызова процедуры Mark.

Функция MemAvai:Integer возвращает размер доступной для динамических переменных

памяти.

Функция Ord(P:Pointer):Integer возвращает адрес переменной ссылочного типа Р.

Функция Ptr(I:Integer):Rointer возвращает ссылку на адрес памяти I.

ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ТЕКСТОВЫМ ЭКРАНОМ

Процедура CrtExit - выдача на экран строки сброса экрана, определенной в инсталляторе.

Процедура Crtlnit - выдача на экран строки инициализации экрана, определенной в

инсталляторе.

Процедура CIrEol уничтожает символы строки от курсора до крайнего правого символа без

перемещения курсора.

Процедура CIrScr очищает экран.

Процедура DelLine - удаление строки, на которой находится курсор, и сдвиг всех строк,

находящихся ниже этой строки, на одну вверх.

Процедура GotoXY (X,Y:Integer) - позиционирование курсора по координатам XnY.

Процедура InsLine - вставка пустой строки на место курсора и сдвиг всех строк,

находящихся под этой строкой на одну вниз.

ПРОЧИЕ ПРОЦЕДУРЫ И ФУНКЦИИ

Процедура Bdos(func,param:Integer) - вызов функции Bdos с номером func, которая

заносится в регистр С, и параметром param, который заносится в регистровую пару DE.

Процедура BIOS (func,param:Integer) - вызов функции Bios с номером func и параметром

param. который заносится в регистровую пару ВС.

Процедура Delay (Ms:Integer) - задержка программы на Ms миллисекунд.

Процедура FillChar(var dest; length:Integer;data:Char); FillChar(var dest;

length:Integer;data:Byte) - заполнение length байт памяти величиной data. Начало участка

памяти - адрес переменной dest.

Процедура Halt - аварийный выход из программы.

260