Pascal ABC.Помогите!Нужно нарисовать бабочку.

Question

Pascal ABC.Помогите!
Нужно нарисовать бабочку.

Comments

О боги,опять этот Паскаль...АЗАЗАЗ...а в ФШ можно:?Почему именно в нём?

Answer 1

Uses GraphABC;
var  x,y: integer;
begin
pen.Color:=clRed;
Brush.Color :=clRed;
circle(170,200,30);
circle(230,200,30);
circle(150,150,50);
circle(250,150,50);
Brush.Color :=clGold;
Ellipse(190,110,210,230);
Brush.Color :=clDarkGreen;
Line(200,110,180,80);
Line(200,110,220,80);
circle(200,110,10); 
end.