Пасудзіна цыліндрычнай формы запоўнены да краеў вадкасцю, шчыльнасць якой d=1200кг/м. састаўце праграму, якая вылічвае: а) ціск слупа вадкасці на дно пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dV=dhS (S=3...
Пасудзіна цыліндрычнай формы запоўнены да краеў вадкасцю, шчыльнасць якой d=1200кг/м. састаўце праграму, якая вылічвае: а) ціск слупа вадкасці на дно пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dV=dhS (S=3.14R); в)сумарную масу вадкасці. Зыходныя даныя (радыус пасудзіны R, вышыня слупа вадкасці h) уводзяцца ў масіў з клавіатуры, рэзулятат выводзіцца на экран.
Гость
Ответ(ы) на вопрос:
Гостьа) 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.
Не нашли ответ?
Похожие вопросы