Даны действительные числа х, ε (x ≠ 0, ε > 0). Вычислить с точностью ε

@Mihei-75 · Регистрация: 10.01.2010

Студворк — интернет-сервис помощи студентам

подскажите пожалуйста в чём ошибка

Pascal

uses crt;
type mas=array[1..255] of real;
var
a:mas;
k,y:integer;
n,z,s,x:real;
begin
     clrscr;
     repeat
     writeln('в ведите действителиные числа x и z, такие что бы x<>0, z>0');
     readln(x,z)
     until (x<>0) and (z>0);
     y:=1;
     s:=0;
     for k:=1 to  do
     begin
          y:=k*y;
          a[k]:=-exp(k*ln(-1))*exp((4*k+3)*ln(x))/(2*y*(4*k+1));
          s:=a[k]+s;
     end;
     writeln('значение суммы =',s:4:2);
     readkey;
end.

@WolfCF · 17.01.2010, 15:45

Сообщение от Mihei-75

ln(-1)

натуральный логарифм ничему не равен.

Сообщение от Mihei-75

for k:=1 to *do

К от чего до чего?

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	17.01.2010, 15:45	2
	Сообщение от Mihei-75 ln(-1) натуральный логарифм ничему не равен. Сообщение от Mihei-75 for k:=1 to *do К от чего до чего? 0

Опции темы