— Рефераты — Точные науки — Теоретическая физика — Теплопроводность через сферическую оболочку
procedure TForm1. Postroenie (T1,T2,R1,R2:real);
var
x, y: integer;
Kx, Ky, x1, y1,P, C1, Sag:real;
begin