Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Alevtinka28
26.06.2022 01:43 •
Информатика
Написать программу на паскале! написать программу для решения следующей : вычислить сумму объёмов и сумму полных поверхностей трёх круглых конусов,если для каждого конуса известны высота и радиус основания.использовать подпрограмму-функцию.
Показать ответ
Ответ:
stepanyakimov2
20.08.2020 17:58
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
veta991
13.11.2022 07:36
В программе Publisher можно внести бизнес-информацию по умолчанию, которая затем будет использована во всех шаблонах публикаций??...
annastiebiekova
25.11.2020 05:16
Поезд находится на одном из 64 путей. сколько бит информации содержит сообщение о том,где находится поезд?...
dasha2468135
29.04.2023 00:07
Дан массив, содержащий 2015 неотрицательных целых чисел. ямой называется не крайний элемент массива, который меньше обоих своих соседей. необходимо найти в массиве самую глубокую яму,...
Ikramhaus221
29.04.2023 00:07
Уровень c. напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/»). выражение вводится как символьная строка,...
Alle963
13.03.2020 07:01
Паскаль программа спрашивает пользователя какой-либо вопрос, если отвечает yes , ему выводится одно сообщение, если no , то другое. собсвенно, вопрос в том, как добавить y, n (yes,...
Ivan733822
25.02.2020 14:00
Напишите программу на языке паскаль: выяснить принадлежит ли точкаx отрезку от 1 до 10? буду )...
ultraomegaus
25.02.2020 14:00
1. форматирование абзацев и страниц 1. в текстовом процессоре создайте новый документ. 2. наберите черновик документа (times new roman, 14 пунктов, выравнивание по левому краю) со...
danil782
28.02.2022 02:13
Все 5-ти буквенные слова, состоящие из букв а, б, в, г, записанные в алфавитном порядке. начало списка выглядит так: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. необходимо записать слово, которое...
ishoeva
24.02.2021 03:36
Подготовьте краткий доклад на тему «Облачные сервисы». Приведите собственные выводы по рассматриваемому вопросу ,...
elka1245
29.09.2022 00:02
Соблюдается ли конфиденциальность при использовании электронной почты (дайте развернутый ответ)?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.