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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: дипломная работа по юриспруденции, реферат по физкультуре
| Добавил(а) на сайт: Karachjov.

OutTextXY(85,10,'(((((((((((');

SetColor(White);

OutTextXY(90,10,Str2(102-Time2W));

End; kbEnter : Begin

SetColor(LightRed);

OutTextXY(1,30, 'Freeze');

ReadKey;

SetColor(Black);

OutTextXY(1,30, '(((((((((((((');

End; kbTab : Begin

K := -K;

End;

End;

Angle := 0.1;

Draw(White);

Delay(Time2W);

Draw(Black); for A := 1 to 3 do begin

Xn := Round(ctr[1][a] * cos(Angle) + K * ctr[2][a] * sin(Angle));

Yn := Round(-K * ctr[1][a] * sin(Angle) + ctr[2][a] * cos(Angle));

Ctr[1][a] := Xn; Ctr[2][a] := Yn; end;

Draw(White);

DrawText(105,60,Str2(x_c+ctr[1][1]));

DrawText(105,75,Str2(x_c+ctr[2][1]));

DrawText(105,90,Str2(x_c+ctr[1][2]));

DrawText(155,60,Str2(x_c+ctr[2][2]));