Цикл в цикле

[SkyL1ne]

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

Не могу понять как образовать цикл в цикле, во внутреннем цикле использую оператор FOR, все время получается выполнить задачу для одного из Х, используя условие что Х>0

Какие лучше использовать операторы, или как решить задачу, могу написать часть программы, если кто не понял в чем трудность.

[SkyL1ne]

Вот часть программы

readln(x);
writeln(x);
s:=1;
n:=0;
For I:=1 to 11 do
begin
n:=n+1;
r:=(x-2*n);
s:=s*r;
end;

с помощью этой программы я считаю для одного из Х, посоветуйте, какой оператор использовать что бы вычислять, для каждого из Х>0, вводимых с клавиатуры,

[Олвин]

Как на счет того, чтобы ограничить тело цикла операторными скобками begin и end для начала? Иначе в этом цикле будет выполняться единственный оператор присваивания n:=n+1.

[SkyL1ne]

исправил .

[Олвин]

Можно просто заставить пользователя ввести число больше нуля:
repeat
readln(x)
until x > 0;
И весь код в еще один цикл поместить. В любой - хоть while, хоть repeat.

[SkyL1ne]

Сообщение от Олвин

Можно просто заставить пользователя ввести число больше нуля:
repeat
readln(x)
until x > 0;
И весь код в еще один цикл поместить. В любой - хоть while, хоть repeat.

я понимаю что можно так, но если так выполнить, то мы высчитаем для одного х, а в условии не сказано сколько нужно ввести

[Serebro]

Сообщение от SkyL1ne

я понимаю что можно так, но если так выполнить, то мы высчитаем для одного х, а в условии не сказано сколько нужно ввести

В данном случае внутренний цикл лучше оформить как подпрограмму.

[Grag]

Сообщение от Олвин

И весь код в еще один цикл поместить. В любой - хоть while, хоть repeat.

Здесь нужен цикл только с предусловием. Изначально пользователь может ввести либо 0, либо отрицательное число, что должно прекратить выполнение программы... Т.е. использовать только while, но не repeat! И вообще зачем там цикл, который будет выполняться то всего один раз? Достаточно просто условного оператора...

repeat
readln(x);
if X>0 then
  begin
    s:=1;
    n:=0;
    for I:=1 to 11 do
      begin
        n:=n+1;
        r:=(x-2*n);
        s:=s*r;
      end
until X>0