Графика (шаровой сегмент) Опции

[Edison]

Собствено нужно построить шаровой сегмент.Размерность произвольная.

Добавлено через 13 мин.
Для начала хотел попробывать нарисовать эллипсную дугу,но почему-то не получается:

Program ris;
uses crt,graph;
var
driver,mode:integer;
x,y:integer;
xr.yr:word;
begA,endA:word;
begin
driver:detect;
initgraph (driver,mode,'d:\bp\bgi');
setcolor (4);
x:=100;
y:=200;
xr:=30;
yr:=30;
begA:=20;
endA:=20;
ellipse (x,y,begA,endA,xr,yr);
readln;
closegraph
end.

Появляется чёрный экран и не более.

[volvo]

Вот так, например:

Program ris;
uses crt,graph;

procedure DashedEllipse(X, Y: Integer; StAngle, EndAngle: Word;
          XRadius, YRadius: Word);
const
  angle = 10;
var
  i, n: integer;
  color: integer;
begin
  n := (EndAngle - StAngle) div angle;
  color := GetColor;
  for i := 1 to n do begin { <--- Вот этот самый цикл }
    if odd(i) then setcolor(color) else setcolor(getbkcolor);
    Ellipse(X, Y, StAngle + pred(i) * angle, StAngle + i * angle,
            XRadius, YRadius);
  end;
  setcolor(color);
end;


var
  driver,mode:integer;
  x,y:integer;
  xr,yr:word;
  begA,endA:word;
begin
  driver:=detect;
  initgraph(driver, mode, 'd:\bp\bgi');
  setcolor(white);
  x:=100;
  y:=200;
  xr:=30;
  yr:=30;
  begA:=20;
  endA:=220;
  dashedellipse(x, y, begA, endA, xr, yr);
  readln;
  closegraph
end.