|
#1
|
|||
|
|||
pascal&delphi
помогите запусть написаную на паскале прожку в делфи
Код:
var i,N : integer; l,a,k,m,ti,dt,T,dV : real; x : array[1..200] of real; v : array[1..200] of real; begin N:=100; T:=10; dt:=10e-13; l:=2e-10; k:=0.1; m:=1e-25; dV:=1; for i:=1 to N do begin x[i]:=i*l; v[i]:=0; end; for i:=1 to N do begin write ('Координата елементу ланцюжка* x[',i); write ('] '); writeln (x[i]); write ('Швидкість елементу ланцюжка* V[',i); write ('] '); writeln (V[i]); end; readln; ti:=0; while dt<T do begin dt:=dt+dt; x[1]:=dV*dt; writeln (dt); writeln (x[1]); for i:=2 to N-1 do begin writeln (x[i+1]); writeln (x[i]); writeln (x[i-1]); readln; a:=((x[i+1]-2*x[i]+x[i-1])*k)/m; writeln (a); readln; x[i]:=x[i]+v[i]*dt+a*sqr(dt); writeln (x[i]); readln; v[i]:=v[i]+a*dt; writeln (v[i]); readln; end; end; for i:=1 to N do begin write ('Координата елементу ланцюжка* x[',i); write ('] '); writeln (x[i]); write ('Швидкість елементу ланцюжка* V[',i); write ('] '); writeln (V[i]); end; readln; end. |
#2
|
|||
|
|||
В главном меню File->New->Other->Console application.
Далее в созданный шаблон вставляшь свой код. Собственно, там только директива компилятора для создания консольного приложения. Ну и файл будет с расширением .dpr. А так - один в один. |