Кто разбирается в инфе? Задали нарисовать елку с елочными шариками вот начало: Program elka; Uses graphabc; Begin Setwindowsize(900,800); floodfill(300,150, clgreen); SetPenColor(clBlack); SetPenWidth(2); Line(250,50,200,150)...
Кто разбирается в инфе?
Задали нарисовать елку с елочными шариками
вот начало:
Program elka;
Uses graphabc;
Begin
Setwindowsize(900,800);
floodfill(300,150, clgreen);
SetPenColor(clBlack);
SetPenWidth(2);
Line(250,50,200,150);
Line(250,50,300,150);
Line(200,150,220,150);
Line(300,150,280,150);
Line(220,150,190,210);
End.
Дальше не могу сама
Помогите пожалуйста!!!
Гость
Ответ(ы) на вопрос:
Гость// альтернативный вариант
Uses GraphABC;
Begin
SetWindowSize(900,800);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
Не нашли ответ?
Похожие вопросы