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

Автор: Юрий

Юрий — Fri, 07 Jun 2019 19:04:26 +0000

объясните почему в цикле от i до 2*n+1,а не просто до n ??? как это следует из условия задачи !!!

Автор: Anton

Anton — Thu, 13 Dec 2018 09:48:37 +0000

В ответ на Николай. Ну и отличненько :)

Автор: Николай

Николай — Thu, 13 Dec 2018 09:10:15 +0000

Извиняюсь ошибся. В решении все правильно.

Автор: Николай

Николай — Thu, 13 Dec 2018 08:47:41 +0000

При таком коде получается 0+ X3/(3!) — X5/(5!) …
правильнее

program For23;
var
  X,Rez,factorial,pow:Real;
  N, i :Integer;
begin
  Write('Введите X: ');
  Readln(X);
  Write('Введите N: ');
  Readln(N);
  Rez:=x;
  pow:=1;
  factorial:=1;
  For i:=1  to 2*N+1 do
   begin
    factorial:=factorial*i;
    pow:=pow*X;
    if (i mod 2) <>0 then
     begin
      pow:=pow*(-1);
      Rez:=Rez+pow/factorial;
      end;
   end;
  Writeln(Rez);
end.

program For23;

var

X,Rez,factorial,pow:Real;

N, i :Integer;

begin

Write('Введите X: ');

Readln(X);

Write('Введите N: ');

Readln(N);

Rez:=x;

pow:=1;

factorial:=1;

For i:=1 to 2*N+1 do

begin

factorial:=factorial*i;

pow:=pow*X;

if (i mod 2) <>0 then

begin

pow:=pow*(-1);

Rez:=Rez+pow/factorial;

end;

Writeln(Rez);

end.