Помогите с написанием программы

PacMan · 20.02.2011, 16:10

Помогите на паскале программу написать......Определить функцию, которая возвращает обьём шара, вычисляемый по заданному радиусу. Используя данную функцию найти величину Z=(v1+v2+v3)/3, где v1, v2, v3-обьемы шаров с радиусами r1=5.2, r2=4, r3=4.8.

shrek=) · 20.02.2011, 16:29

Пожалуйста:

Код:

const
r1=5.2;
r2=4;
r3=4.8;
var
r:real;
function v(r:real):real;
var
v1,v2,v3,v,z:real;
begin
v:=(4/3)*(pi*(sqr(r)*r));
writeln ('v=',v);
 v1:=(4/3)*(pi*(sqr(r1)*r));
v2:=(4/3)*(pi*(sqr(r2)*r));
v3:=(4/3)*(pi*(sqr(r3)*r));
z:=(v1+v2+v3)/3;
writeln ('z=',z);
end;
begin
write('r=');
readln(r);
v(r);
readln
end.

Vladimir_S · 20.02.2011, 17:28

Можно, конечно, и так - но мне кажется несколько странным и излишним засовывание вычисления объемов шариков в тело функции. Я бы немножко подправил:

Код:

const
 r1=5.2;
 r2=4.0;
 r3=4.8;

var
 z:real;

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

begin
 z:=(v(r1)+v(r2)+v(r3))/3;
 writeln ('z= ',z:7:3);
 readln
end.

Хелен · 21.02.2011, 14:01

Точно! чем короче, тем быстрее работает. =)

PacMan · 21.02.2011, 18:19

спасибо)

20.02.2011, 16:10	#1 (permalink)
PacMan Member Регистрация: 07.02.2011 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с написанием программы Помогите на паскале программу написать......Определить функцию, которая возвращает обьём шара, вычисляемый по заданному радиусу. Используя данную функцию найти величину Z=(v1+v2+v3)/3, где v1, v2, v3-обьемы шаров с радиусами r1=5.2, r2=4, r3=4.8.

20.02.2011, 16:29	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Пожалуйста: Код: const r1=5.2; r2=4; r3=4.8; var r:real; function v(r:real):real; var v1,v2,v3,v,z:real; begin v:=(4/3)(pi(sqr(r)r)); writeln ('v=',v); v1:=(4/3)(pi(sqr(r1)r)); v2:=(4/3)(pi(sqr(r2)r)); v3:=(4/3)(pi(sqr(r3)r)); z:=(v1+v2+v3)/3; writeln ('z=',z); end; begin write('r='); readln(r); v(r); readln end.

20.02.2011, 17:28	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Можно, конечно, и так - но мне кажется несколько странным и излишним засовывание вычисления объемов шариков в тело функции. Я бы немножко подправил: Код: const r1=5.2; r2=4.0; r3=4.8; var z:real; function v(r:real):real; begin v:=(4/3)(pi(sqr(r)*r)); end; begin z:=(v(r1)+v(r2)+v(r3))/3; writeln ('z= ',z:7:3); readln end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

21.02.2011, 14:01	#4 (permalink)
Хелен Sparkling Регистрация: 29.09.2010 Сообщений: 98 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 93	Точно! чем короче, тем быстрее работает. =)

21.02.2011, 18:19	#5 (permalink)
PacMan Member Регистрация: 07.02.2011 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070