Vladimir_S |
26.04.2013 23:16 |
Цитата:
Сообщение от borntank
(Сообщение 901295)
Помогите,совсем не понимаю задание(
|
А чего тут понимать, если только что было аналогичное задание, причем на тех же розовых огрызках: http://www.tehnari.ru/f41/t87822/ ? А вот интересно, вы всем курсом или только группой решили на мне поездить? Ну ладно, это еще выложу, а дальше - хватит! Беритесь-ка, господа оболтусы, за ум, пока не поздно. Причем желательно за собственный.
Код:
VAR
N:Integer;
S,x,a,Eps:Real;
BEGIN
Repeat
Write('x= ');
ReadLn(x);
If (x<=0) or (x>2) then writeln('Incorrect value!!!');
Until (x>0) and (x<=2);
Write('Eps= ');
ReadLn(Eps);
a:=-1;
S:=0;
N:=0;
Repeat
Inc(N);
a:=-a*(x-1);
S:=S+a/N;
Until (Abs(a/N)<Eps) or (N=1000);
WriteLn('Result: ',S:0:12,' N= ',N,' Accurate value: ',Ln(x):0:12);
Readln
END.
|