Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
Особые предложения 2 Открыть
3,49 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:658707
 
Автор:
Оценка:
Опубликованно: 03.09.2010.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption:=IntToStr(X-x0)+','+IntToStr(y0-Y);
end;
procedure TForm1.Rotate();
var i: integer;
xt,yt: integer;
a: real;
begin
a:=DegToRad(StrToInt(LabeledEdit1.Text));

for i:=1 to 4 do
begin
xt:=Round(x[i]*cos(a)-y[i]*sin(a));
yt:=Round(x[i]*sin(a)+y[i]*cos(a));
x[i]:=xt;
y[i]:=yt;
end;
ToEdit();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Rotate();
Draw();
end;
end.

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация