Sound (A:Word) звук
NoSound нет звука
Delay (A:Word) отсрочка
ReadKey:Char читай клавишу
KeyPressed:Boolean клавиша нажата
TextColor (A:Byte) цвет текста
TextBackground (A:Byte) цвет фона
ClrScr очистка экрана
GotoXY (X,Y:Byte) иди к икс игрек
Модуль Graph
InitGraph (d,m:Integer; path:String) инициализация графики
CloseGraph закрытие графики
PutPixel (x,y:Integer; color:Word) поставь пиксел
GetPixel (x,y:Integer):Word получи пиксел
Line(x1,y1, x2,y2:Integer) отрезок прямой линии
Rectangle (x1,y1, x2,y2:Integer) прямоугольник
Bar (x1,y1, x2,y2:Integer) залитый прямоугольник
Bar3D (x1,y1, x2,y2:Integer; tol:Word; top:Boolean) параллелепипед
Circle (x,y:Integer; r:Word) окружность
Arc (x,y:Integer; fi1,fi2,r:Word) дуга окружности
PieSlice (x,y:Integer; fi1,fi2,r:Word) кусок пирога (залитый сектор круга)
Ellipse (x,y:Integer; fi1,fi2, rx,ry:Word) эллипс
Sector (x,y:Integer; fi1,fi2, rx,ry:Word) залитый сектор эллипса
FillEllipse (x,y:Integer; rx,ry:Word) залитый эллипс
SetColor (color:Word) установить цвет линий
SetLineStile (ls,uzor,tolsh:Word) установить стиль линий
SetFillStyle(uzor,color:Word) установить стиль заливки
FloodFill(x,y:Integer; granitsa:Word) заливка
GetMaxX:Integer получи максимальный икс
GetMaxY:Integer получи максимальный игрек
GetImage (x1,y1, x2,y2:Integer; var A[12]) получи изображение
|
|
PutImage (x1,y1:Integer; var A; mode:Word) помести изображение
ImageSize (x1,y1, x2,y2:Integer) размер изображения
OutTextXY (x,y:Integer; stroka:String) вывод текста
SetTextStyle (shrift,napravl,razmer:Word) установи стиль текста
SetUserCharSize (A,B, C,D:Word) установи пользовательский размер символов
Модуль DOS
GetTime (var chas,min,sec,sotki:Word) получи время
SetTime (chas,min,sec,sotki:Word) установи время
GetDate (var god,mes,den,dennedeli:Word) получи дату
SetDate (god,mes,den:Word) установи дату
Работа со строками
Pos (s1,s:String):Byte позиция
Length (s:String):Byte длина
Copy (s:String; a,b:Integer):String копируй
Delete (var s:String; a,b:Integer) удаляй
Insert (var s:String; s1:String; a:Integer) вставляй
Работа с файлами
Assign (var f: Text; filename:String) упрощенно присвоить
Rewrite (var f: Text) упрощенно переписать
Reset (var f: Text) упрощенно переустановить
Close (var f: Text) упрощенно закрыть
Append (var f: Text) добавить
Прочие
Chr (A:Byte):Char символ
GetMem(P:Pointer; razmer:Word) выдели память
New (var p: Pointer) новый