Как расчитать в паскале

[Женя1234]

clip_image002.gif вот так чтобы правельно считалось

[whatever]

Правая часть равенства:

function Func(h0,h1,b:real):real;
var
  tmp:real;
begin
  tmp:=(sqr(b)-1);
  tmp:=tmp*exp(b*ln(h0/h1));
  tmp:=(sqrt(tmp+1)+1);
  tmp:=tmp/(b+1);
  Func:=exp((1/b)*ln(tmp));
end;

Можно было и в одну строчку, но, мне кажется, паскаль не осилит, поэтому так.

[Женя1234]

А оно выведиться на экран вывода??

[adrean1ne-str]

нет, это только функция

[whatever]

Ну если выведешь, то выведется... Всмысле

writeln(func(h0,h1,b))

Только значения h0, h1 и b сначала задать нужно.

[Женя1234]

а можете сразу написать полностью с выводом как будет выглядить

[rUs_LAN]

нет это очень сложно

[Женя1234]

Я имею ввиду [

function Func(h0,h1,b:real):real;
var
  tmp:real;
begin
  tmp:=(sqr(b)-1);
  tmp:=tmp*exp(b*ln(h0/h1));
  tmp:=(sqrt(tmp+1)+1);
  tmp:=tmp/(b+1);
  Func:=exp((1/b)*ln(tmp));
writeln (func(h0,h1,b))
end;

это так будет

[Alex11223]

Нет, это подпрограмма (функция), возвращающая результат вычисления

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

Правой части равенства

http://pascal.guti.ru/procedure.html

[whatever]

program Project1;
uses
  crt;

function Func(h0,h1,b:real):real;
var
  tmp:real;
begin
  tmp:=(sqr(b)-1);
  tmp:=tmp*exp(b*ln(h0/h1));
  tmp:=(sqrt(tmp+1)+1);
  tmp:=tmp/(b+1);
  Func:=exp((1/b)*ln(tmp));
end;

VAR
  A,B,C:real;
BEGIN
  clrscr;
  A:=5;      //значение h0
  B:=4.54;   //значение h1
  C:=56.88;  //значение b
  writeln('правая часть равенства = ',func(A,B,C)); //можно сразу подставлять числа, но врядли это будет удобно.
  readln;
END.