Реферат: Вращение треугольника

ErrCode : Integer;

xn, yn, a : Integer;

Angle : Real;

K : ShortInt;

Procedure VgaDrv; external;

{$L EGAVGA.OBJ }

procedure SetCenter(x_nc , y_nc : integer);

begin

x_c := x_nc ; y_c := y_nc;

end;

Function Str2(Num:Integer):String;

Type S = String;

var P : ^S;

Begin

New(P); Str(Num,P^); Str2 := P^; Dispose(P);

End;

procedure draw(color:integer);

begin

SetColor(Color);

Line(x_c+ctr[1][1],y_c+ctr[2][1],x_c+ctr[1][2],y_c+ctr[2][2]);

Line(x_c+ctr[1][2],y_c+ctr[2][2],x_c+ctr[1][3],y_c+ctr[2][3]);

Line(x_c+ctr[1][3],y_c+ctr[2][3],x_c+ctr[1][1],y_c+ctr[2][1]);

end;

procedure DrawText(XX,YY : Integer; Text : String);

Begin

SetColor(Black);

OutTextXY(XX,YY,'ƒƒƒ');

SetColor(White);

OutTextXY(XX,YY,Text);

К-во Просмотров: 326
Бесплатно скачать Реферат: Вращение треугольника