Автор: Anton

Anton — Wed, 13 Jan 2016 03:53:36 +0000

В ответ на olegst1975. Добавил в шапку.

Автор: olegst1975

olegst1975 — Tue, 12 Jan 2016 22:19:29 +0000

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

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

[crayon-69989dc2afd1e275765270 inline="true" ]

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

var

Cos1_n:real;

i:integer;

begin

Cos1_n:=1;

result:=0;

i:=0;

while abs(Cos1_n)>e do

begin

result:=result+Cos1_n;

inc(i);

Cos1_n:=-Cos1_n*x*x/((2*i-1)*(2*i));

end;

var

i:integer;

x,e:real;

begin

read(x);

for i:=1 to 6 do

begin

read(e);

write(Cos1(x,e));

end;

end.

[/crayon]

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

Автор: Anton

Автор: olegst1975