Помогите по Pascal. Программа вычисления функции

tane · 28.05.2013, 01:00

Используя обращение к подпрограмме r=q^2+s^2+x^2 написать программу вычисления функции Z=sqrt(sqr(a)+sqr(b)+sqr(c))/ (кубический корень)exp (ln (sqr(n)+sqr(m)+sqr(k)) / 3).Определить в программе формальные и фактические параметры.

Vladimir_S · 28.05.2013, 10:39

Цитата:

Сообщение от tane

Используя обращение к подпрограмме r=q^2+s^2+x^2 написать программу вычисления функции Z=sqrt(sqr(a)+sqr(b)+sqr(c))/ (кубический корень)exp (ln (sqr(n)+sqr(m)+sqr(k)) / 3).Определить в программе формальные и фактические параметры.

М-да, вообще-то обычно подобные запросы, свидетельствующие лишь об абсолютном лоботрясничании в течение семестра и о неудосуживании разобраться со структурой паскалевских подпрограмм, я оставляю без внимания, но Название: KidRock_07.gif
Просмотров: 198

Размер: 939 байт

Название: KidRock_07.gif
Просмотров: 198

Размер: 939 байт

, так что держите:

Код:

Var
 a,b,c,Z:Real;

Function R(q,s,x:real):Real;
begin
 R:=q*q+s*s+x*x;
end;

Begin
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 Write('c= ');
 Readln(c);
 Z:=Sqrt(R(a,b,c))/Exp(Ln(R(a,b,c))/3);
 Writeln('Z= ',Z:0:5);
 Readln
End.

28.05.2013, 01:00	#1 (permalink)
tane Member Регистрация: 13.02.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 68	Помогите по Pascal. Программа вычисления функции Используя обращение к подпрограмме r=q^2+s^2+x^2 написать программу вычисления функции Z=sqrt(sqr(a)+sqr(b)+sqr(c))/ (кубический корень)exp (ln (sqr(n)+sqr(m)+sqr(k)) / 3).Определить в программе формальные и фактические параметры.

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

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