Что-то намудрено вот в этом цикле
Код:
for i:=1 to (n-1) do
begin
u2[i]:=u1[i]+0.125*(t/(x*x)*(u1[i+1]-2*u1[i]+u1[i-1])+(1/0.125)*(u1[i]-(u1[i]*u1[i]*u1[i]))-(1/0.125)*v1[i]) ;
v2[i]:=v1[i]+(t/(x*x)*(v1[i+1]-2*v1[i]+v1[i-1]))-t*(0.25*u1[i]+v1[i]) ;
end;
в смысле, много цифёрных разрядов на выходе, пжлст, покажите какие данные должны вводиться в
L,
t2,
u1 и
v1, на нулях проверял, непонятно. Могли бы и по дефолту в эдиты их прописать.