Как нарисовать сердце в АВСПаскаль?

Question

Как нарисовать сердце в АВСПаскаль?

Answer 1

program serdce;
uses graphABC,crt;
var dx,dy,xc,x1,y1:integer;
begin
 hidecursor;
 setpencolor(clblue);
 setpenwidth(6);
 line(300,300,150,150);
   line(150,150,150,100);
    line(150,100,180,80);
     line(180,80,210,80);      
line(210,80,300,130);  
    line(300,130,390,80);
       line(390,80,420,80);  
      line(420,80,450,100);      
    line(450,100,450,150);        
   line(450,150,300,300);      
     floodfill(190,130,clred);  
 xc:=windowwidth div 2;  
end.

Comments

2 gjkexit

---

я изменил немного просто мне надо было подз написать сердце каторое закрашиваеться и забыл убрать закрашивание