замена цикла

[SkyL1ne]

вот есть такая задачка

begin
repeat
readln(x);
if x>0 then 
begin
s:=1;
for i:=1 to 11 do begin
i:=i+1;
r:=x-2i;
s:=s*r;
end;
writeln(s:6:3);
end;
until(x<o)or(x=0);

нужно поменять цикл фор, на репеат, а цикл репеат на вайл
вот что у меня получилось

begin
readln(x);
while (x>0)or(x<>0) do
begin
s:=1;
i:=1;
repeat
I:=1+i;
r=(x-2i);
s=s*r;
until i=11;
writeln(s:3:2);
end;
end;

но программа почему то зациклилась... может подскажете в чем ошибка?

[Utkin]

Чему равен х в момент
while (x>0)or(x<>0) do ?
И далее х нигде не изменяется. В for переменная цикла получает приращение автоматически, а здесь ты должен ручками приращивать.

[danekne]

while (x>0)or(x<>0) do
вообще не понятный цикл
Не проще на неравенство только проверять?

[SkyL1ne]

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

while (x>0)or(x<>0) do
вообще не понятный цикл
Не проще на неравенство только проверять?

то есть только х=<0

[Utkin]

То есть если х>0, то само собой он нулю не равен. А если он нулю не равен, то уже по фигу больше он нуля или меньше. Сработает все равно. Смысл ясен?

[SkyL1ne]

то есть я ввожу х=10 например, условие истинно и он выходит?

ничего не понимаю(
все равно программа зацикливаеться

[Utkin]

Да условие истино хоть при х=10, хоть при х=-10

[SkyL1ne]

вы меня не поняли) мне нужно что бы цикл вайл, хотя бы выполнился один раз)

[Z1000000]

Да у тебя и первая версия зацикливается.
Первая вообще какая-то странная. Вводиться X от которого ничего не зависит, кроме выхода из цикла.
Но тем не менее держи оба варианта

program Laba1;
var
 x,s,i,r : integer;
begin
r := 2;
repeat
readln(x);
if x>0 then
 begin
 s:=1;
 for i:=1 to 11 do begin s:=s*r; end;
 writeln(s:6);
 end;
until x<0 ;
end.

program Laba2;
var
 x,s,i,r : integer;
begin
r:=2;
readln(x);
while x>0 do
 begin
 s:=1;i:=1;
 repeat
  r := (x-2*i);
  s := s*r;
  i := i + 1;
 until i>10;
writeln(s:3);
readln(x);
end;
end.

[SkyL1ne]

точнее цикл и должен выполниться один раз