Главная » Free Pascal

Работа с файлами Free Pascal

Добавлено Дата: 27 May, 2014 категория: Free Pascal

В традиционных службах, связанных с документооборотом, термином "файл" (от англ. file) обычно обозначают папку, в которой хранятся документы определен- ного формата. Например, входящие или исходящие письма, анкеты сотрудников организации, ведомости успеваемости студентов и т. п. Именно из этих сфер тер- мин файл и связанные с ним способы хранения и обработки документов перекоче- вали в информатику.

Читать »

Вместо эпилога OpenGL Free Pascal

Добавлено Дата: 26 May, 2014 категория: Free Pascal

Пакет OpenGL насчитывает порядка 250 функций. Около 150 функций пред- ставлены в библиотеках GLU и GLUT. Тот небольшой пласт, который нам удалось продемонстрировать в разделах этой главы, дал вам в руки инструмент, по мощно- сти заметно превосходящий функциональные возможности графической библиоте- ки BGI. Что осталось за границей изложенного материала?

Читать »

Работа с текстовыми файлами Free Pascal

Добавлено Дата: 26 May, 2014 категория: Free Pascal

Обмен с текстовыми файлами очень похож на обмен с консолью (клавиатура +

+ дисплей) и выполняется с помощью тех же процедур read, readln, write, writeln. Единственная особенность заключается в том, что список ввода/вывода начинается с имени файловой переменной, ассоциированной с именем текстового файла:

Читать »

Вычисление наибольшего общего делителя Free Pascal

Добавлено Дата: 25 May, 2014 категория: Free Pascal

Исторически одним из первых рекурсивных алгоритмов является способ вы- числения наибольшего общего делителя (НОД) двух целых чисел, приписываемый Евклиду. Алгоритм Евклида базируется на трех следующих фактах:

± НОД( n1 , n2 ) = НОД( n2 , n1 ). Этот факт сомнения не вызывает;

Читать »

Модуль Math Free Pascal

Добавлено Дата: 25 May, 2014 категория: Free Pascal

Дополнительный набор подпрограмм вычисления элементарных (табл. 13.3) и специальных (табл. 13.4) функций сосредоточен в модуле Math.

Таблица 13.3. Элементарные функции и процедуры модуля Math

Читать »

Данные перечислимого типа Free Pascal

Добавлено Дата: 24 May, 2014 категория: Free Pascal

Перечисления представляют собой упорядоченный список символьных "значений":

Type

rainbow = (red, orange, yellow, green, aqua, blue, purple);

Var

col: rainbow;

В программе переменной col может быть присвоено одно из перечисленных значений:

Читать »

Параметры подпрограмм — двумерные массивы Free Pascal

Добавлено Дата: 24 May, 2014 категория: Free Pascal

В этом разделе мы прокомментируем некоторые приемы передачи и обработки параметров, являющихся двумерными массивами.

Процедура mat_add1 выполняет сложение двух квадратных матриц в традици- онном стиле ранних версий Паскаля (листинг 9.5).

   Листинг 9 .5 .  Процедура  mat_add1                                             

Читать »

Вычисление различных дат в формате TDateTime Free Pascal

Добавлено Дата: 24 May, 2014 категория: Free Pascal

В состав этой группы включены процедуры и функции, обеспечивающие вы- числение дат, соответствующих списку аргументов:

± даты, соответствующей началу того или иного компонента календарной даты;

± даты, соответствующей концу того или иного компонента календарной даты;

Читать »

Графические примитивы языка OpenGL Free Pascal

Добавлено Дата: 23 May, 2014 категория: Free Pascal

Графические примитивы — это простейшие геометрические фигуры, из кото- рых конструируются более сложные плоские и пространственные объекты. В со- став языка OpenGL включены 10 примитивов, полный перечень которых приведен в табл. 16.1.

Структура любого примитива представляет собой набор точек (вершин), задан- ных своими координатами на плоскости или в пространстве и соединенных между собой тем или иным способом. Для объявления любой вершины используется опе- ратор Vertex, к имени которого добавляется два или три символа — Vertex2f, Vertex3i, Vertex4ub, … Первая цифра, добавляемая к имени оператора, указывает, сколько координат содержится в описании вершины: две (x, y), три (x, y, z) или че- тыре (x, y, z, 1). Следующие за ней одна или две буквы определяют машинный формат, в который должны быть преобразованы числовые значения координат:

Читать »

Вычисление факториала Free Pascal

Добавлено Дата: 18 May, 2014 категория: Free Pascal

В большинстве книг по программированию в качестве примера рекурсивной функции демонстрируется программа вычисления факториала, текст которой вы- глядит достаточно компактно:

function fact(n:integer):extended; begin

if n=0 then Result:=1 else Result:=n*fact(n-1);

Читать »

Специфика описания подпрограмм (процедур и функций) Free Pascal

Добавлено Дата: 18 May, 2014 категория: Free Pascal

± Описание процедуры:

procedure имя_проц [(список_формальных_параметров)]; [директивы];

Блок подпрограммы

end;

± Описание функции:

function имя_функ[(список_формальных_параметров)] : тип; [директивы];

Читать »

Управление файлами в стиле Windows Free Pascal

Добавлено Дата: 18 May, 2014 категория: Free Pascal

В режиме совместимости с Delphi система Free Pascal поддерживает доволь- но много процедур и функций по управлению каталогами и двоичными файлами. В большинстве своем новые процедуры используют числовые атрибуты — хэндлы (от англ. handle), которые операционная система присваивает файлам при их соз- дании или открытии:

Читать »

Начальные установки системы GLUT OpenGL Free Pascal

Добавлено Дата: 18 May, 2014 категория: Free Pascal

Большинство руководств, методических пособий и опубликованных книг, так или иначе связанных с OpenGL, рекомендуют начинать пролог с обращения к про- цедуре glutInit, передавая ей адреса двух аргументов — счетчика параметров ко-

мандной строки (@argc) и указателя на строку, содержащую все параметры, вклю- чая и имя запускаемого приложения (@argv). В одном из таких руководств, разме- щенных на сайте Wikipedia, даже приводится пример процедуры на Паскале, из- влекающей нужные данные из командной строки и передающей их процедуре инициализации системы GLUT (листинг 16.1).

Читать »

Структура программы на языке Free Pascal

Добавлено Дата: 17 May, 2014 категория: Free Pascal

Структура программы на языке Free Pascal по форме мало чем отличается от установившихся правил оформления программ в системах Turbo Pascal и в кон- сольных приложениях Delphi (листинг 1.1).

Читать »

Знакомство с простыми программами Free Pascal

Добавлено Дата: 16 May, 2014 категория: Free Pascal

Эта глава предназначена для начинающих изучать Паскаль, и ее без ущерба мо- гут пропустить читатели, изучавшие Паскаль в школе или в институте. Хотя повто- рение — мать учения. Задачи, представленные в этой главе, знакомят читателя с видом программы и некоторыми приемами программирования.

Читать »