Паскаль. вычислить массу свинцовой трубы, длина которой l метров (плотность 11,4 г/см3), толщина стенок а мм, а внутренний диаметр r мм.

L*Pi * ((R+A) ^2 - (R) ^2) * p

p - плотность

Объяснение:

var

 L, A, R, rho, m: real;

begin

 write('Длина трубы, м = ');

 read(L);

 L := L * 100; // в см

 write('Толщина стенок трубы, мм = ');

 read(A);

 A := A / 10; // в см

 write('Внутренний радиус трубы, мм = ');

 read(R);

 R := R / 10; // в см

 rho := 11.4; // плотность

 m := pi * L * rho * (R * R + sqr(R + A));

 write('Масса свинцовой трубы, г: ', m:0:1);

end.

Пример диалога с программой

Длина трубы, м = 2.5

Толщина стенок трубы, мм = 3

Внутренний радиус трубы, мм = 12

Масса свинцовой трубы, г: 33038.6

Объяснение:

Масса  трубы может быть найдена, по формуле m = ρV, где ρ - плотность материала трубы, V - объем, канимаемый материалом.

Объем трубы находится по формуле V = L×S, где L - длина трубы, S - площадь поперечного сечения трубы.

Поперечное сечение трубы - это кольцо, у которого задан внутренний радиус r и толщина стенок A. Внешний радиус трубы вычисляется по формуле R = r+A. Тогда площадь кольца можно найти по формуле

S = πR² - πr² = π[(r+A)²+r²].

Окончательно m = πρL[r²+(r+A)²], где m - масса в граммах, ρ - плотность в г/см³, L, r, A - размеры в сантиметрах.