Посудина цилиндрической формы заполнены до краёв жидкостью,плотность которой d=1200 кг/м(квадратных).Составьте програму,которая высчитывает массу
5-9 класс
|
жидкости в каждой посудине m=dV=dhS(S=3,14R в квадрате)
var
a,b,c,d:real;
begin
writeln (''Vvedite ob''em posudi. Esli ne znaete - najmite 0');
read (a);
if (a=0) then
begin
writeln ('Vvedite visotu posudi');
read (b);
writeln ('Vvedite radius stakana');
read (c);
d:=1200*b*(3.14*c*c);
end;
if (a>0) then begin
d:=1200*a;
end;
writeln ('Massa ',d);
end.
Я не проверіл работоспособность, так что еслі что - піші)
Другие вопросы из категории
Написать программу на языке паскаль
Читайте также
на дно сосудов p=dgh( g=9,8м\с²)
6 сосудов( высота 1сосуда 7, высота 2 сосуда 4, высота 3 сосуда 10, высота 4 сосуда 6, высота 5 сосуда 5, высота 6 сосуда 3)
Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d= 1200 кг/м (кубический). Составить программу, которая вычисляет:
а) давление столба жидкости на дно сосудов p=dgh (g= 9,8 м/с (в квадрате));
б) массу жидкости в каждом сосуде m=dV=dhS (S=3,14R (в квадрате));
в) суммарную массу жидкости.
сосудов p=dgh(g=9,8 м/с2)
вычисляет:
а)давление жидкости на дно посудины по формуле p=dgh(g=9,8м/с2)
б)массу жидкости в каждой посудине m=dV=dhS (S=3,14R2)
в) сумарную массу жидкости
Радиус посудины,высоту столба жидкости нужно вводить с клавиатуры,а результат вывести на экран.
СПАСИБО))))))))
краев жидкостью плотностью d=1200кг/м в кубе.
Составьте программу, которая вычесляет:
а) Давление столба жидкости на дно сосудов p=dgh(g=9,8м/с в квадрате);
б)Массу жидксоит в кажом сосуде m=dV=dhS (S=3,14R в квадрате)
в)суммарную массу жидкости .
h и R дано