|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.04.2012, 22:32 | #1 |
Новичок
Джуниор
Регистрация: 22.04.2012
Сообщений: 1
|
Анимация на Паскале
Помогите, пожалуйста. Ниже код программы. Как построить график изменения координаты от времени для тележки?
Program animaciya; Uses crt,graph; Var gd,gm,i:integer; F,Ftr,x1,x2,v1,v2,a1,a2,xx1,xx2,t:r eal; const m1=1; m2=1.2; dt=0.005; k=0.1; r=0.1; begin clrscr; Detectgraph (gd,gm); Initgraph (gd,gm,''); line(220,0,220,480); x1:=250; v1:=-5; x2:=250; v2:=-5; repeat if x1<0 then F:=-k*x1 else F:=0; Ftr:=r*abs(v2-v1); a1:=(F-Ftr)/m1; v1:=v1+a1*dt; x1:=x1+v1*dt; a2:=Ftr/m2; v2:=v2+a2*dt; x2:=x2+v2*dt; setcolor(0); rectangle(round(xx1)+220,240,round( xx1)+300,250); circle(round(xx2)+290,230,3); setcolor(4); rectangle(round(x1)+220,240,round(x 1)+300,250); circle(round(x2)+290,230,3); xx1:=x1; xx2:=x2; until KeyPressed; closegraph; Readln; end. Последний раз редактировалось koss0501; 22.04.2012 в 22:39. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Анимация костра (графика на Паскале ABC ) | eka1155 | Помощь студентам | 1 | 04.05.2011 09:42 |
Анимация | ZvEr_HaCkEr | Свободное общение | 8 | 13.11.2010 11:40 |
Анимация | ZET78 | Общие вопросы C/C++ | 2 | 26.05.2010 21:00 |
Анимация в Паскале | heny | Помощь студентам | 4 | 09.03.2010 08:49 |
АНИМАЦИЯ В ПАСКАЛЕ. | Марик | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 17.06.2008 12:21 |