ООП, определить объект "Закрашенный прямоугольник"

@ProgrammerOnDel · Регистрация: 04.02.2011

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

Используя ООП, определить объект ЗАКРАШЕННЫЙ ПРЯМОУГОЛЬНИК. Отобразить прямоугольник белого цвета в центре экрана. Диагонально переместить его. Изменить цвет на красный.

@Puporev · 11.02.2011, 09:42

Pascal

uses crt,graph;
type Rect=object
          x,y,w,h,c:integer;
          procedure Create;
          procedure Move(xc,yc:integer);
          procedure Clear(xc,yc:integer);
          end;
procedure Rect.Create;
begin
writeln('Vvedite dliny storon:');
readln(w,h);
end;
procedure Rect.Move;
begin
setcolor(c);
rectangle(x,y,x+w,y+h);
setfillstyle(1,c);
floodfill(x+5,y+5,c);
outtextXY(xc-50,2*yc-40,'Press Enter...');
readln;
end;
 
procedure Rect.Clear;
begin
cleardevice;
outtextXY(xc-50,2*yc-40,'Press Enter...');
end;
 
var k:Rect;
    d,m,x0,y0:integer;
begin
clrscr;
k.create;
d:=0;
initgraph(d,m,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
k.x:=x0-k.w div 2;
k.y:=y0-k.h div 2;
k.c:=15;
k.move(x0,y0);
k.clear(x0,y0);
k.x:=2*x0-k.w-10;
k.y:=10;
k.c:=12;
k.move(x0,y0);
end.

@ProgrammerOnDel 16 / 16 / 0 Регистрация: 04.02.2011 Сообщений: 62
		1
	ООП, определить объект "Закрашенный прямоугольник" 10.02.2011, 23:24. Показов 1070. Ответов 1 Метки нет (Все метки) Используя ООП, определить объект ЗАКРАШЕННЫЙ ПРЯМОУГОЛЬНИК. Отобразить прямоугольник белого цвета в центре экрана. Диагонально переместить его. Изменить цвет на красный. 0

	11.02.2011, 09:42

Опции темы

ООП, определить объект "Закрашенный прямоугольник"

Решение