1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
!HELP! 2 графика по данным из файлов !HELP!, мозг кипит...помогите
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.
далее нужно строить график, помогите разобраться...если можно то прям щас
program gjhg; uses graph; const n=100; xgmin=100; xgmax=480; ygmin=200; ygmax=300; h=10; g=9.8; m=4; l=15; v=10; p=1000; c=2; k=3; var driver,mode,i,xg,yg,xl,yl,j:integer; a,b,ymin,ymax:real; x,y:array[1..n] of real; s:string; 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 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.
program gjhg; uses graph; const n=30; xgmin=100; xgmax=480; ygmin=200; ygmax=300; var driver,mode,i,xg,yg,xl,yl,q:integer; a,b,ymin,ymax:real; x,y,z,u:array[1..n] of real; s:string; w1,t:real; f,e:text; begin a:=0; b:=20; driver:=detect; Initgraph(driver,mode, 'D:\work'); ClearDevice; assign(f,'dta'); reset(f); for i:=1 to n do readln(f,x[i],y[i]); {for i:=1 to n do writeln(x[i],y[i]); } assign(e,'atd'); reset(e); for i:=1 to n do readln(e,z[i],u[i]); {for i:=1 to n do writeln(z[i],u[i]); } ymax:=y[1]; for i:=2 to n do if y[i]>ymax then begin ymax:=y[i]; end; ymin:=y[1]; for i:=2 to n do if y[i]<ymin then begin ymin:=y[i]; end; rectangle(xgmin,ygmin,xgmax,ygmax); q:=0; i:=30; while q<1 do begin if frac((xgmax-xgmin)/i)=0 then q:=i else i:=i+1; end; xl:=xgmin; while xl<xgmax do begin Line(xl,ygmin,xl,ygmax); xl:=xl+q; str(xl,s); OutTextXY(xl-40,ygmin+110,s); end; q:=0; i:=30; while q<1 do begin if frac((ygmax-ygmin)/i)=0 then q:=i else i:=i+1; end; yl:=ygmin; while yl<ygmax do begin Line(xgmin,yl,xgmax,yl); yl:=yl+q; str(yl,s); OutTextXY(xgmin-25,yl-6,s); end; xg:=round(xgmin+(x[1]-a)/(b-a)*(xgmax-xgmin)); yg:=round(ygmax-(y[1]-ymin)/(ymax-ymin)*(ygmax-ygmin)); Moveto (xg,yg); for i:=2 to n do begin xg:=round(xgmin+(x[i]-a)/(b-a)*(xgmax-xgmin)); yg:=round(ygmax-(y[i]-ymin)/(ymax-ymin)*(ygmax-ygmin)); Lineto (xg,yg); end; OutTextXY(ygmin-100,xgmin+80,'fi'); OutTextXY(ygmax+190,xgmax-180,'t'); readln; closegraph; end.
вот две программы рисуется график, на нем же надо построить график по данным из второго файла, а внизу подписать значения...как это зделать..у меня нервов больше не хватает, помогите кто чем может..