=0; j:=1 to n - 1 do begin [0, j]:=0 ; [n, j]:=0 ;; i:=1 to n - 1 do [i, n]:=0; [i, 0]:=((k1 * fi [i, 1])/(k1 + k2 * h)) ;;:=0.0 ;:=fi ;:=0; (abs (tc-T) gt;=tao) and (z lt;=10000000) do:=z + 1 ;:=tc + tao ;:=fi1; j:=1 to n - 1 do [0]:=0.0; [0]:=1.0; [0]:=- 1.0; [0]:=0.0; [n]:=1.0 ; [n]:=- 1.0; [n]:=0.0; [n]:=0.0; k:=1 to n - 1 do [k]:=(((-u * tao)/(4 * h )) - (my * tao)/(2 * h * h)); [k]:=(1.0+ (my * tao)/(h * h)); [k]:=(((u * tao )/(4 * h)) - (my * tao)/(2 * h * h));
b [k]:=(fi [k, j] - ((tao * u * (fi [k + 1, j] - fi [k - 1, j]))/( 4 * h) +
(tao * my * (fi [k + 1, j] - 2 * fi [k, j] + fi [k - 1, j]))/(2 * h * h) )) ;. ProcessMessages ;; (a1, a2, a3, b, pr); k:=0 to n do [k, j]:=pr [k] ;;
{for k:=1 to n - 1 do [0, k]:=0; [n, k]:=0 ;;
} k:=1 to n - 1 do [k, n]:=0; [k, 0]:=((k1 * fipr [k, 1])/(k1 + k2 * h)) ;;:=fipr; i:=1 to n - 1 do [0]:=0.0; [0]:=-k1/h-k2; [0]:=k1/h; [0] :=0.0; [n]:=0; [n]:=1.0; [n]:=0.0; [n]:=0.0; k:=1 to n - 1 do [k]:=(((-v * tao)/(4 * h)) - (ny * tao)/(2 * h * h)); [k]:=(1.0+ (ny * tao)/(h * h)); [k ]:=(((v * tao)/(4 * h)) - (ny * tao)/(2 * h * h)); [k]:=(fi [i, k] - ((tao * v * (fi [i, k + 1] - fi [i, k - 1]))/(4 * h) +
(tao * ny * (fi [i, k + 1] - 2 * fi [i, k] + fi [i, k - 1]))/(2 * h * h) )) + tao * func (i, k) ;; (a1, a2, a3, b, pr); k:=0 to n do [i, k]:=pr [k] ;;:=fipr ;: =fipr ;;. Visible:=true ;. Visible:=true ;. Enabled:=true ;. Visible:=true ;. Caption:=IntToStr (z) ;:=0 ;;.
