Процедура или функция Смысл

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) новый

Date: 2015-09-17; view: 389; Нарушение авторских прав