1000, - 00. , 0 100.
Teplo : eps Max; . :
//
Write('Eps='); readln(eps);
Write('Max='); readln(Max);
//
for i:=1 to M do
begin T[i,0]:=100-100/(M+1)*i; T[i,N+1]:=100/(M+1)*i end;
for j:=1 to N do
begin T[0,j]:=100-100/(N+1)*j; T[M+1,j]:=100/(N+1)*j end;
M=N=50. :
Eps=0.0001
Max=500
. ..
.3.36. 2-
500. .
3: , .
2 . , , : M=2N. =50, N=25. e Teplo .
, 0 100 . Teplo .
.3.37.
.3.37. 3-
.
1. Teplo ?
2. Teplo, , ?
3. Teplo, , ?