logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
luicaliber
luicaliber
01.05.2021 03:53 •  Информатика

Написать программу которая вычисляет объем сферы с предварительной проверкой неотрицательности радиуса сферы

👇
Увидеть ответ
Ответ:
yuralavrenov2016
yuralavrenov2016
01.05.2021
Var radius: Integer;
begin
Read(radius);
if(radius<0) then
WriteLn('Радиус не может быть отрицателен')
else
Writeln(4/3* pi * exp(ln(radius) * 3));
end.
4,8(48 оценок)
Открыть все ответы
Ответ:
adamswpp
adamswpp
01.05.2021
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0
4,5(24 оценок)
Ответ:
vaper4
vaper4
01.05.2021
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25                 x0 := 30;         Y0 := 460;         MaxY := 80;         MaxX := GetMaxX;         i := 1;         T0 := rez[Id_T, 1];         Tk := 15;         Tkv := 0.75;         MoveTo(x0, Y0);           While T0 <= Tk do         begin             x := X0 + 70 * Round( rez[Id_T, i] );             y := Y0 - Round( rez[Id_Zt, i] / 7.8 );               LineTo(x, y);               T0 := T0 + Tkv;             i := i + 1;               DelaySeconds := Round(Tkv * 1000);             Delay(DelaySeconds);         end;         { ...Построение графика }
4,8(3 оценок)
Это интересно:
О
Водитель ехал с постоянной скоростью из города А в город Б...
О
В треугольнике АВС проведена биссектриса АК...
О
Решить систему уравнений x2 + xy +y2 = 13...
О
Решить систему уравнений x2 + y2 + xy = 3...
О
Клюква стоит 250 рублей за кг, а малина 200....
Х
Как научиться делать квиллинг: все, что нужно знать...
13.07.2021
Как заново обрести себя и начать жить полноценной жизнью?...
К
Как получить высококачественный звук с помощью Audacity...
О
Как провести «зеленое» Рождество?...
К
Как переключиться на альбомную или книжную ориентацию экрана на Android...
Новые ответы от MOGZ: Информатика
андрей2096
андрей2096
05.03.2023
Симметричное число Дано целое неотрицательное число, меньшее 10000. Если число имеет меньше 4 знаков в десятичной записи, то нужно считать, что его десятичная запись дополняется...
даша3645
даша3645
17.01.2022
Какая система счисления и принцип перевода чисел из одной системы счисления в другую из 8 в 10...
алалала4
алалала4
01.06.2021
Что из перечисленного не является категорией программного обеспечения? а) прикладное ПО;. б) системное ПО;. в) антивирусное ПО г) инструментальное ПО...
kopustich1
kopustich1
04.06.2022
Что означают вот эти названия на батареи телефона(они помечены оранжевым на скрине)​...
marsimonenko2017
marsimonenko2017
08.06.2020
Дан список. Какой индекс имеет последний элемент списка A? А={12} * 7 A= {10} * 9...
Кирилл62а
Кирилл62а
11.08.2021
Какой объем памяти требуется для хранения цифрового аудиофайла с записью звука высокого качества (4бит 5гц), при условии что время звучания состовляет 1 секунду?...
krasivak
krasivak
10.06.2021
1. Lazarus терезесінің негізгі бөліктерін атап беріңдер. 2. Компоненттер бөлімі неше беттен тұрады? 3. Standard бөлімінде орналасқан батырмалар қызметін атаңдар. 4. Компоненттерді...
Oormeero
Oormeero
23.06.2022
Если в цепочке if-elif-elif- истинным является несколько условий, то какой именно срабатывает из них? 1) первое 2) последнее 3) никакое...
olya2005i
olya2005i
21.03.2023
Выражение A = планет A + a планет А+ a = планета Оарифметическое ологическое Остроковое ответить...
Жак104
Жак104
02.04.2022
Написать программу в паскале с процедуры: наименьшее из трех чисел...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ