Нарисовать конус, заполненный наполовину водой - Pascal ABC

Формулировка задачи:

68. Нарисовать конус, заполненный на половину водой.

Код к задаче: «Нарисовать конус, заполненный наполовину водой - Pascal ABC»

textual
uses graphABC;
var  x,y,r,h:integer;
begin
setwindowsize(500,500);
centerwindow;
x:=250;
y:=375;
line(x,y,x-100,y-200);
line(x,y,x+100,y-200);
ellipse(x-100,y-230,x+100,y-170);
setbrushcolor(clAqua);
ellipse(x-58,y-135,x+58,y-95);
floodfill(x,y-10,clAqua);
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ