Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 03.06.2012, 16:05   #1
Kaligyla
 
Регистрация: 03.06.2012
Сообщений: 4
Репутация: 10
По умолчанию Графика в Паскале.

Ув. программисты, помогите с написанием проги для описания движения тела вокруг притягивающего тела. Вот та,на сколько я понимаю,чушь которую я понаписал почитав сей форум:
Код:
program ex1;
var
X0,X,L,dr,dr1:integer;
Y,a,v,B,m,rn:real;
begin
rn:=-exp(ln(L)*3)*m*a/G*M*m
 G:=6.67*exp(ln(10)*(-11));
writeln('m=');read(m);
writeln('a=');read(a);
writeln('B=');read(B);
writeln('m=');read(m);
writeln('L=');read(L);
begin
Uses Grapf,crt;
dr:=Detect;
InitGrapf(dr,dr1);
if GrapfResult <> GrOk then
begin
writeln('grapf error');halt;
end;
X0:=round(GetMaxX/2); Y+round(sqrt(L*L/4);
ellipse(X0,Y;r);
end;
end.
Необходимо,что бы значения масс и ускорения вводились пользователем.Цель программы: графически показать зависимость траектории движения тела от масс его самого и притягивающего центра, и ускорения. Заранее спасибо (если есть предложения выходящие за рамки форума,прошу писать на мыло).

Последний раз редактировалось Stilet; 03.06.2012 в 16:28.
Kaligyla вне форума   Ответить с цитированием
Старый 03.06.2012, 16:19   #2
s-andriano
Профессионал
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,230
Репутация: 563
По умолчанию

Может, Вам вредно читать форумы, если после этого пишете чушь?
Если хотите помощи, напишите подробно, что именно должна делать программа.
s-andriano вне форума   Ответить с цитированием
Старый 03.06.2012, 16:30   #3
Kaligyla
 
Регистрация: 03.06.2012
Сообщений: 4
Репутация: 10
По умолчанию

прога должна вывести окружность не большого радиуса(центр притяжения) и орбиту по которой будет двигаться тело заданной массы и с определенным ускорением

Графика должна строиться на основе 2-го закона Ньютона. Т.е. - rn:=-exp(ln(L)*3)*m*a/G*M*m

Последний раз редактировалось Stilet; 03.06.2012 в 20:06.
Kaligyla вне форума   Ответить с цитированием
Старый 03.06.2012, 16:46   #4
s-andriano
Профессионал
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,230
Репутация: 563
По умолчанию

Исходя из чего определять, каков он - этот небольшой радиус, а также радиус орбиты?
И для чего нужна масса?
s-andriano вне форума   Ответить с цитированием
Старый 03.06.2012, 17:06   #5
Kaligyla
 
Регистрация: 03.06.2012
Сообщений: 4
Репутация: 10
По умолчанию

Небольшой радиус=окружность любого(произвольного(удобного) радиуса),которая всего-навсего
являет собой центр притяжения. Орбита движения 2-го тела строится вокруг первого.
основа задачи-закон всемирного тяготения: am=-GMm/R^3*r, где a-ускорение 2-го тела,m-его масса,G-постоянная= 6.67*exp(ln(10)*(-11)) или 6,67*10^-11,M-масса тела,являющегося центром притяжения, R-расстояние между телами в начальный момент времени,r-радиус-вектор описывающий орбиту движения тела.
Kaligyla вне форума   Ответить с цитированием
Старый 03.06.2012, 18:56   #6
s-andriano
Профессионал
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,230
Репутация: 563
По умолчанию

Ну, во-первых, насколько я понимаю, масса малого тела m у нас сокращается, т.е. она нас не интересует.
Во-вторых, я так понял, единственное, что Вам нужно сделать, это нарисовать две окружности с общим центром. Но для этого нужно знать радиусы этих окружностей, а формул для их вычисления Вы не приводите.
s-andriano вне форума   Ответить с цитированием
Старый 03.06.2012, 19:05   #7
Kaligyla
 
Регистрация: 03.06.2012
Сообщений: 4
Репутация: 10
По умолчанию

две окружности я и сам нарисую). дело не в этом. задача строится по типу Земля-спутник. массы тут никакие не сокращаются-все как раз и зависит от них(ну и от ускорения).

в общем,ввел массу большого тела,маленького,его ускорение, и радиус вектор должен описать траекторию движения маленького тела(спутника) вокруг большого.

подробнее тут http://inf.1september.ru/articlef.php?ID=200600801

Последний раз редактировалось Stilet; 03.06.2012 в 20:04.
Kaligyla вне форума   Ответить с цитированием
Старый 03.06.2012, 20:36   #8
s-andriano
Профессионал
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,230
Репутация: 563
По умолчанию

Тогда не понимаю, что Вам нужно.

Да, Ваша ссылка у меня открывается кракозябрами.
s-andriano вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика в паскале fest123 Паскаль 0 17.01.2011 21:51
Графика в Паскале Денис999 Помощь студентам 1 30.11.2010 22:54
Графика в паскале Aman Паскаль 5 02.10.2010 17:11
Графика на паскале..... КиношкА Помощь студентам 8 10.01.2008 11:09
Графика в Паскале Win't Паскаль 2 16.12.2007 22:54


19:00.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.