как нарисовать сердце в АВСПаскаль?
Ответы на вопрос
Ответил kirill39rus
0
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.
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.
Ответил kirill39rus
0
2 gjkexit
Ответил kirill39rus
0
я изменил немного просто мне надо было подз написать сердце каторое закрашиваеться и забыл убрать закрашивание
Новые вопросы