Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Выполнить последовательность операций and в строке Заданы две строки S1 и S2. В S1 содержится последовательность следующих конструкций: a1 and ? = ?; a2 and ? = ?; ...., где а1, а2, ... - целые числа. Строка S2 состоит только из целых чисел,... https://www.cyberforum.ru/ pascalabc/ thread1432390.html Pascal ABC Вычислить среднее арифметическое чисел
1. Последовательно вводятся n действительных чисел(n<=20). Вычислить среднее арифметическое этих чисел. 2. Составить программу для определения, является ли натуральное число k степенью числа 3....
Pascal ABC Вывести в файл типа В фамилии и имена призеров–участников https://www.cyberforum.ru/ pascalabc/ thread1432297.html
На городской олимпиаде по информатике участникам было предложено выполнить 3 задания, каждое из которых оценивалось по 25-балльной шкале. На вход программы подаются сведения о результатах...
Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread1432287.html
program z1; var x,b :real ; begin writeln ('x= '); readln (x) ; if (x<>1)and(x<>2)and(x<>3) then b:= 1/(x-1)+1/(x-2)+1/(x-3) writeln ('y= ',b ) else writeln ('ошибка'); end. Прошу, объясните...
Определить предпочтения пола по введенному значению Pascal ABC
program z1; var a: char; begin write ('введите ваш пол "м-мальчик","д-девочка"'); readln (a); if a='м' then writeln ('вам нравятся девочки') else if a='д' writeln ('вам нравятся мальчики') else...
Pascal ABC Найти сумму тех членов ряда, модуль которых больше или равен заданному Е (процедуры) задача с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число Е. Найти сумму тех членов ряда, модуль которых больше или равен заданному Е.... https://www.cyberforum.ru/ pascalabc/ thread1432176.html
Pascal ABC В типизированном файле найти произведение элементов, которые стоят на нечетных позициях https://www.cyberforum.ru/ pascalabc/ thread1432175.html
задача создать типизированный файл типа Integer, заполнить n-ным количеством элементов по формуле (сделала) и вычислить произведение элементов, которые стоят на нечетных позициях (не сделано). Если...
Pascal ABC Определить количество M-значных натуральных чисел, у которых сумма цифр равна заданному значению
3адача с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Определить количество M-значных натуральных чисел, у которых сумма цифр, стоящих в нечетных разрядах, равна
Pascal ABC Исправить синтаксические и алгоритмические ошибки и/или пропуски https://www.cyberforum.ru/ pascalabc/ thread1432167.html
. Дана программа, содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить...
Pascal ABC Сформулировать условие задачи, которую решает данная программа https://www.cyberforum.ru/ pascalabc/ thread1432163.html
Исполнить алгоритм при 2-3 наборах данных. Записать исходные данные, промежуточные данные и результат работы для каждого из выбранных наборов значений величин. Сформулировать условие задачи, которую...
Pascal ABC Найти количество мегачетных чисел в последовательности
Даны две последовательности целых чисел: a1,a2,…a9 и b1,b2,…b11. Найти количество мегачетных чисел в первой из них и количество чисел, не являющихся мегачетными, во второй. Мегачетным назовем...
Pascal ABC Определить, сумма цифр которого из чисел меньше Даны три трехзначных числа. Определить, сумма цифр которого из них меньше. Подсчет суммы цифр организовать через функцию. https://www.cyberforum.ru/ pascalabc/ thread1432138.html
5 / 5 / 3
Регистрация: 07.07.2013
Сообщений: 122
28.04.2015, 12:13 0

Определить значение угла, при котором будет достигнут максимальный объем - Pascal ABC - Ответ 7542150

28.04.2015, 12:13. Показов 1258. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Riko747 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program abc;
var
r,v1,v2,vm,vs:real
i,um:integer
begin
vm:=0;
um:=0
r:=random(10)+1;
for i:=1 to 360 do
begin
   v1:=(sqrt(sqr(r)-sqr(r*i/360))*pi*sqr(r*i/360))/3;
   v2:=(sqrt(sqr(r)-sqr(r*(360-i)/360))*pi*sqr(r*(360-i)/360))/3;
   vs=v1+v2;
   if vs>vm then
     um:=i;
end;
writeln(um);
end.
Решение не проверял могут быть ошибки,точность данного метода зависит от частоты перебора угла,то есть i.um,vm,v1,v2 это максимальный угол,максимальный объем,объемы одного из конусов соответственно

Вернуться к обсуждению:
Определить значение угла, при котором будет достигнут максимальный объем Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2015, 12:13
Готовые ответы и решения:

Найти наибольшее значение угла, при котором шар не будет делать скачка
Шар радиуса r катится без проскальзывания по горизонтальной плоскости, переходя с этой плоскости на...

Определить значения угла х, при котором cos(x) равен 0,5
Срочно написать задачу в Excell VBA Определить значения угла х, при котором cos(x) равен 0,5...

Найти максимальный угол наклона плоскости, при котором цилиндр не будет скатываться
Цилиндр радиусом \mathit{R} имеет цилиндрическое отверстие радиусом \mathit{r=\frac{R}{2}} , ось...

Дано значение угла α в градусах. Определить значение этого же угла в радианах
Дано значение угла α в градусах (0 &lt; α &lt; 360). Определить значение этого же угла в радианах,...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2015, 12:13

Дано значение угла в радианах. Определить значение этого же угла в градусах
Вот смотрите - условие задачи: Дано значение угла α в радианах (0 ≤ α &lt; 2·π)....

Дано значение угла в градусах. Определить значение этого же угла в радианах
Дано значение угла в градусах. Определить значение этого же угла в радианах, учитывая, что 180° =...

Определить при каком значении угла α ускорение бруска вдоль поверхности будет максимальным
Брусок движется вдоль горизонтальной поверхности под действием постоянной по величине силы,...

Определите наименьшее значение n, при котором сумма чисел, которые будут выведены при вызове F(n), будет больше 1000000
Определите наименьшее значение n, при котором сумма чисел, которые будут выведены при вызове F(n),...

Найти значение Р2 при котором теоретическая скорость истечения будет критической.
Воздух при Р=0,5 мПа и t1= 27 градусов Цельсия адиабатно вытекает из ресивера. Найти значение Р2...

Определить, каков будет объем газа при нагревании на 273 С и прежнем давлении
1) Газ занимает объем 2л при 0 С(градусов) Каков будет его объем при нагревании на 273 С и прежнем...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.