[chulkov]

Ребя столкнулся с проблемной задачей нужна ваша помощь. Вот задача:
Для заданного числа n расчитать произведение:

n!! = (1*3*5*...n) - если n нечетное
n!! = (2*4*6*...n) - если n четное

сделал ее через for to do вот так:

Код:

uses
  SysUtils;

var
s,p:real;
i,n:integer;
begin
write('N= ');
readln(n);
p:=1;
for i:=1 to n do
if(i mod 2) = (n mod 2) then
P:=p*i;
write ('n!!= ',p:3:0);
readln;

end.

помогите сделать тоже самое с помощью операторов while do и repeat until.

[poli-smen]

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

Ребя столкнулся с проблемной задачей нужна ваша помощь. Вот задача:
Для заданного числа n расчитать произведение:

n!! = (1*3*5*...n) - если n нечетное
n!! = (2*4*6*...n) - если n четное

помогите сделать тоже самое с помощью операторов while do и repeat until.

Пример через while:

Код:

  P := 1;
  while n > 0 do
  begin
    P := P * n;
    Dec(n, 2);
  end;

[Edit1]

Сообщение от poli-smen

Пример через while:

Код:

  P := 1;
  while n > 0 do
  begin
    P := P * n;
    Dec(n, 2);
  end;

Было бы не плохо, если бы объяснил, что делает этот while?

[lmikle]

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

Было бы не плохо, если бы объяснил, что делает этот while?

While - оператор цикла с предусловием. Т.е. сначала проверяется условие, если оно true, то производится выполнение тела цикла, если false, то производится выход из цикла.

Например:

Код:

While true do ; // бесконечный пустой цикл

I := 0;
While I < 10 Do Inc(I); // Аналог For I := 0 To 9 Do ;

Особенностью while цикла, в прочем как и repat..until, то, что нет счетчика как такового. Программист сам должен озаботиться условием окончания цикла.

Цикл repeat..until является циклом с пост условием, т.е. тело цикла будет выполнено как минимум 1 раз. Выход производится когда условие в части until будети истинным:

Код:

repeat
until false; // бесконечный цикл

А вообще, это основы языка, которые достаточно хорошо освещены в любой книжке по языку PASCAL (ПАСКАЛЬ). Если влом читать, то изучай методом проб и ошибок.

[Edit1]

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

While - оператор цикла с предусловием. Т.е. сначала проверяется условие, если оно true, то производится выполнение тела цикла, если false, то производится выход из цикла.

Например:

Код:

While true do ; // бесконечный пустой цикл

I := 0;
While I < 10 Do Inc(I); // Аналог For I := 0 To 9 Do ;

Особенностью while цикла, в прочем как и repat..until, то, что нет счетчика как такового. Программист сам должен озаботиться условием окончания цикла.

Цикл repeat..until является циклом с пост условием, т.е. тело цикла будет выполнено как минимум 1 раз. Выход производится когда условие в части until будети истинным:

Код:

repeat
until false; // бесконечный цикл

А вообще, это основы языка, которые достаточно хорошо освещены в любой книжке по языку PASCAL (ПАСКАЛЬ). Если влом читать, то изучай методом проб и ошибок.

Благодарю, все очень доступно объяснил. Вообще не люблю читать книги, тем более по программированию. Больше предпочитаю видео уроки, они на много понятнее, но сейчас компьтер сломался, и сижу тут, познаю.