Никуляяяяяяяя
Опубликовано 7 лет назад по предмету Информатика от Никуляяяяяяяя


Пасудзіна цыліндрычнай формы запоўнены да краеў вадкасцю, шчыльнасць якой d=1200кг/м. састаўце праграму, якая вылічвае: а) ціск слупа вадкасці на дно пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dV=dhS (S=3.14R); в)сумарную масу вадкасці. Зыходныя даныя (радыус пасудзіны R, вышыня слупа вадкасці h) уводзяцца ў масіў з клавіатуры, рэзулятат выводзіцца на экран.

  1. Ответ
    Ответ дан sinbad7

    а)

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц