поправте програмку

[astrozombie]

Парни!Помогите пожалуйста,вот задание

Вот что написал,но там вообщем ошибки есть,поправте пожалуйста

очень прошу!!

[Sazary]

Вы издеваетесь? Откройте исходник в текстовом редакторе и скопируйте код сюда (не забыв поместить его в тег CODE).

По задаче: а вы уверены, что с помощью цикла нужно считать только lnx, а не оба логарифма? Может, все-таки нужно сделать соответствующую функцию?

[astrozombie]

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

[Sazary]

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

Откройте исходник в обычном текстовом редакторе (блокноте, например). И оттуда уже и копируйте.

[astrozombie]

Ок,спасибо,вот вроде подправил,посмотрите,верно ли?

program pr4;
   var
    z,l,a,x,xn,xk,hx,q,w,e,r,f,t:real;
    k,i,n:integer;
   begin{pr4}
    writeln('введите a,xn,xk,hx');{приглашение к вводу}
    readln(a,xn,xk,hx);{ввод a,xn,xk,hx}
    writeln('a=',a:5:2,' xn=',xn:5:2,' xk=',xk:5:2,' hx=',hx:5:2);{эхо ввода}
    k:=trunc((xk-xn)/hx+0.1)+1;{вычисление кол-ва повторений х}
    x:=xn;{присвоение значения x}
    t:=ln(a);{вычисление ln(a)}
    for i:=1 to k do{цикл для вычисления z}
     begin{открытие операторных скобок внешнего цикла}
       l:=0;{обнуление l}
       if x>=a then{если х >= а,то}
        begin{открытие операторных скобок во внешнем цикле}
         w:=ln(x-1);{присвоение значения промежуточной переменной}
         e:=ln(x+1);{присвоение значения промежуточной переменной}
         for n:=0 to 10 do{вложенный цикл для вычисления z}
          begin{открытие операторных скобок вложенного цикла}
           r:=2*n;{присвоение значения промежуточной переменной}
           q:=r+1;{присвоение значения промежуточной переменной}
           f:=(exp((r-1)*w))/(q*exp(q*e));{вычисление l}
           l:=l+f;{вычисление суммы}
          end;{закрытие операторных скобок вложенного цикла}
         z:=2*a*l;{вычисление z}
        end{закрытие операторных скобок во внешнем цикле}
       else{в противном случае}
         z:=x*t;{вычисление z}
       writeln('x=',x:5:2,' z=',z:5:2);{вывод z}
       x:=x+hx;{изменение значения х}
     end;{закрытие операторных скобок внешнего цикла}
    readln
   end.{конец pr4}

[Sazary]

Лично я так понял задание:

uses crt;
var
a,z,x : real;

function logarifm(x : real) : real;
var i : integer;
rez : real;
begin
rez := 0;
for i:=0 to 10 do
 rez := rez + exp((2*i-1)*ln(x-1))/((2*i+1)*exp((2*i+1)*ln(x+1)));
logarifm := 2*rez;
end;

function getZ(x : real) : real;
var z : real;
begin
if x>a then
 z := a*logarifm(x)
else
 z := x*ln(a);
getZ := z;
end;

begin
clrscr;
a := 2;

writeln('x = 1, z = ',getZ(1):5:2);
writeln('x = 0.5, z = ',getZ(0.5):5:2);
writeln('x = 3, z = ',getZ(3):5:2);

readln;
end.

То есть имхо подразумевается, что делать нужно через подпрограммы.

[astrozombie]

спс большое,приму на заметку!