Проверка алгоритма

[mrX91]

верен ли код программы: где ошибка??

var x, s, y, z :real; n, k : integer;
begin
readln(n, x);
s:=0;
z:= -1;
z:=z*(-1);
for k:=0 to y:=1, else to y:=y*k;
s:=s+z*(x+1)^k/y или эта формула (exp(k*ln(-1))*exp(k*(ln(x+1)))/y
end;
write('вывод суммы на экран', S) ;
end.

[Крот]

z:= -1;
z:=z*(-1);

Мне кажется что это лишнее. Тут можно одной строчкой написать z:= 1;

for k:=0 to y:=1, else to y:=y*k;

for k:= 0 to n do
   ...

А в самой формуле делитель - это факториал числа k. Может лучше отдельную функцию написать, которая и будет его рассчитывать?

[Hacker19_90]

верен ли код программы: где ошибка??

Нет, не верен!
Вы собственно компилировать, то пробовали?

[GreenWizard]

пробуйте:

var
  x, Res, PartA , PartB,PartC: real;
  n, k: integer;
begin
  readln(n, x);

  Res := 0;
  PartA := 1; // (-1) ^ 0
  PartB := 1; // (x + 1) ^ 0
  PartC := 1; // 0! = 1

  for k := 0 to n do
  begin
    Res := Res + ((PartA * PartB)/PartC);
    // расчёт частей уравнения для след. итерации
    PartA := PartA * -1; // -1 в степени k
    PartB := PartB * (x + 1); // (x + 1) в степени k
    PartC := PartC * (k + 1); // k!
  end;

  write('вывод суммы на экран', Res);
end.

вроде по формуле всё, с факториалом не уверен, что 0! = 1

[mrX91]

будем пробывать

[Hacker19_90]

с факториалом не уверен, что 0! = 1

Именно так, факториал нуля равен 1. Всё верно