Представить в виде процедуры.

[Vitalyas]

Формулу нахождения "y" в данной программе нужно представить в виде функции. У меня что-то не получается, не могу сообразить...

const a=5;
      Dx=0.6;
var y, x:real;
begin
  x:=0;
  While (x<=10) do
    Begin
    y:=(sqr(ln(x+a)/ln(10))-abs(x+a))/sqr(cos(x+a));
    writeln('x=',x:4:2,' y=',y:5:1);
    x:=x+Dx;
    End;
End.

[Niro]

У меня что-то не получается, не могу сообразить...

обманываете? точно сами пытались?

function myfunc (x,a: real): real;
begin
  myfunc:=(sqr(ln(x+a)/ln(10))-abs(x+a))/sqr(cos(x+a));
end;
...........
в цикле
y:= myfunc(x,a);
............

Understand?

[Vitalyas]

Я думал сделать как-нибудь через локальные переменные и вот с ними что-то затупил =)