процедура, которая вычисляет объем шара - Паскаль, Turbo Pascal, PascalABC.NET

motaro · 21.01.2008, 18:31

помогите pls решить данную задачу:

Написать процедуру, которая вычисляет объем шара. Радиус шара будет
являться параметром этой процедуры.

_Dmitry · 21.01.2008, 18:58

В чем проблема то? Забыл формулу или в программировании?

Код:

function objemshara(r: real): real;
begin
  objemshara:=4/3*pi*r*r*r;
end;

motaro · 21.01.2008, 19:22

спасибо! .

21.01.2008, 18:31	#1
motaro Форумчанин Регистрация: 10.07.2007 Сообщений: 104	процедура, которая вычисляет объем шара помогите pls решить данную задачу: Написать процедуру, которая вычисляет объем шара. Радиус шара будет являться параметром этой процедуры.

21.01.2008, 18:58	#2
_Dmitry Участник клуба Регистрация: 02.09.2007 Сообщений: 1,193	В чем проблема то? Забыл формулу или в программировании? Код: `function objemshara(r: real): real; begin objemshara:=4/3pirrr; end;`

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разгонять флешки (увеличивать объем)	Hallo	Компьютерное железо	76	13.09.2012 17:23
рассчитать объем	Exo	Microsoft Office Excel	9	28.04.2008 15:03
Составить библиотечный модуль,который вычисляет умножение в 16-тиричной систему исчисления в паскале	LLlM31b3	Помощь студентам	2	19.04.2008 19:08
процедура, которая выводит все слова, начинающиеся с согласных букв латинского алфавита.	sergeyfsd	Паскаль, Turbo Pascal, PascalABC.NET	6	21.02.2008 22:29

21.01.2008, 19:22	#3
motaro Форумчанин Регистрация: 10.07.2007 Сообщений: 104	спасибо! .