• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Анимация

  • Автор темы BuTeK
  • Дата начала
Статус
Закрыто для дальнейших ответов.
B

BuTeK

Уважаемые программисты !
Как сделать чтобы данная фигура (прямоугольный треугольник) вращался на 360 градусов ? Размеры прямоугольного треугольника любые !
 

Вложения

  • untitled.JPG
    untitled.JPG
    2,3 КБ · Просмотры: 491
B

BurcevD

Вращаться как вокруг оси? или как?
 
B

BuTeK

Да ! ну вот напримет как эта фигура
 

Вложения

  • taisnsturis1_1.gif
    taisnsturis1_1.gif
    3,8 КБ · Просмотры: 511
B

BurcevD

Вот держи
Код:
uses Graph, Crt; //Подключаемые модули

var
Gd, Gm: Integer; //Переменные для инициализации графики
al:Integer; //Переменная для угла от 0 до 359
x,y:Integer; //Переменная для вращающейся точки
begin
//Инициализируем графику
Gd := Detect;
InitGraph(Gd, Gm, '..\bgi');
if GraphResult <> grOk then Halt(1);
//Угол равен 0
al:=0;
//Цикл пока не нажата любая клавиша
repeat
//Увеличиваем угол на 1
Inc(al);
if al>359 then al:=0;
//Стираем старую линию
SetColor(0);
Line(320,200,x,y);
line(320,260,x,y);
//Вычисляем координаты новой линии, где 100 - это радиус по Х
x:=320+Round(sin(al*Pi/180)*100);
//30 - это радиус по У
y:=200+Round(cos(al*Pi/180)*30);
//Рисуем новый треугольник
SetColor(15);
Line(320,200,x,y);
line(320,260,x,y);
Line(320,100,320,350);
//Задержка, в миллискенудах (по иде)
Delay(1000);
until keypressed;
//Закрываем графический режим
CloseGraph;
end.
 
B

BuTeK

Большое спасибо !

(Огромное спасибо за пояснения)
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!