Помогите пожалуйста! Срочно нужен не сложный рисунок в Паскале, что то типа домика и дерева! Надо очень!
Давно ещё робота рисовал,код правда можно раз в 100 упростить,но мне лень.Может пригодится.
uses crt,graph;vargd,gm:integer;begingd:=vga;gm:=vgahi;initgraph (gd,gm,'');if graphresult <> 0 then closegraph else beginsetcolor (7);rectangle (300,60,340,100);line (312,60,312,45);line (327,60,327,45);circle (312,40,5);circle (327,40,5);setcolor (10);rectangle (295,65,300,90);rectangle (340,65,345,90);rectangle (310,75,315,70);rectangle (325,75,330,70);rectangle (310,85,330,90);line (320,70,320,80);line (297,67,297,88);line (342,67,342,88);line (314,85,314,90);line (326,85,326,90);putpixel (312,72,white);putpixel (327,72,white);line (310,100,310,110);line (330,100,330,110);line (310,110,275,110);line (330,110,365,110);setcolor (6);line (275,110,275,175);line (275,175,280,185);line (280,185,285,175);line (285,175,285,122);line (285,122,294,122);line (365,110,365,185);line (365,185,362,185);line (362,185,362,178);line (362,178,360,178);line (360,178,360,185);line (360,185,356,185);line (356,185,356,122);line (356,122,347,122);setcolor (3);rectangle (294,122,347,200);line (360,110,360,95);circle (360,92,3);line (280,110,280,95);circle (280,92,3);rectangle (310,122,330,200);line (310,140,330,140);line (310,180,330,180);setcolor (darkgray);circle (302,140,3);circle (302,180,3);circle (338,140,3);circle (338,180,3);setcolor (lightgray);rectangle (278,122,280,160);line (338,112,338,119);line (340,112,340,119);line (342,112,342,119);line (363,140,363,160);line (358,140,358,160);line (347,200,347,210);line (294,200,294,210);line (294,210,220,240);line (347,210,421,240);line (220,240,220,258);line (421,240,421,258);line (220,240,421,240);line (220,242,421,242);arc (225,256,180,270,5);arc (416,256,270,360,5);line (225,261,416,261);setcolor (brown);circle (231,252,8);circle (231,252,2);circle (252,252,8);circle (252,252,2);circle (272,252,8);circle (272,252,2);circle (292,252,8);circle (292,252,2);circle (312,252,8);circle (312,252,2);circle (332,252,8);circle (332,252,2);circle (352,252,8);circle (352,252,2);circle (372,252,8);circle (372,252,2);circle (392,252,8);circle (392,252,2);circle (411,252,8);circle (411,252,2);setlinestyle (0,0,3);line (300,202,300,210);line (341,202,341,210);setlinestyle (0,0,0);setcolor (white);line (302,204,339,204);line (302,206,339,206);line (302,208,339,208);end;readkey;end.
10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?
На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?
Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг
Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч
Сколько часов и минут в -1,3ч и -2,75ч
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.