Autors:
Vērtējums:
Publicēts: 16.04.2012.
Valoda: Latviešu
Līmenis: Augstskolas
Literatūras saraksts: Nav
Atsauces: Nav
  • Konspekts 'Programma "Delphi" - 6.laboratorijas darbs', 1.
  • Konspekts 'Programma "Delphi" - 6.laboratorijas darbs', 2.
  • Konspekts 'Programma "Delphi" - 6.laboratorijas darbs', 3.
  • Konspekts 'Programma "Delphi" - 6.laboratorijas darbs', 4.
Darba fragmentsAizvērt

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…

Autora komentārsAtvērt
Atlants