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

[tane]

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

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

 

[Vladimir_S]

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

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

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.