Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Лукиянов Гоша
0 / 0 / 2
Регистрация: 19.11.2014
Сообщений: 20
#1

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

20.11.2014, 10:19. Просмотров 694. Ответов 9
Метки нет (Все метки)

Составить функцию нахождения площади круга, зная его радиус. С помощью данной функции вычислить объем для N шаров
http://www.cyberforum.ru/pascal/thread1891351.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2014, 10:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить функцию нахождения площади круга, зная его радиус. С помощью нее вычислить объем для N шаров (Pascal):

Вычислить объем параллелепипеда, зная его высоту, длину и ширину
program obpar; var a,b,c,V: integer; Begin writeln('Введите длину,высоту и...

Составить функцию нахождения площади треугольника, по двум сторонам и углу между ними.
Составить функцию нахождения площади треугольника, по двум сторонам и углу...

Вычислить длины окружностей, площади кругов и объемы шаров для ряда заданных радиусов
Вычислить длины окружностей, площади кругов и объемы шаров для ряда заданных...

Составить программу для нахождения площади кольца
Составить программу для нахождения площади кольца, внешний радиус которого R1,...

Заданы координаты центра круга (a,b) , его радиус R , таблица C[N,2],
Заданы координаты центра круга (a,b) , его радиус R , таблица C, содержащая...

9
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27941 / 15659 / 960
Регистрация: 15.09.2009
Сообщений: 67,839
Записей в блоге: 78
20.11.2014, 10:26 #2
какой язык?
0
Лукиянов Гоша
0 / 0 / 2
Регистрация: 19.11.2014
Сообщений: 20
20.11.2014, 10:41  [ТС] #3
Паскаль
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
20.11.2014, 11:14 #4
Pascal
1
2
3
4
Function SCircle(r : Real) : Real;
Begin
  SCircle:=Pi*Sqr(r);
end;
0
XRuZzz
Антикодер
1487 / 644 / 36
Регистрация: 15.09.2012
Сообщений: 2,614
20.11.2014, 11:15 #5
Цитата Сообщение от Лукиянов Гоша Посмотреть сообщение
С помощью данной функции
это так чтоли?
Vшара=(4SкругаR)/3
NVшара=N(4SкругаR)/3
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
20.11.2014, 11:18 #6
Цитата Сообщение от Лукиянов Гоша Посмотреть сообщение
С помощью данной функции вычислить объем для N шаров
Pascal
1
V:=(4/3)*SCircle(RCircle)*RCircle;
0
XRuZzz
Антикодер
1487 / 644 / 36
Регистрация: 15.09.2012
Сообщений: 2,614
20.11.2014, 11:51 #7
Цитата Сообщение от APALoff Посмотреть сообщение
V:=(4/3)*SCircle(RCircle)*RCircle;
возможно компилятор бы и сам справился с оптимизацией, но всё же я бы перестраховался:
Pascal
1
NV:=(4*N*SCircle(RCircle)*RCircle)/3;
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
20.11.2014, 12:33 #8
Что такое N? (4*N*SCircle(

Мне кажется мы по разному понимаем условие задачи:
Цитата Сообщение от Лукиянов Гоша Посмотреть сообщение
С помощью данной функции вычислить объем для N шаров
0
XRuZzz
Антикодер
1487 / 644 / 36
Регистрация: 15.09.2012
Сообщений: 2,614
20.11.2014, 12:54 #9
С помощью данной функции вычислить объем сферы, заполненной N такими шарами

Добавлено через 2 минуты
Рука того же препода 2 года назад? http://www.cyberforum.ru/pascalabc/thread713529.html
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
20.11.2014, 13:00 #10
Цитата Сообщение от XRuZzz Посмотреть сообщение
С помощью данной функции вычислить объем сферы заполненную N такими шарами
Вы сами додумали условие?

В оригинале изложения я понял смысл так:
дано несколько (N) радиусов шаров и написав одну функцию по вычислению площади круга, найти объемы для каждого шара.

Добавлено через 30 секунд
Оригинал условия:
Цитата Сообщение от Лукиянов Гоша Посмотреть сообщение
С помощью данной функции вычислить объем для N шаров
0
20.11.2014, 13:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2014, 13:00
Привет! Вот еще темы с решениями:

Вычислить площади круга R и эллипса с полуосями а и b
Вычислить площади круга ® и эллипса с полуосями а и b

Составить функцию нахождения площади круга, по его диаметру
С помощью данной функции вычислить площадь для N кругов. С помощью структур...

Составить функцию нахождения площади круга, по его диаметру
Составить функцию нахождения площади круга, по его диаметру. С помощью данной...

Составить функцию нахождения площади круга, по его диаметру
Помогите пофалуйста составить программу в ПаскалеАВС: Составить функцию...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

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