Sveiki. Kads kas saprot pascal var izpalidzet pascalā ar zīmējumu??
Principa jauzzime putns, bet neizdodas iekrasot abas ellipses, bet parejos vareju iekrasot...
Kods:
Rādīt spoileri
Program putns;
uses graph;
var draiveris,x,y,r, tips:integer;
begin
Draiveris:=detect;
initgraph(draiveris,tips,' ');
writeln(GetMaxX,' ',GetMaxY);
bar(100,80,60,120);
ellipse(105,190,0,360,20,40);
ellipse(295,190,0,360,20,40);
circle(140,100,50);
setfillstyle(1,white);
floodfill(140,100,white);
circle(260,100,50);
floodfill(260,100,white);
circle(200,200,100);
setfillstyle(1,14);
floodfill(200,200,white);
pieslice(180,160,270,360,40);
setfillstyle(1,green);
floodfill(180,160,white);
setfillstyle(1,black);
setcolor(black);
circle(150,110,20);
floodfill(150,110,black);
circle(250,110,20);
floodfill(250,110,black);
readln;
closegraph;
end.
