Найти массив сумм с точностью до e

[cyber_NINJA]

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

205: Floating point overflow.

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

что б программа не выдавала ошибку

Ета ошибка означает, что тип real не катит (точка в числе за пределом) ,можно попытастя заменить на double например, а лучше на extended;

[rubius2008]

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

rubius2008, Вы меня конечно извините, но я не поняла зачем выполнять одни и те же действия в программе два раза, введь это не корректно, а во вторых не поняла все таки как сделать так, что б программа не выдавала ошибку, и отдав программу преподавателю в готовом виде он все понял и не придирался..????

по-быстрому делал, наведем красивости в программке

PROGRAM Lab_7_2;
USES
     Crt;
CONST
     m   = 5;          {Êîëè÷åñòâî Õ}
     xn  = 0.1;        {Íà÷àëüíîå çíåà÷åíèå Õ}
     xk  = 1.3;        {Êîíå÷íîå çíà÷åíèå Õ}
     hx  = 0.3;        {Øàã ïî Õ}
     eps = 1e-3;       {Êîýôôèöèåíò òî÷íîñòè}
VAR
     s : array [1..m] of real; {Ìàññèâ ñóìì}
     q : real;                 {Êîýôôèöèåíò ðåêóðåíòíîñòè}
     i : integer;              {Ñ÷åò÷èê ýëåìåíòîâ ðÿäà}
     x : real;                 {Òåêóùèé Õ}
     k : integer;              {Ñ÷åò÷èê Õ}
BEGIN
     ClrScr;
     for k:=1 to m do begin
        x:=xn+(k-1)*hx;
        s[k]:=exp(3*ln(x))/3;
        i:=2;
                REPEAT {Öèêë ïîèñêà k-îé ñóììû}
                       q:=exp((2*i+1)*ln(x))/((4*sqr(i))-1);
                       if odd(i)=false then q:=-q;
                       if abs(q)>eps then s[k]:=s[k]+q;
                       i:=i+1;
                UNTIL abs(q)<eps;  {Óñëîâèå òî÷íîñòè}
                Writeln('k = ',k,'  x = ',x:3:1,'  S = ',s[k]:6:4);
                Readln;
     End;
END.

то что касается корректности выполнения, задайте xk=1. А преподавателю объясните что при k>1 каждый новый элемент суммы больше предыдущего, а, следовательно, сумма всегда будет увеличиваться на значение >e. И расчет теоретически никогда не остановится, в вашем же случае расчет оканчивается при переполнение типа, и не важно какой вы возьмете тип все равно будет переполнение.

[Mie4ka]

Спасибо за помощь!