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

Цитата:

Сообщение от tane (Сообщение 912031)

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

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

Код:

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.