Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Лукиянов Гоша
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 20
#1

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

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

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

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

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

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

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

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

Заданы координаты центра круга (a,b) , его радиус R , таблица C[N,2], - Pascal
Заданы координаты центра круга (a,b) , его радиус R , таблица C, содержащая координаты N вещественных чисел. А. Сколько точек из таблицы...

9
magirus
Супер-модератор
Эксперт по компьютерным сетямЭксперт Windows
26930 / 15188 / 888
Регистрация: 15.09.2009
Сообщений: 66,162
Записей в блоге: 77
20.11.2014, 10:26 #2
какой язык?
0
Лукиянов Гоша
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 20
20.11.2014, 10:41  [ТС] #3
Паскаль
0
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
20.11.2014, 11:14 #4
Pascal
1
2
3
4
Function SCircle(r : Real) : Real;
Begin
  SCircle:=Pi*Sqr(r);
end;
0
XRuZzz
Антикодер
687 / 593 / 29
Регистрация: 15.09.2012
Сообщений: 2,541
20.11.2014, 11:15 #5
Цитата Сообщение от Лукиянов Гоша Посмотреть сообщение
С помощью данной функции
это так чтоли?
Vшара=(4SкругаR)/3
NVшара=N(4SкругаR)/3
0
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
20.11.2014, 11:18 #6
Цитата Сообщение от Лукиянов Гоша Посмотреть сообщение
С помощью данной функции вычислить объем для N шаров
Pascal
1
V:=(4/3)*SCircle(RCircle)*RCircle;
0
XRuZzz
Антикодер
687 / 593 / 29
Регистрация: 15.09.2012
Сообщений: 2,541
20.11.2014, 11:51 #7
Цитата Сообщение от APALoff Посмотреть сообщение
V:=(4/3)*SCircle(RCircle)*RCircle;
возможно компилятор бы и сам справился с оптимизацией, но всё же я бы перестраховался:
Pascal
1
NV:=(4*N*SCircle(RCircle)*RCircle)/3;
0
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
20.11.2014, 12:33 #8
Что такое N? (4*N*SCircle(

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

Добавлено через 2 минуты
Рука того же препода 2 года назад? Составить функцию нахождения объема шара, зная его радиус.
0
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
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 - Pascal
Вычислить площади круга ® и эллипса с полуосями а и b

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

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

Составить функцию нахождения площади круга, по его диаметру - C (СИ)
С помощью данной функции вычислить площадь для N кругов. С помощью структур формула Pi*(r^2/2)


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

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

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