2. Составить программу вычисления значения функции на Delphi

[QuadroX]

Вот скрин задания:



Небходимо составить программу на Delphi в консольном приложении.

[Alex Cones]

X и А заданы? Тогда в чем проблема?
В первом: Считаем в цикле отдельно Числитель, считаем в цикле отдельно знаменатель, делим.
Во втором, сначала вычисляем x-a, затем возводим в степень.

[mMAg]

program mMAgNUBProj;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x,y,a : double;
  i : integer;
  t : boolean;
begin
  readln(x);
  t := true;
  try
    for i := 1 to 64 do
    begin
      if t then
        y := y / (x-i)
      else y := y * (x-i);
      t := not t;
    end
  except
    on EZeroDivide do writeln('Не прожевала :(');
  end;
  writeln('Ответ: ',y);
end.

В первом: Считаем в цикле отдельно Числитель, считаем в цикле отдельно знаменатель, делим.

Никогда, особенно в задачах такого рода.

[QuadroX]

Alex Cones Спасибо за помощь. С первой функцией разобрался. Сейчас думаю над второй. Не совсем пока в голове она укладывается.

mMAg Пытаюсь понять твое решение. Объясни подробнее, почему способ "Считаем в цикле отдельно Числитель, считаем в цикле отдельно знаменатель, делим." нельзя использовать?

Update: Узнал что вторую функцию мне не сдавать. Только первую.

[mMAg]

mMAg Пытаюсь понять твое решение. Объясни подробнее, почему способ "Считаем в цикле отдельно Числитель, считаем в цикле отдельно знаменатель, делим." нельзя использовать?

Его можно использовать, вот только задай в качестве параметра число x = 1000, посмотрю я как будет такая программа работать...
А моя программа работает предельно просто. Сначала делит, затем умножает. И так до самого конца. Прогони раз под отладкой и сразу все поймешь.