Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dimaonisko
20.10.2020 13:05 •
Информатика
Составить программу вычисления объема цилиндра и конуса, которые имеют одинаковую высоту h и одинаковый радиус основания r (написать в паскале)
Показать ответ
Ответ:
Норман11
02.10.2020 12:24
Пусть V1 - объем цилиндра, а V2 - объем конуса, тогда:
const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
Тестовое решение:
Введите радиус и высоту: 5.5 12.81
Объем цилиндра 1216.75785, объем конуса 405.58595
0,0
(0 оценок)
Популярные вопросы: Информатика
laskinarik41
25.09.2022 03:49
Составьте алгоритм и программу вывода на экран вертикального столбика чисел: 0,1,2,3,...
Tuchka087
25.09.2022 03:49
Нарисовать свою визитку. использовать разный шрифт и направление текста. паскаль,...
gleb217
10.11.2022 07:42
Сколько бит видеопамяти требуется для кодирования одного пикселя 2-цветного изображения...
alex07042004
06.12.2022 01:42
Найти количество чётных элементов массива...
ffggghhhd
22.05.2022 18:23
Для узла с ip-адресом 158.198.104.220 адрес сети равен 158.198.64.0. чему равен третий слева байт маски? ответ запишите в виде десятичного числа....
bodnarhuk83
08.06.2023 06:26
Составить сообщение информатика вокруг нас...
Эндирионэля
08.10.2022 08:39
Назвать профессии,представители которых используют компьютерные графические изображения...
ANONIM235063
08.10.2022 08:39
Расположите следующие числа в порядке возрастания 7778, 1011111112, 2ff16, 50010...
МаксЭндер
06.12.2022 10:00
Какая формула будет получена при копировании в ячейку Е4, формулы из ячейки E2 Изображение:...
vanuhask12
06.12.2022 10:00
Разобрать предложение как только можно: всё Настю интересовало и занимало в этом сложном и огромном мире, и, когда ей удавалось говорить с Дубовым, она задавала ему множество...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
Тестовое решение:
Введите радиус и высоту: 5.5 12.81
Объем цилиндра 1216.75785, объем конуса 405.58595