Question

Напишите в языке Паскаль две звезды пятиконечных по такому принципу-
program dima;
uses GraphABC;
procedure Sn(x,y:integer);
begin
line(x,y,x+100,y+100);
line(x+100,y,x+25,y+75);
line(x,y,x+100,y);
end;
begin
setwindowsize(1000,800);
setpencolor(clblue);
sn(10,20);
setpencolor(clred);
sn(15,200);
end.

Answer 1

Модуль GrahpABC позволит вам побыть в роли художников-оформителей. Сначала все покажется очень трудным, но потом
Познакомьтесь с функциями, которые вам нарисовать точку, отрезок, окружность и прямоугольник.
procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами (x,y) цветом color (точка).

procedure Line(x1,y1,x2,y2: integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

procedure Circle(x,y,r: integer); - рисует окружность с центром в точке (x,y) и радиусом r.

procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.

function PenColor: integer; - возвращает текущий цвет пера.

procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.

type ColorType=integer; - стандартные цвета задаются символическими константами:

clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый

clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный