Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана

@альберт12 · Регистрация: 06.06.2012

Author24 — интернет-сервис помощи студентам

Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана. Стороны квадрата должны быть параллельны осям координат экрана. в турбо паскаль

@Puporev · 01.07.2012, 16:40

Pascal

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setcolor(12);
rectangle(x-15,y-15,x+15,y+15);
outtextXY(x-50,20,'Press Enter');
readln;
setfillstyle(1,12);
floodfill(x,y,12);
readln
end.

@альберт12 3 / 3 / 0 Регистрация: 06.06.2012 Сообщений: 79
		1
	Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана 30.06.2012, 15:59. Показов 2735. Ответов 1 Метки нет (Все метки) Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана. Стороны квадрата должны быть параллельны осям координат экрана. в турбо паскаль 0

	01.07.2012, 16:40

Построить и закрасить квадрат со стороной 30 пикселов, центр которого совмещен с центром экрана

Решение