1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
записать константы в како-либо файл, а потом прочитать от туда перед вычеслениями
program znachenia; const h=10; g=9.8; m=4; l=15; v=10; p=1000; c=2; k=3; var tm,fi0,fi1,w1,w0,t,dt:real; j:integer; f,e:text; begin dt:=0.00001; tm:=20; fi0:=pi/6; w0:=0; assign(f,'dta'); rewrite(f); assign(e,'atd'); rewrite(e); while t<tm do begin if cos(fi0)<=(h/l) then begin w1:=w0+(dt/sqr(l)/m)*(-c*fi0-m*g*sin(fi0)*l); fi1:=fi0+w0*dt; fi0:=fi1; w0:=w1; t:=t+dt; end else begin w1:=w0+(dt/m/sqr(l))*(-c*fi0-m*g*sin(fi0)*l-k*w0*sqr(l)); fi1:=fi0+w0*dt; fi0:=fi1; w0:=w1; t:=t+dt; end; j:=j+1; if j mod 100000=0 then begin writeln(e,t,' ',fi1); writeln(f,t,' ',w1); j:=0; end; end; close(f); close(e); end.
Как я писал, для твоего чтения не подходит никак. Чтение переделала - переделывай файл. Хотя ТАК читать немного странно.. Я надеюсь, речь идет не о том, что я сделал опечатку в слове ReadLn, которую заметил amega? Мне кажется, то, что я написал должно работать.. Может попробуешь еще разок? И если не получится - покажи.
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
странно он не хотел работать, а щас написала и он заработал))))спасибо..а можно еще воросик, а в модули если оформлять, это долго и сложно или там чуток нужно добавить??
Раскидать на процедуры наверно...и ,нет, там совсем чуть чуть кода меняется,если оформлять через процедуры и функции.Но уж чего чего а через юниты врятли тут надо.
Цитата
В юниты выделяются процедуры или функции (как правило).
Не знаю,возможно я заблуждаюсь,но в юниты, как мне кажется, выделают либо процедуры,которые можно применять в нескольких программах,либо для уменьшения грамосткости основной программы, ни то ни то здесь,на мой взгляд не нужно, самое оптимальное на процедуры раскидать,как ты сказала
Цитата
отдельно построение графика, разлиновка, сами вычисления
видимо отдельно построение графика, разлиновка, сами вычисления..
Кукла, это в принципе правильная идея, но я (и Krjuger) уже сказал: для выделения чего-то в юнит это что-то должно быть оформлено в виде процедуры/функции. Так что начни с того, что разбей на логически обособленные действия и оформи их как п/ф. После этого можно будет выделить их в отдельный юнит - это несложно, и мы поможем. Еще там встанет вопрос о том, какие переменные относить к юниту, но это по ходу дела.
Сечешь фишку? Оформи отдельные логические действия как п/ф. Угу?
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой