ВУЗ:
Составители:
170
Rewrite(g);
for i:=1 to Nx do
for j:=1 to Ny do
writeln(g,' ',hx*(i-1):10:8,' ',hy*(j-1):10:8,' ',T[i,j]:8:5);
close(g);
end.
Получено следующее распределение температуры:
Рис. 31. Распределение температуры (ºС) в пластине при t = 3600 с