Картинка
Квадратное уравнение
|
Примеры программ
|
|
|
uses graph;
var
grdriver,grmode,res:integer;
begin
grdriver:=detect;
initgraph(grdriver,grmode,'');
begin
setfillstyle(1,2);
bar(0,280,640,480); {ground}
setfillstyle(1,7);
bar(320,100,620,400); {house}
setlinestyle(0,1,3);
setfillstyle(1,1);
bar(335,110,415,180); {left window; second flore}
rectangle(335,110,415,180);
setfillstyle(1,8);
bar(430,160,510,210); {midle window; second flore}
rectangle(430,160,510,210);
setfillstyle(1,1);
bar(525,110,605,180); {right window; second flore}
rectangle(525,110,605,180);
setfillstyle(1,1);
bar(335,195,415,265); {left window; first flore}
rectangle(335,195,415,265);
setfillstyle(1,8);
bar(430,245,510,295); {midle window; first flore}
rectangle(430,245,510,295);
setfillstyle(1,1);
bar(525,195,605,265); {right window; first flore}
rectangle(525,195,605,265);
setfillstyle(1,1);
bar(335,280,415,350); {left window; ground flore}
rectangle(335,280,415,350);
setfillstyle(1,1);
bar(525,280,605,350); {right window; ground flore}
rectangle(525,280,605,350);
setfillstyle(1,6);
bar(435,305,505,400); {door}
setlinestyle(0,1,3);
line(500,355,500,370); {handle}
setfillstyle(1,8);
bar(360,80,390,100); {top of stack;left}
bar(345,60,405,80); {bottom of stack; left}
bar(550,80,580,100); {top of stack; right}
bar(535,60,595,80); {top of stack; right}
setfillstyle(1,14);
setcolor(14); {yellow moon}
fillellipse(100,70,60,60);
setfillstyle(1,0);
setcolor(0); {black moon}
fillellipse(145,50,70,70);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(170,80,2,2);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(190,120,2,2);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(240,60,2,2);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(242,110,2,2);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(274,36,1,1);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(310,1,1,1);
setfillstyle(1,15);
setcolor(15); {star}
fillellipse(353,13,2,2);
putpixel(40,170,15); {star}
putpixel(100,160,15); {star}
putpixel(200,210,15); {star}
putpixel(450,40,15); {star}
putpixel(500,10,15); {star}
putpixel(560,50,15); {star}
putpixel(630,170,15); {star}
putpixel(100,200,15); {star}
putpixel(190,10,15); {star}
putpixel(120,60,15); {star}
putpixel(40,170,15); {star}
setfillstyle(1,6);
bar(50,300,70,400); {wood;trunk}
setfillstyle(1,2);
setcolor(10);
fillellipse(60,250,40,100); {wood;top}
setlinestyle(1,1,3);
setcolor(6);
line(60,320,60,200); {wood; head brunch}
line(55,300,40,250); {wood; left brunch}
line(65,250,80,200); {wood; right brunch}
setfillstyle(1,10);
setcolor(10);
fillellipse(250,290,40,60); {bush; main part}
setfillstyle(1,2);
bar(150,310,300,380); {bush; closing part}
end;
readln;
closegraph;
end.
|
|
|
