/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Stamp2.pas
48 строк
860 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Класс штампа ряда прямоугольников uses GraphABC; type RectangleStamp = class x,y,w,h: integer; constructor (xx,yy,ww,hh: integer); begin x := xx; y := yy; w := ww; h := hh; end; procedure Stamp; begin Rectangle(x,y,x+w,y+h); end; end; RowRectanglesStamp = class x,y,w,h,n: integer; constructor (xx,yy,ww,hh,nn: integer); begin x := xx; y := yy; w := ww; h := hh; n := nn; end; procedure Stamp; begin var r := new RectangleStamp(x,y,w,h); r.Stamp; for var i:=1 to n-1 do begin r.x += r.w + 5; r.Stamp; end; end; end; const n=8; begin var r := new RowRectanglesStamp(30,30,50,50,n); r.Stamp; for var i:=1 to n-1 do begin r.y += r.h + 5; r.Stamp; end; end.