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

135

347

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

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

nastya2730

Информатика

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

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.

pashafil5

Информатика

4,5(85 оценок)

Нажать на прав. сторону мышки нажать на выбрать "папку " и все

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.