Помогите пожалуйста! Срочно нужен не сложный рисунок в Паскале, что то типа домика и дерева! Надо очень!

1 Январь 0001



Помогите пожалуйста! Срочно нужен не сложный рисунок в Паскале, что то типа домика и дерева! Надо очень!

  • Давно ещё робота рисовал,код правда можно раз в 100 упростить,но мне лень.Может пригодится.

    uses crt,graph;
    var
    gd,gm:integer;
    begin
    gd:=vga;
    gm:=vgahi;
    initgraph (gd,gm,”);
    if graphresult <> 0 then closegraph else
    begin
    setcolor (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.

     







Информатика

Комментарии закрыты.