замена цикла

[Utkin]

Как же тебя понять, если у тебя во втором варианте readln(x); не наблюдается?

[SkyL1ne]

первая программа отлично работала, может ввел не правильно(

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

Как же тебя понять, если у тебя во втором варианте readln(x); не наблюдается?

сорь, забыл ввести( *голова кругом, всю ночь сижу с этим*

[Utkin]

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

сорь, забыл ввести( *голова кругом, всю ночь сижу с этим*

Так ты введи и попробуй

[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.

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

все равно не могу понять, если в цикле вайл стоит условие x>0 значит, просто он не будет выполнять
begin
s:=1;i:=1;
repeat
r := (x-2*i);
s := s*r;
i := i + 1;
until i>10;

[Z1000000]

Вот теперь я не понимаю.
Почему не будет. Он будет выполняться пока введенный тобой x больше 0.

[SkyL1ne]

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


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);


вот
это изначальная задача, все работает правильно, проверял

задание
поменять цикл репид на вайл, а цикл фор на репид

с циклом фор-репиад затруднений нет а вот с вайлом куча, так как первый раз его встретил

[Z1000000]

while переводиться как "пока".

while X > 0 do begin end;
пока X > 0 делать begin end;

т.е. как раз наоборот, пока условие истинно - выполнять то что в begin end;

[SkyL1ne]

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

[Ol'ga_new]

Может так поймешь
repeat //начало цикла с пост условием
begin// начало «тела» цикла выполняется 1 раз 100%, а дальше зависит от условия
readln(x); // ввести х
if x>0 then // условие
begin // если условие верно, то выполняет
s:=1;
for i:=1 to 11 do
begin
i:=i+1;// не нужно вообще, т.к. цикл for автоматически наращивает переменную
r:=x-2i;
s:=s*r;
end;
writeln(s:6:3);
end;//
end;// конец «тела»
until(x<o)or(x=0);// условие , если верно, то выход…

[SkyL1ne]

спасибо большое разобрался)