Programma "Delphi" - 6.laboratorijas darbs

Axnew:=Round(Ax*cos(lenkis*pi/180)-Ay*sin(lenkis*pi/180));
Aynew:=Round(Ax*sin(lenkis*pi/180)+Ay*cos(lenkis*pi/180));
Bxnew:=Round(Bx*cos(lenkis*pi/180)-By*sin(lenkis*pi/180));
Bynew:=Round(Bx*sin(lenkis*pi/180)+By*cos(lenkis*pi/180));
Cxnew:=Round(Cx*cos(lenkis*pi/180)-Cy*sin(lenkis*pi/180));
Cynew:=Round(Cx*sin(lenkis*pi/180)+Cy*cos(lenkis*pi/180));

Form1.Canvas.pen.Color:=CLGREEN;
Form1.Canvas.MoveTo(Round(w/2)+Ax,Round(h/2)-Ay);
Form1.Canvas.LineTo(Round(w/2)+Bx,Round(h/2)-By);
Form1.Canvas.Pen.Color:=CLBLAC…