Синтаксис:function EOF(var F) : boolean;Действие:Проверяет, не достигнут ли конец файла (end of file) при чтении из файла, связанного с файловой переменной F. Если указатель чтения достиг конца файла, то функция eof возвращает значение true, в противном случае — false.
Синтаксис:procedure Close(var F) ;Действие:Закрывает файл, связанный с файловой переменной F
Синтаксис:procedure Assign(var F; ИмяФайла: string);Действие:Связывает файловую переменную F с конкретным файлом.
Синтаксис:procedure Append(var F: text);Действие:Открывает существующий файл, связанный с файловой переменной f в режиме добавления в конец файла. При попытке открыть несуществующий файл появляется ошибка времени выполнения программы.
Синтаксис:procedure SetTexStyle{Шрифт, Ориентация, Размер: word);Действие:Устанавливает шрифт, размер и ориентацию текста, выводимогопроцедурами outTextxY и outText. В качестве параметра шрифт можно использовать одну из перечисленных ниже констант.КонстантаЗначение Шрифт DefaultFont0Стандартный. Каждый выводимый символ формируется в квадрате размером 8 на 8 пикселейTriplexFont1Triplex шрифтSmallFont2МелкийSansSerifFont3SansSerif шрифтGothicFont4ГотическийПримечаниеВ шрифтах, отличных от стандартного (DefaultFont), букв русского алфавита нет.Параметр Ориентация задает ориентацию выводимого процедурами outText […]
Синтаксис:procedure SetLineStyle(ТипЛинии: word; Образец: word; Толщина: word) ;Действие:Устанавливает стиль вычерчиваемых контуров и линий (см. процедуры Line, Circle И Др.).Параметр тип линии, в качестве которого обычно используется одна из именованных констант, определяет вид линии.КонстантаТип линииSolidLnСплошная, непрерывнаяDottedLnПунктирная, с постоянной длиной штриховCenterLnШтрих-пунктирная линияDashedLnПунктирная, длина штрихов чуть больше, чем у линии типа DottedLnDashedLnПунктирная, длина штрихов чуть больше, чем у […]
Синтаксис:procedure Rectangle{xl,yl,x2,y2: integer);Действие:Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.
Синтаксис:procedure PutPixel(х,у: integer; Цвет: word);Действие:Окрашивает пиксел, точку с координатами (х,у), цветом цвет. В качестве параметра цвет обычно используют именованнуюКОНСТАНТу.
Синтаксис:procedure PieSlice(х,у: integer; УголНачала,УголКонца, Радиус: word);Действие:Вычерчивает сектор радиуса Радиус с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии окружности (в градусах), которая вычерчивается против часовой стрелки от начальной к конечной точке. Значение угловой координаты возрастает против часовой стрелки. Нулевому углу соответствует горизонтальный отрезок, проведенный из […]
Синтаксис:procedure OutTextXY(x, у: integer; Текст: string);Действие:Устанавливает указатель вывода в точку с координатами (х,у) и выводит строку символов текст, при этом указатель вывода своего положения не меняет, остается в точке с координатами (я, у).Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — процедурой SetTextStyle.