Составьте программу, которая рисует куб (дліна ребра вводится с клавиатуры). Масштаб: 1 клетка - 20 пикселей. PascalABC
uses graphABC;var x,y,a,h,c:integer;beginx:=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.
Весь ответ находится в файле