arc.pas

Пример программы для процедуры Arc.

Код примера
{Arc.PAS}
 
{ Пример программы для процедуры Arc }
 
Uses Graph;
 
Var  Gd, Gm : Integer;
     Radius : Integer;
 
Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
  If GraphResult <> grOk Then Halt(1);
  For Radius:=1 To 5 Do Arc(100, 100, 0, 90, Radius * 10);
  ReadLn;
 CloseGraph;
End.

Скачать arc.pas


Реклама: