Решите посудина цилиндрической формы заполнена до краёв водой, d=1200кг/м3. составить программу которая вычисляет: а)давление жидкости на дно посудины по формуле p=dgh(g=9,8м/с2) б)массу жидкости в каждой посудине m=dv=dhs (s=3,14r2) в)
сумарную массу жидкости радиус посудины,высоту столба жидкости нужно вводить с клавиатуры,а результат вывести на экран.
252
275
Ответы на вопрос:
а)
var
p,d,h: real;
begin
readln(h);
p: =1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r: real;
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k: integer;
m,h,r,s: real;
begin
readln(k);
s: =0;
for i: =1 to k do
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
s: =s+m;
end;
writeln(s);
end.
Популярно: Информатика
-
abart29.09.2020 19:16
-
alinashakeeva28.08.2020 03:37
-
znanija11415.10.2020 16:58
-
Anakina111.11.2021 15:16
-
Annna98729.09.2020 10:55
-
Кисуня11111111105.01.2020 09:43
-
rgn12322.04.2021 18:02
-
Новичок22111214.11.2022 04:31
-
sveta46512.05.2023 17:15
-
Dashuli4ka200128.06.2021 15:29