Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Тurbo Pascal 7+.doc
Скачиваний:
12
Добавлен:
24.12.2018
Размер:
10.09 Mб
Скачать

Список некоторых операций, процедур и функций Паскаля

Приведем список большинства пройденных нами операций и стандартных процедур и функций с указанием типа их параметров (или, по-другому, - аргументов и результата)

Математика

Sqr (А)

Аргумент А - любого числового типа, результат - того же типа, что и А

Sqrt (А)

Аргумент А - любого числового типа, результат - того же типа, что и А

Pi

Значение – вещественное

Frac (A)

Аргумент А и результат – вещественные

Int (A)

Аргумент А и результат – вещественные

Round (A)

Аргумент А вещественный, результат – LongInt

Abs (A)

Аргумент А - любого числового типа, результат - того же типа, что и А

Random

Результат – вещественный

Random (A)

Аргумент А и результат – Word

Randomize

Процедура

A div B

Операнды А и В и результат операции div - только целочисленного типа

A mod B

Операнды А и В и результат операции mod - только целочисленного типа

Модуль CRT

Процедура или функция

Смысл

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 (Is,uzor,tolsh :Word)

Установить стиль линий

SetFillStyle(uzor,color :Word)

Установить стиль заливки

FloodFill(x,y :Integer; granitsa :Word)

Заливка

GetMaxX :Integer

Получи максимальный икс

GetMaxY :Integer

Получи максимальный игрек

GetImage (x1,y1, x2,y2 :Integer; var A1)

Получи изображение

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 (sl,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; si :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)

Новый