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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2010, 08:21   #1
manuk
 
Регистрация: 15.03.2010
Сообщений: 6
По умолчанию маятник, объяснить

здорова парни
помогите пожалуйстя объяснить прогу)))
прога у меня качающийся маятник

Код:
#include<stdio.h>
#include<graphics.h>
#include<iostream.h>
#include<dos.h>
#include<math.h>

int r1=40,x=500,y=0;
double m1,m2;
int v1=2,v11,v2,f;
int l=400,xo,yo;
double i,a = M_PI/3;
int main()
{
int gd=6,gm=1;
initgraph(&gd,&gm,"");

xo=x-sin(a)*l;
yo=y+cos(a)*l;
setcolor(15);
line(xo,yo,x,y);
setfillstyle(1,10);
fillellipse(xo,yo,r1,r1);//рисуем первый кружок

getch();//ждем нажатия клавиши
while(a>0){
for(i=0;i<2*a+M_PI/180;i+=M_PI/180)
{
    setfillstyle(1,0);
    setcolor(0);
    line(xo,yo,x,y);
    fillellipse(xo,yo,r1,r1);

    xo=x-sin(a-i)*l;
    yo=y+cos(a-i)*l;

    setcolor(15);
    line(xo,yo,x,y);
    setfillstyle(1,10);
    fillellipse(xo,yo,r1,r1);

    delay(10);
}
for(i=0;i<2*a-M_PI/180;i+=M_PI/180)
{
    setfillstyle(1,0);
    setcolor(0);
    line(xo,yo,x,y);
    fillellipse(xo,yo,r1,r1);

    xo=x+sin(a-i)*l;
    yo=y+cos(a-i)*l;

    setcolor(15);
    line(xo,yo,x,y);
    setfillstyle(1,10);
    fillellipse(xo,yo,r1,r1);

    delay(10);
}
a=a-2*M_PI/180;
}

getch();//ждем нажатия клавиши
closegraph();//закрываем графическую библиотеку
}
manuk вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Параметрический маятник Talker6 Помощь студентам 13 03.05.2010 18:18
Моделирование (маятник) alexmikt Общие вопросы C/C++ 0 21.04.2010 23:01
маятник manuk Общие вопросы C/C++ 3 20.04.2010 21:32
Математический маятник StudeHt Помощь студентам 0 15.03.2010 16:48
Маятник SuperEgo Помощь студентам 3 15.06.2007 10:03