Помогите с графикой в Pascal
Надо в паскале (PascalABC.NET) сделать рисунок (солнце) который будет последовательно появлятся последовательно. Можно ли написать прогу без ввода всех этих координат (я имею ввиду последующих изображений, т. к. они по сути одинаковы
Program samle1;
uses GraphAbc;
var x,y,x2,y2: integer;
begin;
SetWindowSize(550,450);
Line(50,50,75,75);
Line(100,50,100,75);
Line(150,50,125,75);
Line(50,100,75,100);
Line(150,100,125,100);
Line(50,150,75,125);
Line(100,150,100,125);
Line(150,150,125,125);
Circle(100,100,25);
Ellipse(88,89,97,103);
Ellipse(100,89,109,103);
Line(88,110,100,115);
Line(110,110,100,115);
end.
Program samle1;
uses GraphAbc;
begin;
SetWindowSize(550,450);
Line(50,50,75,75);
Line(100,50,100,75);
Line(150,50,125,75);
Line(50,100,75,100);
Line(150,100,125,100);
Line(50,150,75,125);
Line(100,150,100,125);
Line(150,150,125,125);
Circle(100,100,25);
Ellipse(88,89,97,103);
Ellipse(100,89,109,103);
Line(88,110,100,115);
Line(110,110,100,115);
end.
Конечно. Используйте циклы.
Нужно заменить все цифры отвечающие за координаты по горизонтали на какую нибудь переменную и в цикле каждый раз эту переменную увеличивать