/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Stamp5.pas
41 строка
754 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 TriangleStamp = class x,y,w,orient: integer; constructor (xx,yy,ww,o: integer); begin x := xx; y := yy; w := ww; orient := o; end; procedure Stamp; begin MoveTo(x,y); var dx := w; var dy := w; case orient of 2: dx := -dx; 3: dy := -dy; 4: begin dx := -dx; dy := -dy; end; end; LineTo(x+dx,y); LineTo(x,y+dy); LineTo(x,y); end; procedure MoveOn(dx,dy: integer); begin x += dx; y += dy; end; end; begin var r := new TriangleStamp(200,200,100,1); r.Stamp; r.orient := 2; r.Stamp; r.orient := 3; r.Stamp; r.orient := 4; r.Stamp; end.