Учебник Turbo Pascal. Введение - Вычисление произведения заданного числа сомножителей

Вычисление произведения заданного числа сомножителей

В следующей программе, предназначенной для вычисления произведения заданного числа сомножителей вида 1 + (-1)ⁿ/n², отметим функцию Odd из модуля System. Это логическая функция, которая принимает значение «истина» только в том случае, когда аргумент — нечетное число.

Листинг 1.7. Вычисление произведения

program product; 
const
    m = 400;
var
    p, x : Extended; 
    n : Word; 
begin
    product := 1.0;
    for n := 2 to m do
    begin
        x := Sqr(1.0/n); 
        if Odd(n) then 
            {Для нечетных п} 
            product := product * (1.0 - x) 
        else
            {Для четных п}
            product := product * (1.0 + x); 
    end;
    WriteLn('Произведение для 2 <= n <= ', m, ':'); 
    WriteLn;
    WriteLn('(1 + (-1^n / n^2) ='. product); 
    WriteLn;
    Write('Нажмите <Enter>'); 
    ReadLn; 
end.