Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.05.2012, 20:03   #1
Sunkar1993
Новичок
Джуниор
 
Аватар для Sunkar1993
 
Регистрация: 11.05.2012
Сообщений: 1
По умолчанию Изобразите разносторонний треугольник, вращающийся в плоскости экрана вокруг своего центра тяжести. Центр тяжести - начало координ

Задача такая: Изобразите разносторонний треугольник, вращающийся в плоскости экрана вокруг своего центра тяжести. Центр тяжести - начало координат.

Что-то не разобрался с вращением, подскажите, исправьте, пожалуйста. на PacalABC.
Код:
program treug;

uses crt,GraphABC;

 label m1;
 procedure rast(o,p,u,v:real; var t:real);
 begin
 t:=sqr(o-u)+sqr(p-v);
 end;



var x1,y1,x2,y2,x3,y3,a,a1,b,b1,c,c1:integer;
x,y:integer; ol,i,o,j,m,k,l,gamma,beta,alpha:real;
begin
SetWindowSize(400,400);
line(0,200,400,200);
line(200,0,200,400);
SetPenColor(clRed);


a:=126;
a1:=77;
b:=229;
b1:=153;
c:=245;
c1:=370;
x:=trunc((a+b+c)/3);
y:=trunc((a1+b1+c1)/3);

rast(200,200,a,200,i);
rast(a,200,a,a1,o);
rast(200,200,b,200,j);
rast(b,200,b,b1,m);
rast(200,200,c,200,k);
rast(c,200,c,c1,l);

alpha:=arctan(o/i);
beta:=Pi-arctan(m/j);
gamma:=Pi+arctan(l/k);

ol:=0;

repeat
a:=x+round(i*cos(ol+alpha));
a1:=y+round(i*sin(ol+alpha));
b:=x+round(j*cos(ol+beta));
b1:=y+round(j*sin(ol+beta));
c:=x+round(k*cos(ol+gamma));
c1:=y+round(k*sin(ol+gamma));
Circle(x,y,2);
 SetPenColor(clBrown);
    line(a,a1,b,b1);
    line(b,b1,c,c1);
    line(c,c1,a,a1);
SetPenColor(clWhite);
    line(a,a1,b,b1);
    line(b,b1,c,c1);
    line(c,c1,a,a1);
ol:=ol +0.0001;
    if ol>=2*pi then ol:=0;

    until keypressed;
end.
Sunkar1993 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычисление площади контура и координат его центра тяжести kuy Паскаль, Turbo Pascal, PascalABC.NET 3 16.11.2011 12:36
Поворот изображения вокруг своей оси во время движения по кругу вокруг центра AsaDorius Помощь студентам 1 15.12.2010 21:57
Ордината центра тяжести плоскости круга.(Delphi) Wild_klas Помощь студентам 12 15.10.2010 11:40
Моделирование движения тела под действием силы тяжести AleSS Помощь студентам 0 26.01.2010 16:45