Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг/м3....

Question

Сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200 кг/м3. Составьте программу, которая вычисляет: а) давление столба жидкости на дно сосудов p=dgh(g=9.8м/с); б) массу жидкости в каждом сосуде m=dV=dhS(S=3.14 R2

Answer 1

1. program task31101745;
2. const
3.  d = 1200;
4.  g = 10;
5. var
6.  h, R: real;
7. begin
8.  Writeln('ВВЕДИТЕ ВЫСОТУ СТОЛБА ЖИДКОСТИ (h) И РАДИУС СТОЛБА (r): ');
9.  Readln(h, R);
10.  Writeln('ДАВЛЕНИЕ = ', d * g * h, ', МАССА ЖИДКОСТИ: ', d * h * Pi * Power(R, 2));
11. end.

Comments

Можно как то без const и понятней пожалуйста

---

const - это неизменное число. Я ведь не буду объявлять как изменяемую переменную g - равная 9.8 (всегда - в задачах) и d (по условию), потому что программа МОЖЕТ случайно её зацепить и изменить.