Составьте программу, которая рисует куб (дліна ребра вводится с клавиатуры). Масштаб: 1 клетка - 20 пикселей. PascalABC

1
uses graphABC;
var x,y,a,h,c:integer;
begin
x:=windowwidth div 2;
y:=round(windowheight*2/3);
a:=150;
h:=40;
{левая грань}
setpencolor(clRed);
line(x,y,x-a+h,y-h);
line(x-a+h,y-h,x-a+h,y-a-h);
line(x-a+h,y-a-h,x,y-a);
line(x,y-a,x,y);
floodfill(x-10,y-h,clRed);
{правая грань}
setpencolor(clBlue);
line(x,y,x+a-h,y-h);
line(x+a-h,y-h,x+a-h,y-a-h);
line(x+a-h,y-a-h,x,y-a);
line(x,y-a,x,y);
floodfill(x+10,y-h,clBlue);
{верхняя грань}
setpencolor(clGreen);
line(x-a+h,y-a-h,x,y-a);
line(x+a-h,y-a-h,x,y-a);
line(x+a-h,y-a-h,x,y-a-2*h);
line(x,y-a-2*h,x-a+h,y-a-h);
floodfill(x,y-a-h,clGreen);
end.

Ответы и объяснения

Лучший Ответ!
  • nemp
  • хорошист
2014-01-14T22:09:25+00:00