{Nazvanie progi}
Program Function_F(x,t);
{Podluchaem biblioteku}
uses crt;
{Ob`yavlyaem peremennie}
Var x,t:integer;
{Poehali}
begin
{Chistim ekran}
clrscr;
{Delaem verhnuy chast` tablici}
writeln('x/t 1 2 3 4 5 6 7 8 9 10');
{cikl po x}
for x:=1 to 10 do
begin
{delaem bokovuy chast` tablici}
write(x);
{cikl po t}
for t:=1 to 10 do
{vivodim krasivo znacheniya proizvol'nogo zakona x/t=x*t*t}
if (t=1)and(x=10) then write(x*t*t:5) else write(x*t*t:6);
writeln;
end;
{press any key}
Readln;
{stop}
End.
А теперь преподаватель попросил сделать следующее,чтоб таблица считалась не по закону
x*t*t:5
а по следующему закону:
dfi2(t,x)=(fi(t-1,x+1)-2.0*fi(t-1,x)+fi(t-1,x-1))/(dx*dx)
и написал мне изменения в программе такие вот и сказал причесать её,попогите плз. Вот прога которая измененная. С новым законом,что удалить из старой надо?
{Nazvanie progi}
Program Function_F(x,t);
{Podluchaem biblioteku}
uses crt;
{Ob`yavlyaem peremennie}
Var x,t:integer;
fi(0:10, 0:10):real;
dfi2(0:10, 0:10) :real;
dx:real;
{Poehali}
begin
{Chistim ekran}
clrscr;
{Delaem verhnuy chast` tablici}
writeln('x/t 1 2 3 4 5 6 7 8 9 10');
{cikl po x}
for x:=0 to 10 do
fi(0, x)=0.0
end;
dx=0.1;
for x:=1 to 10 do
begin
{delaem bokovuy chast` tablici}
write(x);
{cikl po t}
for t:=1 to 10 do
for x:=1 to 9 do
dfi2(t,x)=(fi(t-1,x+1)-2.0*fi(t-1,x)+fi(t-1,x-1))/(dx*dx)
end;
{vivodim krasivo znacheniya proizvol'nogo zakona x/t=x*t*t}
if (t=1)and(x=10) then write(x*t*t:5) else write(x*t*t:6);
writeln;
end;
{press any key}
Readln;
{stop}
End.