IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> !HELP! 2 графика по данным из файлов !HELP!, мозг кипит...помогите
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Ольга

Репутация: -  0  +



program gjhg;
uses graph;
const n=100;
h=10;
g=9.8;
m=4;
l=15;
v=10;
p=1000;
c=2;
k=3;
var driver,mode,i,,j:integer;
var tm,fi0,fi1,w1,w0,t,dt:real;
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 sin(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 1000=0 then
begin
writeln(e,t,fi1);
writeln(f,t,w1);
j:=0;
end;
end;
close(f);
close(e);
end.


далее нужно строить график, помогите разобраться...если можно то прям щас smile.gif blush.gif

Сообщение отредактировано: Zopaa -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Zopaa   !HELP! 2 графика по данным из файлов !HELP!   29.05.2009 2:25
amega   График с файла   29.05.2009 2:57
Zopaa   я это видела, но что-то у меня не получается...он …   29.05.2009 3:01
Krjuger   А ты выложи весь код уже с графикой,а то каким обр…   29.05.2009 3:15
Zopaa   я творила творила, и закрыла не сохроняя..   29.05.2009 3:18
Zopaa   program gjhg; uses graph; const n=100; xgm…   29.05.2009 19:38
Zopaa   ну кто-нибудь...ну не получается у меня...   30.05.2009 3:26
Krjuger   Ну ты хоть напиши,что имено не работает,не запуска…   30.05.2009 3:34
Zopaa   ну в программе видно, в файл f записывается t и w1…   30.05.2009 3:43
Lapp   Дорогая Zopaa (кхм..), очень тебе не повезло с ник…   30.05.2009 8:47
Lapp   Уважаемая Zopaa, объясни еще раз - чего ты хочешь?…   30.05.2009 10:00
Krjuger   В нем все так,но как я понял ей надо график на гра…   30.05.2009 16:07
Zopaa   во-первых я не могу сооброзить как построить второ…   30.05.2009 16:34
Krjuger   Вообще главная задача программы,чтобы работала,нас…   30.05.2009 20:17
Lapp   насчет красиво,тогда поясни,что в твоем понимании …   31.05.2009 10:40
volvo   Это что за фигня? Нет мерцания в граф. режимах... …   30.05.2009 20:24
Krjuger   Дадада,убрал,просто отаблицу самому было ленно пи…   30.05.2009 20:35
Krjuger   Lapp,ну знаеш ли,мой ник тоже не блещет красотой,а…   31.05.2009 14:56
sheka   привликает к ней внимание. :lol: :blum: смайлы…   31.05.2009 15:35
Krjuger   Ну как я понял она в первом куске вычисляет коорди…   31.05.2009 15:41
sheka   .... , разделяй программу на логические блоки - пр…   31.05.2009 16:00
Lapp   вмонтировать графические файлы в ехеЧто ты имеешь …   31.05.2009 16:09
sheka   Что ты имеешь в виду под графическими файлами?.. …   31.05.2009 16:36
volvo   Очень просто, так же, как и вмонтировать драйверы …   31.05.2009 16:11
volvo   Разбирайся: http://volvo71.narod.ru/faq_folder/bgi…   31.05.2009 16:44
Zopaa   program gjhg; uses graph; const n=30; xgmin…   1.06.2009 4:11
Lapp   почему он не хочет что-либо строить..где ошибка?? …   1.06.2009 9:38


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.11.2020 11:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name