Составить алгоритм и программу для вычисления веса алюминиевого резервуара диаметром 1,32м, если толщина стенок резервуара 16мм, плотность алюминия 2,7*10^3 кг/м^3.Тема по Pascal.

Предыдущий
вопрос Следующий
вопрос

Алгоритм:

Ввод данных: диаметр резервуара (d), толщина стенок резервуара (t), плотность алюминия (p).

Вычисление радиуса резервуара (r = d/2).

Вычисление внутреннего радиуса резервуара (r1 = r - t).

Вычисление объема алюминиевого резервуара (V = pi * (r^2 - r1^2)).

Вычисление массы алюминиевого резервуара (M = V * p).

Вывод результата (M).

Программа на Pascal:

program aluminum_tank_weight;
const
pi = 3.14159265359;
density_aluminum = 2.7 * 1000; // плотность алюминия в кг/м^3
var
d, t, r, r1, V, M: real;
begin
write('Введите диаметр резервуара (м): ');
readln(d);
write('Введите толщину стенок резервуара (м): ');
readln(t);
r := d / 2;
r1 := r - t;
V := pi * (r * r - r1 * r1);
M := V * density_aluminum;
writeln('Масса алюминиевого резервуара = ', M:0:2, ' кг');
end.

При вводе диаметра резервуара 1,32 м и толщины стенок 0,016 м программа выведет результат:

Введите диаметр резервуара (м): 1.32
Введите толщину стенок резервуара (м): 0.016
Масса алюминиевого резервуара = 78.10 кг