Программа вычисляющая функцию Опции

[LifeDrain]

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

var
   i,x,y,n:integer;
   res:real;
   function z(n:integer):real;
   var
      i:integer;
      s:real;
   begin
        s:=0;
        for i:=1 to n do
        begin
             s:=ln(10)/ln(3)*x-ln(10)/ln(2)*y/5*ln(10)/ln(5)*(x/y);
        end;
   end;
begin
     writeln('x=');
     read(x);
     writeln('y=');
     read(y);
     res:=z(n);
     writeln('res=',res);
end.

скажите пожалуйста что в этой программе может быть ошибкой, заранее огромное спасибо

Сообщение отредактировано: LifeDrain - 9.06.2007 18:58

[volvo]

s:=(ln(X)/ln(3) - ln(Y)/ln(2))/(5*ln(X/Y)/ln(5));

(если не обращать внимания на возможность деления на 0)

Сообщение отредактировано: volvo - 9.06.2007 19:11