1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Народ подскажите с чего вообще начать решать..n маятников совершают колебания...учитывать соударение и затухание....может кто нибудь сталкивался с этой задачей раньше или знает где можно найти какую нибудь литературу
Вот в принципе реально рабочая программа этого маятника с введением всех значений от угла отклонения до массы нити. Вопрос заключается в том, что когда внизу идет построение графика охота чтобы еще и была оцифрованная сетка (т.е. декартовая с-а координат), чтобы видеть численный изменения... Пмогите пожалуйста.
{$N+} Uses Graph,Crt; Type type_mayat=record {tip mayatnika} DlinaNiti:real; MassaNiti:real; MassaSharika:real; RadiusSharika:real; a_begin,a_new,a_old:real; J,w0:real; end; Var p_menu:pointer;
Procedure GraphOn; {vklyuchenie graphiki} Var Gd,Gm,ErrorCode:integer; Begin Gd:=detect; initgraph(Gd,Gm,'d:\pascal\bgi'); ErrorCode:=GraphResult; if ErrorCode <> grOk then begin WriteLn('oshibka:'); WriteLn(GraphErrorMsg(ErrorCode)); Halt(1); end; End;
Procedure GraphOff;{Otklu4enie graphiki} Begin CloseGraph; End;
Procedure mayatnik(DlinaNiti_:integer; MassaNiti_,MassaSharika_,RadiusSharika_,a_begin_:real); Begin with main_mayat do begin DlinaNiti:=DlinaNiti_; MassaNiti:=MassaNiti_; MassaSharika:=MassaSharika_; RadiusSharika:=RadiusSharika_; a_begin:=a_begin_; a_new:=a_begin_; J:=(1/3)*MassaNiti*sqr(DlinaNiti)+MassaSharika*(2/5*sqr(RadiusSharika)+sqr(DlinaNiti)); w0:=sqrt(g*(MassaSharika*DlinaNiti+MassaNiti*DlinaNiti/2)/J); {vi4islenie sobstvennoi 4astoti} end; End;