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

[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.

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

[Edison]

Никак не получается добавить цикл в:

Program segment;
uses crt,graph;
var
driver,mode:integer;
x,y:integer;
r,rx,ry:word;
begA,endA:word;
begin
clrscr;
driver:=detect;
initgraph (driver,mode,'d:\bp\bgi');
setcolor (15);
x:=320;
y:=240;
r:=100;
begA:=30;
endA:=150;
arc (x.y.begA,endA,r);
begA:=195;
endA:=347;
rx:=90;
ry:=40;
y:=180;
r:=50;
ellipse (x,y,begA,endA,rx,ry);
begA:=14;
endA:=165;
y:=200;
ellipse (x,y,begA,endA,rx,ry);{эту дугу хотелось бы увидеть штрих-пунктирной}
readln;
end.

Сообщение отредактировано: Edison - 19.01.2009 18:22