Mail

В этот день много лет назад...
19 апреля. В 1948 году (76 лет назад) - Москва. I Всесоюзный съезд советских композиторов.

Turbo Pascal Documentation

Функия Pi

     Функция:    Возвращает    значение    числа          Pi
(3,1415926535897932385).
     Описание: Pi
     Тип результата: Вещественный (real).
     Примечания: В зависимости от того, работает ли компиля-
тор  в  режиме  процессора 8087 (80287, 80387), или только в
режиме программного обеспечения, точность может меняться.
     Отличия: В версии 3.0 число Рi представляло собой конс-
танту.

Процедура PieSlice

Модуль Graph

     Функция: Рисует и заполняет цветом сектор круга.  Точка
(Х,Y)  при этом используется в качестве центра окружности, а
сектор рисуется от начального угла до конечного угла.
     Описание: PieSlice(х, у : integer; нач_угол,  кон_угол,
радиус : word)
     Примечания: Контур сектора вычерчивается  текущим  цве-
том,  а  при  закрашивании используются тип и цвет закраски,
заданные процедурами SetFillStyle и SetFillPattern.
     В каждом графическом  драйвере  содержится  коэффициент
относительного удлиннения, который используется в процедурах
Сircle, Аrс и РieSlice. Начальный угол, равный 0 и  конечный
угол, равный 359, задают вычерчивание полной окружности.
     Ограничения: Должен использоваться графический режим.
     Прочее:  См.  также  процедуры  Arc,  Circle,  Ellipse,
GetArcCoods, GetAspectRatio, SetFillStyle, SetFillPatern.
     Пример:

uses Graph;
const
   Radius = 30;
  var
   Gr, Gm : integer;
begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
      Halt(1);
PieSlice(100, 100, 0, 270, Radius);
Readln;
CloseGraph;
end.

Процедура PutPixel

     Функция: Строит элемент изображения) в точке (x,y).
     Описание: PutPixel(x,y : integer; эл_изображ : word).
     Примечания: Строит в (x,y) точку, цвет которой  опреде-
ляется параметром "эл_изобр".
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetImage, GetPixel,  PutIm-
age.
     Пример:
uses Graph;
var
    p  : pointer;
Color : word;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  ig GraphResult <> grOk then
     Halt(1);
  Color := GetMaxColor;
Randomize;
repeat
   PutPixel(Random(100),Random(100),Color); { строит "звездочки" }
   Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.