Вычислить произведение вещественных чисел - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Последовательно вводятся вещественные числа. Признаком окончания ввода является отрица-тельное число или нуль. Вычислить произведение (Х-2)(Х-4)(Х-6)…(Х-22) для каждого из введенных чи-сел Х.

Решение задачи: «Вычислить произведение вещественных чисел»

textual
Листинг программы
var
    x, mult: Single;
    i: Byte;
begin
    Write('x='); ReadLn(x);
    if (x > 0)
    then
        repeat
            i := 2;
            mult := 1;
            while (i < 23) do
            begin
                mult := mult * (x - i);
                Inc(i, 2);
            end;
            WriteLn('F(', x:0:1, ')=', mult:0:2);
            WriteLn;
            Write('x='); ReadLn(x);
        until (x <= 0);
end.

Объяснение кода листинга программы

  1. Объявлены переменные: x, mult (тип данных Single), i (тип данных Byte).
  2. Ввод значения переменной x с помощью функции ReadLn.
  3. Проверка на положительность числа x.
  4. Если число x положительное, то начинается цикл.
  5. В начале цикла устанавливается значение переменной i равным 2.
  6. Инициализируется переменная mult единицей.
  7. Цикл выполняется 21 раз.
  8. На каждой итерации цикла вычисляется произведение чисел x и (x-i) и результат сохраняется в переменной mult.
  9. Значение переменной i увеличивается на 2 после каждой итерации цикла.
  10. После окончания цикла выводится значение переменной mult с использованием функции WriteLn.
  11. Выводится значение переменной x с использованием функции WriteLn.
  12. Если значение переменной x отрицательное, то цикл завершается.
  13. Если значение переменной x положительное, то цикл продолжается.
  14. Значение переменной x считывается с помощью функции ReadLn.
  15. Цикл повторяется до тех пор, пока значение переменной x не станет отрицательным.
  16. Выводится значение переменной x с использованием функции WriteLn.
  17. Программа завершается.

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы