Автор: Anton

Anton — Wed, 13 Jan 2016 03:56:59 +0000

Добавил в шапку.

Автор: Anton

Anton — Wed, 13 Jan 2016 03:31:49 +0000

Поправил
Было:

 While (TempRez > e) do

1	While (TempRez > e) do

Стало:

 While (abs(TempRez) > e) do

1	While (abs(TempRez) > e) do

Автор: olegst1975

olegst1975 — Tue, 12 Jan 2016 22:26:36 +0000

[crayon-69989db985721190874152 inline="true" ]
function Ln1(x,e:real):real;
var
  Ln1_n:real;
  i:integer;
  begin
    Ln1_n:=x;
    result:=0;
    i:=0;
    while abs(Ln1_n/(i+1))>e do
      begin
        result:=result+Ln1_n/(i+1);
        inc(i);
        Ln1_n:=-Ln1_n*x;
      end;
  end;

var
  i:integer;
  x,e:real;
begin  
  read(x);
  for i:=1 to 6 do
    begin
      read(e);
      write(Ln1(x,e));
    end;
end.

[crayon-69989db985721190874152 inline="true" ]

function Ln1(x,e:real):real;

var

Ln1_n:real;

i:integer;

begin

Ln1_n:=x;

result:=0;

i:=0;

while abs(Ln1_n/(i+1))>e do

begin

result:=result+Ln1_n/(i+1);

inc(i);

Ln1_n:=-Ln1_n*x;

end;

var

i:integer;

x,e:real;

begin

read(x);

for i:=1 to 6 do

begin

read(e);

write(Ln1(x,e));

end;

end.

[/crayon]

Автор: olegst1975

olegst1975 — Tue, 12 Jan 2016 22:25:59 +0000

Здесь также в строке 16 добавить модуль

Комментарии: Решаем задачи Абрамян на Паскале. Proc 43

Автор: Anton

Автор: Anton

Автор: olegst1975

Автор: olegst1975