Написать программу на паскале! написать программу для решения следующей : вычислить сумму объёмов и сумму полных поверхностей трёх круглых конусов,если для каждого конуса известны высота и радиус основания.использовать подпрограмму-функцию.

190

308

Посмотреть ответы 2

Ответы на вопрос:

marmeladkina

Информатика

4,6(32 оценок)

Function v(h,r: real): real; begin result: =1/3*pi*r*r*h // abc, abc.net // v: =1/3*pi*r*r*h // turbo, free end; function spp(h,r: real): real; begin result: =pi*r*(r+sqrt(r*r+h*h)); end; var h,r,v0,s,sums,sumv: real; begin write('h1 = '); readln(h); write('r1 = '); readln(r); v0: =v(h,r); sumv: =v0; s: =spp(h,r); sums: =s; writeln('v1 = ',v0); writeln('s1 = ',s); writeln; write('h2 = '); readln(h); write('r2 = '); readln(r); v0: =v(h,r); sumv: =sumv+v0; s: =spp(h,r); sums: =sums+s; writeln('v2 = ',v0); writeln('s2 = ',s); writeln; write('h3 = '); readln(h); write('r3 = '); readln(r); v0: =v(h,r); sumv: =sumv+v0; s: =spp(h,r); sums: =sums+s; writeln('v3 = ',v0); writeln('s3 = ',s); writeln; writeln('sum v = ',sumv); writeln('sum s = ',sums); end.

Шишиuvuvgyuhuh

Информатика

4,7(14 оценок)

Значек изначально использовался для операционной системы windows. ведь переводя с windows - окна, и логотип был не замысловатый, 4-е окна. и вскоре он перекачевал как логотип самой компании.